বিভ্রান্তিকর বর্ণমালা সিঁড়ি


25

কোনও ইনপুট দেওয়া হয়নি, গ্রহণযোগ্য আউটপুট পদ্ধতির মাধ্যমে উভয় ক্ষেত্রে এই ক্ষেত্রে আকর্ষণীয় বর্ণমালার ধরণটি আউটপুট করুন :

একজন
এবি
ACBC
ADBDCD
AEBECEDE
AFBFCFDFEF
AGBGCGDGEGFG
AHBHCHDHEHFHGH
AIBICIDIEIFIGIHI
AJBJCJDJEJFJGJHJIJ
AKBKCKDKEKFKGKHKIKJK
ALBLCLDLELFLGLHLILJLKL
AMBMCMDMEMFMGMHMIMJMKMLM
ANBNCNDNENFNGNHNINJNKNLNMN
AOBOCODOEOFOGOHOIOJOKOLOMONO
APBPCPDPEPFPGPHPIPJPKPLPMPNPOP
AQBQCQDQEQFQGQHQIQJQKQLQMQNQOQPQ
ARBRCRDRERFRGRHRIRJRKRLRMRNRORPRQR
ASBSCSDSESFSGSHSISJSKSLSMSNSOSPSQSRS
ATBTCTDTETFTGTHTITJTKTLTMTNTOTPTQTRTST
AUBUCUDUEUFUGUHUIUJUKULUMUNUOUPUQURUSUTU
AVBVCVDVEVFVGVHVIVJVKVLVMVNVOVPVQVRVSVTVUV
AWBWCWDWEWFWGWHWIWJWKWLWMWNWOWPWQWRWSWTWUWVW
AXBXCXDXEXFXGXHXIXJXKXLXMXNXOXPXQXRXSXTXUXVXWX
AYBYCYDYEYFYGYHYIYJYKYLYMYNYOYPYQYRYSYTYUYVYWYXY
AZBZCZDZEZFZGZHZIZJZKZLZMZNZOZPZQZRZSZTZUZVZWZXZYZ

ট্রেলিং স্পেস এবং নিউলাইনগুলি গ্রহণযোগ্য, স্ট্যান্ডার্ড লুফোলগুলি অনুমোদিত নয়, এবং এটি হতে পারে , তাই বাইটের মধ্যে সংক্ষিপ্ত উত্তর!



বিটিডাব্লু যদি আমি একটি আশ্চর্যজনক উত্তর দেখতে পাই তবে আমি এটি 50
জনকে

13
নেতৃস্থানীয় Aসত্যই আমার জন্য জিনিসগুলিকে
গণ্ডগোল করে

2
কিছু লোক আমার মনে হয় এই ধরণের চ্যালেঞ্জগুলি কেবল পছন্দ করে না।
জোনাথন অ্যালান

1
@Etproductions এটি আমার জন্য জিনিসগুলি সহজতর করে!
নিল

উত্তর:


5

ক্যানভাস , 7 বাইট

Z[K*¹+]

এখানে চেষ্টা করুন!

ব্যাখ্যা:

Z[     ] for each prefix of the uppercase alphabet
    K        pop off the last letter
     *       and join the rest of the string with that character
      ¹+     and append the current iterated character to it

আপনি কেন আপনার আগের উত্তরটি সম্পাদনা করলেন না?
নীল

@ নীল ভাল প্রশ্ন। নিশ্চিত নয়
ডিজাইমা

স্বীকার করা হয়েছে! আপনি জেলি এবং চারকোলকে দুটি বাইট দ্বারা হারিয়েছেন!
ফ্যানটাসি

8

জেলি , 9 বাইট

ØAjṪ$Ƥż¹Y

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

ØAjṪ$Ƥż¹Y  Main link. No arguments.

ØA         Yield "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
     Ƥ     Map the link to the left over all prefixes, i.e., ["A", "AB", ...].
    $        Combine the two links to the left into a chain.
   Ṫ           Tail; yield and remove the last letter of each prefix.
  j            Join the remainder, using that letter as separator.
      ż¹   Zip the resulting strings and the letters of the alphabet.
        Y  Separate the results by linefeeds.

2
ওহ, হাহা এবং আমি পোস্ট করতে চলেছিলাম ØAjṪ$ƤżØAY: ডি
জোনাথন অ্যালান


6

আর , 50 বাইট

l=LETTERS
for(i in 0:25)cat(l[0:i],"
",sep=l[i+1])

এটি অনলাইন চেষ্টা করুন!

প্রথম ক্লায়েন্টটি মুদ্রণ করতে সম্ভবত letters[0]খালি স্ট্রিংয়ের জন্য এখানকার ক্লিভেস্ট অংশটি ব্যবহার করছে cat(character(0),'\n',sep="A")




4

6502 মেশিন কোড রুটিন (সি 64), 39 বাইট

A9 41 20 D2 FF AA A8 84 FB E4 FB B0 0B 8A 20 D2 FF 98 20 D2 FF E8 D0 F1 A9 0D
20 D2 FF A2 41 C0 5A F0 03 C8 D0 E1 60

অবস্থান-ইন্ডিপেন্ডেট মেশিন কোড সাব্রোটিন, ক্লোবারগুলি এ, এক্স এবং ওয়াই

অনলাইন ডেমো

ডেমো লোড হয় $C000, তাই SYS49152রুটিন কল করতে ব্যবহার করুন ।


মন্তব্য বিচ্ছিন্ন:

A9 41       LDA #$41            ; 'A'
20 D2 FF    JSR $FFD2           ; Kernal CHROUT (output character)
AA          TAX                 ; copy to X (current pos)
A8          TAY                 ; copy to Y (current endpos)
  .outerloop:
84 FB       STY $FB             ; endpos to temporary
  .innerloop:
E4 FB       CPX $FB             ; compare pos with endpos
B0 0B       BCS .eol            ; reached -> do end of line
8A          TXA                 ; current pos to accu
20 D2 FF    JSR $FFD2           ; and output
98          TYA                 ; endpos to accu
20 D2 FF    JSR $FFD2           ; and output
E8          INX                 ; next character
D0 F1       BNE .innerloop      ; (repeat)
  .eol:
A9 0D       LDA #$0D            ; load newline
20 D2 FF    JSR $FFD2           ; and output
A2 41       LDX #$41            ; re-init current pos to 'A'
C0 5A       CPY #$5A            ; test endpos to 'Z'
F0 03       BEQ .done           ; done when 'Z' reached
C8          INY                 ; next endpos
D0 E1       BNE .outerloop      ; (repeat)
  .done:
60          RTS

3

জাভা 8, 93 91 90 বাইট

v->{String t="";for(char c=64;++c<91;t+=c)System.out.println(t.join(c+"",t.split(""))+c);}

-1 বাইট ধন্যবাদ ফিরে আসার পরিবর্তে সরাসরি মুদ্রণ করে @ অলিভিগ্রগ্রোয়ারকে ধন্যবাদ

ব্যাখ্যা:

এটি অনলাইনে চেষ্টা করুন।

v->{                     // Method with empty unused parameter and String return-type
  String t="";           //  Temp-String, starting empty
  for(char c=64;++c<91;  //  Loop over the letters of the alphabet:
      t+=c)              //    After every iteration: append the letter to the temp-String
    System.out.println(  //   Print with trailing new-line:
       r.join(c+"",t.split(""))
                         //    The temp-String with the current letter as delimiter
       +c);}             //    + the current letter as trailing character 

2
90 বাইট (ফিরে আসার পরিবর্তে মাত্র স্টাডআউট ব্যবহার করে)।
অলিভিয়ার গ্রাগোয়ার

চমৎকার উত্তর! আমি সি # তে পোর্ট করেছিলাম এটি দেখতে আরও কম হয় কিনা এবং আমি 91 পেয়েছি (আমি অন্তর্ভুক্ত করা হলে আরও বেশি System.) :) :)
অ্যালিসডজ বলেছেন মেনিকা

3

SNOBOL4 (CSNOBOL4) , 169 143 বাইট

i &ucase len(x) . r len(1) . s
 o =
 i =
t r len(i) len(1) . k :f(o)
 o =o s k
 i =i + 1 :(t)
o o s =
 output =o s
 x =lt(x,25) x + 1 :s(i)
end

এটি অনলাইন চেষ্টা করুন!

i &ucase len(x) . r len(1) . s	;* set r to the first x characters and s to the x+1th.
 o =				;* set o,i to empty string
 i =
t r len(i) len(1) . k :f(o)	;* set k to the ith letter of r. on failure (no match), go to o.
 o =o s k			;* concatenate o,s,k
 i =i + 1 :(t)			;* increment i, goto t
o o s =				;* remove the first occurrence of s (the first character for x>1, and nothing otherwise)
 output =o s			;* output o concatenated with s
 x =lt(x,25) x + 1 :s(i)	;* increment x, goto i if x<25.
end

এখানে সমস্যা প্রথম লাইন

ব্যবহার প্রতিটি লাইনের শুরুতে o s kএকটি অতিরিক্ত sইপ্রেটর চরিত্র যুক্ত করবে এবং শেষেও থাকবে না s। এটি ঠিক আছে কারণ লাইনটি tযখন নিম্নলিখিত দুটি লাইনের উপরে চলে যাবে x=0। এর অর্থ এটি oএখনও ফাঁকা থাকবে। অতএব, এর থেকে o s =প্রথম sচরিত্রটি মুছে ফেলা হবে o, এবং তারপরে আমরা কেবল o sযথাযথ শেষ থাকতে মুদ্রণ করতে পারি s


2

জাভাস্ক্রিপ্ট (ES6), 81 বাইট

f=
_=>[..."ABCDEFGHIJKLMNOPQRSTUVWXYZ"].map((c,i,a)=>a.slice(0,i).join(c)+c).join`
`
;document.write('<pre>'+f());

একটি স্ট্রিং অ্যারে রিটার্ন মানটি গ্রহণযোগ্য হলে 9 বাইট সংরক্ষণ করুন।


2

জাপট ( -Rপতাকা), 14 12 বাইট

-২ বাইট @ শ্যাগি ধন্যবাদ

;B¬
ËiU¯E qD

এটি অনলাইন পরীক্ষা!


যদি কেবল একটি শর্টকাট থাকত s0,! ; পি
শেগি

12 বাইট । তবে আপনি -Rএখানে গণনা করছেন না কেন ?
শেগি

@ শেগি ওহ বাহ, আমি জানতাম যে আমি কিছু মিস করছি: পি iকৌশলটি দুর্দান্ত, ধন্যবাদ! পতাকা হিসাবে, একটি নতুন sensক্যমত্য বলে মনে হয় যে কোনও প্রোগ্রামের প্রতিটি অনন্য প্রার্থনা পৃথক ভাষা হিসাবে বিবেচনা করা উচিত। (যা জাপটের পতাকা সিস্টেমকে ধোঁকাবাজ বলে মনে হচ্ছে ...)
ইটিএইচ প্রোডাকশনগুলি


2

পাওয়ারশেল , 56 বাইট

"A";65..89|%{([char[]](65..$_)-join[char]++$_)+[char]$_}

এটি অনলাইন চেষ্টা করুন!

Loops 65জন্য 89, প্রতিটি পুনরাবৃত্তির একটি নির্মাণের charঅ্যারে 65বর্তমান নম্বরে $_, তারপর -joinপরবর্তী অক্ষর দিয়ে একটি স্ট্রিং মধ্যে যে অ্যারের গুলি একসঙ্গে, তারপর শেষে যে চরিত্রে tacks।

89আচরণটি আরও ভাল দেখতে আরও কিছু ASCII নম্বরে পরিবর্তন করুন ।


2

> <> , 44 34 বাইট

"BA"oao"ZA"\=?;1+40.
o1+:{::o}=?\:

এটি অনলাইন চেষ্টা করুন!

> <> , 44 বাইট

"A"o10ao\55*=?;1+40.
1+:{:}=?\:"A"+o{:}"A"+o

এটি অনলাইন চেষ্টা করুন!

আউটপুট উত্পাদন করতে আমি যেমন একটি পৃথক রুট ব্যবহার করি আমি নিজের নিজের <> উত্তর পোস্ট করেছি; অন্যান্য> << উত্তর এখানে পাওয়া যাবে।

জো কিংকে স্পট করার জন্য আপনাকে ধন্যবাদ জানাতে আমার যদি কেবল ২ "এর পরিবর্তে" জেড "এর সাথে তুলনা করা হয় তবে স্ট্যাকের উপরে" এ "লাগিয়ে রাখার দরকার ছিল না। (-10 বাইট)

ব্যাখ্যা

ব্যাখ্যা কোড প্রবাহ অনুসরণ করবে।

"BA"                 : Push "BA" onto the stack;
                       [] -> [66, 65]
    oao              : Print the stack top then print a new line;
                       [66, 65] -> [66]
       "ZA"\         : Push "ZA" onto the stack then move down to line 2;
                       [66, 90, 65]
o          \:        : Duplicate the stack top then print
 1+:                 : Add one to the stack top then duplicate;
                       [66, 90, 65, 65]
    {::              : Shift the stack right 1 place then duplicate the stack top twice;
                       [90, 65, 65, 66, 66]
       o}            : Print the stack top then shift the stack left 1 place;
                       [66, 90, 65, 65, 66]
         =?\         : Comparison for equality on the top 2 stack items then move to line 1 if equal otherwise continue on line 2;
                       [66, 90, 65]
           \=?;      : Comparison for equality on the top 2 stack items then quit if equal else continue on line 1;
                       [66]
               1+    : Add 1 to the stack top;
                       [67]
                 40. : Move the code pointer to column 4 row 0 of the code box and continue execution of code. 

36 বাইট । আপনার পদ্ধতিটি আমার চেয়ে অনেক ভাল
জো কিং

inb4 "ক্রস আউট 44 এখনও 44;" (
জো

@ জোকিং জেড এর সাথে তুলনা করার সাথে দুর্দান্ত স্পট, কেবলমাত্র উন্নতি আমি লাইন লজিককে সরিয়েছিলাম এবং সেই উদ্ধৃতি চিহ্নগুলি আবার ব্যবহার করে সংরক্ষণ করার জন্য স্ট্যাক আইটেমগুলির মাঝে জেড স্থাপন করছিলাম।
টিলে পেলিকান


1

পাইথ , 13 বাইট

+\ajmPjedd._G

এখানে চেষ্টা করুন! , বিকল্প

aযদিও এটি অগ্রণী ...


1
শুভ সকাল: পি
জোনাথন অ্যালান

@ জোনাথন অ্যালান মর্নিং ব্রো: পি আপনি এবং আপনার ভিতরের রসিকতা!
মিঃ এক্সকডার

1

জেলি , 13 বাইট

ØA¹Ƥ+"¹Ṗ€Yṭ”A

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

ØA¹Ƥ+"¹Ṗ€Yṭ”A  Main Link
ØA              Uppercase Alphabet
  ¹Ƥ            Prefixes
    +"¹         Doubly-vectorized addition to identity (uppercase alphabet) (gives lists of lists of strings)
       Ṗ€      a[:-1] of each (get rid of the double letters at the end)
         Y     Join on newlines
          ṭ”A  "A" + the result

জেলিতে স্ট্রিং এবং চরিত্রের তালিকার পার্থক্যটি আংশিকভাবে আপত্তিজনক


সেটা দ্রুত ছিল!
ফ্যান্ট্যাক

@tfbninja এহহ, জেলি এর জন্য 11 মিনিট ঠিক আছে। ধন্যবাদ যদিও: পি
হাইপার নিউট্রিনো

আপনি নিজের দ্বিতীয়টি (ডেনিসের মতো) ØAদিয়ে প্রতিস্থাপন করতে পারবেন¹
জোনাথন অ্যালান

@ জোনাথান অ্যালান ওহ দুর্দান্ত, ধন্যবাদ!
হাইপারনিউটারিনো


1

এপিএল + উইন, 51 বাইট

⍎∊'a←⎕av[65+⍳26]⋄a[n←1]',25⍴⊂'⋄,⊃a[⍳n-1],¨a[n←n+1]'

ব্যাখ্যা:

a←⎕av[65+⍳26] create a vector of upper case letters

a[n←1] first A

25⍴⊂'⋄,⊃a[⍳n-1],¨a[n←n+1]' create an implicit loop to concatenate subsequent letters

1

> <> , 47 বাইট

d2*:1-v
-&$:?!\$:&$:1
1-:?!v\69*-$1-:
+*88~< 1o

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে:

d2*:1-v Initialise the stack with 26 (outer loop counter) and 26-1 (inner loop counter)
....
....
....

....
-&$:?!\$:&$:1 Repeatedly make copies of both counters
....          And decrement the inner loop counter
....          Go to third line when inner loop counter is 0

....            Add -54 to the stack (for the newline) and decrement the outer loop counter
....            Initialise the inner loop counter as outer-1
1-:?!v\69*-$1-: If the inner counter is 0, go to the fourth line, else back to the second.
....

....
....      
....      Transform numbers and -54s into letters and newlines by adding 64
+*88~< 1o Output each character until it runs out of stack and errors



1

জিএনইউ এম 4, 119 বাইট

এখন পর্যন্ত সবচেয়ে খারাপ। ঠিক আছে, সময় ইতিমধ্যে ব্যয়…

define(f,`ifelse($1,$2,,`format(%c%c,$1,$2)`'f(incr($1),$2)')')define(g,`f(65,$1)ifelse($1,90,,`
g(incr($1))')')A
g(66)

1

হুশ , 13 বাইট

Γ·:mhSzJḣ…"AZ

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এই নেতৃস্থানীয় Aসত্যিই জিনিস গুলা আপ- .-

          "AZ  -- string literal: "AZ"
         …     -- fill gaps: "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     S         -- with alphabet and
        ḣ      -- | alphabet rangified: ["A","AB","ABC",…,"AB……XYZ"]
      zJ       -- : zipWith join: ["A","ABB","ACBCC","ADBDCDD",…,"AZB……ZYZZ"]
Γ              -- pattern match (x:xs) with the following function (x is "A" and xs ["ABB","ACBCC",…,"A……ZYZZ"]
 · mh          -- | drop the last element of each element of xs: ["AB","ACBC",…,"A……ZYZ"]
  :            -- | cons (construct list): ["A","AB","ACBC",…,"A……ZYZ"]
               -- : strings are printed implicitly

1

সি # (.নেট কোর)

কেভিন ক্রুইজসেনের উত্তর থেকে বন্দর :

91 90 বাইট

_=>{var t="";for(char c='@';++c<91;t+=c)Console.WriteLine(string.Join(c+"",t.Skip(0))+c);}

এটি অনলাইন চেষ্টা করুন!

132 122 110 109 104 103 বাইট

_=>"ABCDEFGHIJKLMNOPQRSTUVWXYZ".Select((c,i)=>string.Join(""+c,"ABCDEFGHIJKLMNOPQRSTUVWXYZ".Take(i))+c)

এটি অনলাইন চেষ্টা করুন!

  • প্রতিস্থাপন ()সঙ্গে _দেখাতে হবে যে আমরা একটি অব্যবহৃত পরিবর্তনশীল ডিক্লেয়ার। ধন্যবাদ কেভিন ক্রুইজসেন।

আপনি আমার জাভা উত্তরের মতো খালি অব্যবহৃত প্যারামিটার ব্যবহার করে এটি 90 বাইটেও হ্রাস করতে পারেন । o=>{...}পরিবর্তে তাই ()=>{...}অনলাইনে এটি ব্যবহার করে দেখুন: 90 বাইট
কেভিন ক্রুইজসেন 13

@ কেভিন ক্রুজসেন আমি জানি না! ধন্যবাদ!
অ্যালোইসডজি বলছেন পুনরায় ইনস্টল করুন মনিকা


1

জেলি , 22 বাইট

ØAż€Ð€`F€µJ’Ḥ»1ż@¹ḣ/€Y

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে:

                       take argument implicitly
ØA                     the uppercase alphabet
    Ѐ`                for C in the alphabet
  ż€                     appends C to every letter in the alphabet
       F€              flatten every sublist
          J            get indices
           ’           subtract 1
            Ḥ          and double
             »1        take max([n, 1])
         µ     ż@¹     interleave alphabet list and indices
                  ḣ/€  reduce on head() for each element
                     Y join on newline
                       implicitly output




আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.