Thực hiện một tìm kiếm bảng chữ cái!


66

Lấy cảm hứng từ một lỗi trong giải pháp cho thử thách này , thử thách của bạn là tạo ra văn bản chính xác này:

                         ZYXWVUTSRQPONMLKJIHGFEDCBA
                        YXWVUTSRQPONMLKJIHGFEDCBA
                       XWVUTSRQPONMLKJIHGFEDCBA
                      WVUTSRQPONMLKJIHGFEDCBA
                     VUTSRQPONMLKJIHGFEDCBA
                    UTSRQPONMLKJIHGFEDCBA
                   TSRQPONMLKJIHGFEDCBA
                  SRQPONMLKJIHGFEDCBA
                 RQPONMLKJIHGFEDCBA
                QPONMLKJIHGFEDCBA
               PONMLKJIHGFEDCBA
              ONMLKJIHGFEDCBA
             NMLKJIHGFEDCBA
            MLKJIHGFEDCBA
           LKJIHGFEDCBA
          KJIHGFEDCBA
         JIHGFEDCBA
        IHGFEDCBA
       HGFEDCBA
      GFEDCBA
     FEDCBA
    EDCBA
   DCBA
  CBA
 BA
A
  • Dòng đầu tiên sẽ có 25 khoảng trắng, sau đó bảng chữ cái ngược bắt đầu từ chữ cái thứ 26 ( ZYXWVUTSRQPONMLKJIHGFEDCBA), sau đó là một dòng mới.
  • Dòng thứ hai sẽ có 24 khoảng trắng, sau đó bảng chữ cái ngược bắt đầu từ chữ cái thứ 25 ( YXWVUTSRQPONMLKJIHGFEDCBA), sau đó là một dòng mới.
  • ...
  • Dòng cuối cùng (26) sẽ không có khoảng trắng, sau đó bảng chữ cái ngược bắt đầu từ chữ cái 1 ( A), sau đó là một dòng mới.

Quy tắc bổ sung:

  • Chương trình của bạn có thể sử dụng bất kỳ phương thức đầu ra được phép.
  • Một dòng mới và / hoặc một dòng mới hàng đầu được cho phép.
  • Phải có một dòng mới giữa các dòng chứa các chữ cái, không còn nữa.
  • Các chữ cái phải là tất cả chữ hoa.

Như với , bài nộp ngắn nhất sẽ thắng. Chúc may mắn!

Bảng xếp hạng:


3
Đối với tôi, nó trông giống như ánh sáng được tạo ra bởi tín hiệu dơi
scottinet


Mỗi dòng có thể có thêm một không gian phía trước nó?
HyperNeutrino

3
Mỗi dòng có thể có dấu cách sau chữ cái cuối cùng không?
dặm

1
@miles vâng, điều đó tốt.
MD XF

Câu trả lời:


19

05AB1E , 7 byte

Mã số:

₂žp.s1Λ

Sử dụng mã hóa 05AB1E . Hãy thử trực tuyến!

Giải trình

 žp.s      # Get the suffixes of ZYX...CBA
      Λ    # Using the canvas mode, print the
₂          # first 26 elements of the array
     1     # into the upper-right direction

2
@MDXF IMO, đó là một quy tắc thực sự ngu ngốc
DJMcMayhem

3
Hmm ... tôi đoán tôi sẽ loại bỏ quy tắc. hoàn thành trạng thái
MD XF

2
Tôi có thể đề xuất một tài liệu PR tính năng đó khi tôi tìm thấy thời gian. Có vẻ là một cách tốt để tìm hiểu một chút về con trăn từ một mã được viết tốt, dễ đọc
scottinet

6
Tại sao žptồn tại khi Auvàng? BADUM Marionss
Bạch tuộc ma thuật Urn

5
Sử dụng 05AB1E, tạo một tệp tài liệu về tất cả các tính năng của nó, rút ​​ngắn mã thắng: P
Christian

22

R , 67 55 byte

for(i in 26:1)cat(rep(" ",i-1),LETTERS[i:1],"
",sep="")

Hãy thử trực tuyến!


4
R đang đánh bại Python trong một thử thách chuỗi? Đẹp. +1 cho LETTERS
CriminallyVulgar

1
@CriminallyVulgar đó là một thử thách rất kỳ lạ; Haskell đang đánh bại sự ràng buộc của PHP và R, cả hai đều đánh bại Python ... ít nhất Perl vượt lên trên tất cả chúng như bạn mong đợi.
CR Drost

-2 byte nếu bạn thay đổi septhành s. Các hàm sẽ tự động hoàn thành các đối số được đặt tên nếu không có xung đột
Trừng phạt vào

1
@Punintends sẽ không hoạt động vì ...lý lẽ; các đối số đến trước ...(thường) được khớp một phần và các đối số sau không. Tôi tin rằng có một vài ngoại lệ nhưng catkhông phải là một trong số đó
Giuseppe

@Giuseppe Tôi không thấy...
MilkyWay90


15

V , 13 , 11 byte

¬ZAòY>HGpxl

Hãy thử trực tuyến!

Hexdump:

00000000: ac5a 41f2 593e 4847 7078 6c              .ZA.Y>HGpxl

Viết từ điện thoại của tôi: P.

¬ZA         " Insert the alphabet backwards
   ò        " Recursively:
    Y       "   Yank this current line
     >H     "   Add one space to every line
       G    "   Move to the last line in the buffer
        p   "   Paste the line we yanked
         x  "   Delete one character
          l "   Move one character to the right, which will throw an error on 
            "   the last time through, breaking the loop

1
Tôi cũng làm những điều này trên điện thoại của mình, +1
Stan Strum

12

PowerShell , 42 byte

25..0|%{' '*$_+-join[char[]]((65+$_)..65)}

Hãy thử trực tuyến!

Giải trình:

25..0|%{                                 } # Loop from 25 to 0
                             (65+$_)..65   # Construct a range of the specific ASCII codes
                    [char[]](           )  # Cast that as a character array
               -join                       # that has been joined together into a string
        ' '*$_+                            # Prepended with the correct amount of spaces


10

/// , 105 97 byte

/:/\\\\*//#/:Z:Y:X:W:V:U:T:S:R:Q:P:O:N:M:L:K:J:I:H:G:F:E:D:C:B:A//\\*/\/\/_____#
\/ //_/     //*#

Hãy thử trực tuyến!

Giải trình

/// chỉ biết một lệnh, /<pattern>/<substitution>/<text>thay thế tất cả các lần xuất hiện <pattern>trong <text>bằng <substitution>. Ngoài ra \có thể được sử dụng để thoát nhân vật.

Mã rút gọn để đơn giản:

/:/\\\\*//#/:E:D:C:B:A//\\*/\/\/__#
\/ //_/  //*#

Lệnh đầu tiên /:/\\\\*/thay thế :bằng \\*trong mã tiếp theo. Điều này mang lại:

/#/\\*E\\*D\\*C\\*B\\*A//\\*/\/\/__#
\/ //_/  //*#

Sau đó /#/\\*E\\*D\\*C\\*B\\*A/thay thế #bằng \*E\*D\*C\*B\*A:

/\\*/\/\/__\*E\*D\*C\*B\*A
\/ //_/  //*\*E\*D\*C\*B\*A

Sau đó /\\*/\/\/__\*E\*D\*C\*B\*A<newline>\/ /thay thế \*bằng //__*E*D*C*B*A<newline>/:

/_/  //*//__*E*D*C*B*A
/ E//__*E*D*C*B*A
/ D//__*E*D*C*B*A
/ C//__*E*D*C*B*A
/ B//__*E*D*C*B*A
/ A

Lưu ý: Tôi đã phải sử dụng \*để thay thế. Vì *cũng là một phần của sự thay thế, nó sẽ tạo ra một vòng lặp vô hạn nếu tôi chỉ thay thế *.

Sau đó, lệnh /_/ /thay thế _bằng khoảng trắng và /*//xóa tất cả *:

EDCBA
/ E//    EDCBA
/ D//    EDCBA
/ C//    EDCBA
/ B//    EDCBA
/ A

Lệnh tiếp theo /#//thay thế #bởi không có gì. Vì không có #trong mã, nó không làm gì cả. Đây chỉ là ở đây để loại bỏ hai phần dẫn //từ đầu mã. Cái lá này

EDCBA
/ E//    EDCBA
/ D//    EDCBA
/ C//    EDCBA
/ B//    EDCBA
/ 

Sau đó, lệnh / E//sẽ loại bỏ <space>E, vì vậy điều này sẽ để lại mã

    EDCBA
   DCBA
/ D//   DCBA
/ C//   DCBA
/ B//   DCBA
/ 

Loại / D//bỏ tương tự <space>D:

    EDCBA
   DCBA
  CBA
/ C//  CBA
/ B//  CBA
/ 

/ C//:

    EDCBA
   DCBA
  CBA
 BA
/ B// BA
/ 

/ B//:

    EDCBA
   DCBA
  CBA
 BA
A
/ 

Và lệnh cuối cùng là không đầy đủ, vì vậy nó không làm gì cả:

    EDCBA
   DCBA
  CBA
 BA
A

Độ dài tương tự như câu trả lời C # và brainfuck: D
Conor O'Brien

9

Haskell, 53 52 byte

f(a:b)=(b>>" ")++a:b++'\n':f b
f x=x
f['Z','Y'..'A']

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

f['Z','Y'..'A']        -- call f with the full backwards alphabet

f(a:b)=                -- let `a` be the first char and `b` the rest. Return
   (b>>" ") ++         -- replace each char in b with a space, followed by
   a:b ++              -- the input string, followed by
   '\n' :              -- a newline, followed by
   f b                 -- a recursive call of `f` with `b`
f x=x                  -- stop on an empty input string

Tại sao không f['Z'..'A']làm việc?
Conor O'Brien

1
@ ConorO'Brien: [a..b]bắt đầu với avà thu thập tất cả những người kế nhiệm ( +1đối với số nguyên, ascii-char tiếp theo cho các ký tự, v.v.) cho đến b. Nếu a > bđây là một danh sách trống. Tuy nhiên, bạn cũng có thể chỉ định giá trị thứ hai (có thể nhỏ hơn) từ đó tính toán tăng / giảm. [1,3..8]-> [1,3,5,7], [15,10..0]-> [15,10,5,0], hoặc ['Z','Y'..'A']là bảng chữ cái viết hoa ngược.
nimi

À, tôi hiểu rồi. Cảm ơn!
Conor O'Brien

8

Con trăn 2 , 66 64

i=26
while i:i-=1;print' '*i+'ZYXWVUTSRQPONMLKJIHGFEDCBA'[25-i:]

Hãy thử trực tuyến!


1
Chào mừng bạn đến với Câu đố lập trình & Code Golf - câu trả lời đầu tiên tốt đẹp!
MD XF

2
Cảm ơn! Hình tôi sẽ thử nó thay vì chỉ rình rập.
Artemis_134

2
Bạn có thể loại bỏ khoảng trắng giữa print'cho 65 byte.
Ông Xcoder

Tôi chuyển câu trả lời của bạn vào Pyth, hãy xem: codegolf.stackexchange.com/a/141939/63757
Stan Strum

7

JavaScript (ES6), 83 77 76 byte

f=(n=0,p='')=>n<26?f(++n,p+' ')+p+`ZYXWVUTSRQPONMLKJIHGFEDCBA
`.slice(~n):''

o.innerText = f()
<pre id=o>


Tôi đã muốn đề nghị bạn cải thiện, nhưng sau đó tôi nhận ra rằng cách tiếp cận của chúng tôi rất khác nhau. Hy vọng bạn không phiền.

@ThePirateBay Không có vấn đề!
Arnauld

7

Thạch , 12 byte

ØAµ⁶ṁḊ;ṚµƤṚY

Hãy thử trực tuyến!

ØAµ⁶ṁḊ;ṚµƤṚY  Main Link
ØA            "ABC...XYZ"
         Ƥ    For each prefix,
  µ⁶ṁḊ;Ṛµ     Monadic Link
   ⁶          ' '
    ṁ         (with automatic repetition) molded to the shape of
     Ḋ        All but the first letter of the input (repeat - 1)
      ;       With the input          appended to it
       Ṛ                     reversed
           Y  Join on newlines

-3 byte nhờ dặm



@LeakyNun Oh cảm ơn rất tuyệt!
HyperNeutrino

Yay, một cách sử dụng khác cho tiền tố nhanh chóng. 12 byte kể từ khuôn sẽ định hình lại ở đây bằng cách sử dụng chiều dài ngầm.
dặm

@LeakyNun Thật ra, thật không may, điều đó sẽ làm cho nó không hợp lệ vì không thể có thêm khoảng trắng (sẽ mất 2 byte để sửa)
HyperNeutrino

7

Brainfuck , 105 byte

++++++++[>+>+++++++++++>++++>+++<<<<-]>++>++>>++[[->+>+<<]>-[-<<.>>]>[-<<<<.->>>+>]<-[-<+<<+>>>]<<<<.>>>]

Hãy thử trực tuyến!

Thu nhỏ và định dạng:

++++++++[>+>+++
++++++++>++++>+
++<<<<-]>++>++>
>++[[->+>+<<]>-
[-<<.>>]>[-<<<<
.->>>+>]<-[-<+<
<+>>>]<<<<.>>>]

Phiên bản dễ đọc:

[
  pre-initialize the tape with the values 10 90 32 >26<
  C_NEWLINE: 10
  V_ALPHA: 90
  C_SPACE: 32
  V_COUNTER: 26

AS:

  10 = 8 *  1 + 2
  90 = 8 * 11 + 2
  32 = 8 *  4 + 0
  26 = 8 *  3 + 2
]

8 ++++++++ [
  *  1 >+
  * 11 >+++++++++++
  *  4 >++++
  *  3 >+++
<<<<-]
PLUS 2 >++
PLUS 2 >++
PLUS 0 >
PLUS 2 >++

UNTIL V_COUNTER == 0 [
  COPY V_COUNTER to RIGHT and RIGHT_RIGHT
  [->+>+<<]
  TAPE: 10 V_ALPHA 32 >0< V_COUNTER_R V_COUNTER_RR
  V_COUNTER_R SUB 1 TIMES: >-[-
     PRINT C_SPACE <<.
  >>]
  TAPE: 10 V_ALPHA 32 0 >0< V_COUNTER_RR
  V_COUNTER_RR TIMES: >[-
    PRINT V_ALPHA <<<<.
    DECREMENT V_ALPHA -
    INCREMENT V_COUNTER_R >>>+
  >]
  TAPE: 10 V_ALPHA 32 0 V_COUNTER_R(26) >0<
  V_COUNTER_R SUB 1 TIMES: <-[-
    INCREMENT V_COUNTER <+
    INCREMENT V_ALPHA <<+
  >>>]
  PRINT C_NEWLINE <<<<.
>>>]


6

Thơ mộng , 601 byte

one night i camped a bit
throughout all the forest now
the sweet sights
i saw giant things
i saw little small things
here i am
seated around all my trees i saw
i sleep
i sle-e-p
sleep in a cabin
i am sleep-y
i sleep a bit
i awaken in bed
i stand
i walk
i am ready
i saw a vision of a dragon
i am fooled
i know i am
should i f-ight
i f-light
i did f-light
i did a flight
go away,i do imply
i*m afraid
i run
i leave
i flee
i am timid
i*m just a person,not toughie-tough-guy
no,never
i*m waste
i am stupid
a quitter i was
i am stupid
i*m turning around
i do not appreciate camping
i cry
i am crying
no
no

Poetic là một esolang tôi đã tạo vào năm 2018 cho một dự án lớp và nó là một dẫn xuất brainfuck trong đó độ dài của các từ tương ứng với các lệnh brainfuck (và các lệnh +, -,> và <mỗi lệnh có các đối số 1 chữ số).

Thực tế là chỉ có độ dài từ chỉ ra các lệnh có nghĩa là về mặt kỹ thuật tôi có thể tạo ra một chương trình hoàn toàn gồm các từ không (nghĩa là chữ X nhiều lần khi cần, với khoảng trắng ở giữa các từ), nhưng tôi muốn tạo ra một điều thú vị bài thơ tự do ra khỏi nó trong khi không thêm bất kỳ byte không cần thiết.

Nếu bạn muốn thử trực tuyến (là một nửa điểm của dự án lớp học ở nơi đầu tiên), hãy xem trình thông dịch trực tuyến của tôi !


Tại sao điều này không cạnh tranh?
pppery

Ngôn ngữ được tạo ra sau thử thách.
JosiahRyanW


Hừm, tôi đoán điều đó giúp tôi có thêm động lực để sử dụng Poetic làm ngôn ngữ lập trình! Heh.
JosiahRyanW

5

05AB1E , 10 byte

žpDvÐg<ú,¦

Hãy thử trực tuyến!

Giải thích:

žpDvÐg<ú,¦
žp           Push the uppercased alphabet, reversed
  D          Duplicate
   v         For each letter (we just want to loop 26 times, so we use the 
                already pushed alphabet for that purpose)
    Ð        Triplicate
     g<      Length of the string - 1
       ú     Add that number of spaces at the beginning of the string
        ,    Print with newline
         ¦   Remove the 1st element of the remaining copy of the string

5

Perl 6 , 37 byte

Đã lưu 9 byte nhờ @Massa.

say " "x$_,chrs $_+65...65 for 25...0

Hãy thử trực tuyến!

Giải thích: 25...0 là một phạm vi từ 25 đến 0 (như mong đợi). Chúng tôi lặp lại trong phạm vi đó, nói (= in bằng dòng mới) rằng nhiều khoảng trắng và chuỗi ký tự có mã ASCII ( chrs) từ 65 + số đó ( $_+65...65).


1
25...0 là cách ngắn hơn :-)
Massa

thử say " "x$_,chrs $_+65...65 for 25...0:-)
Massa

Cảm ơn nhiều! Tôi chưa bao giờ biết về điều đó! Và hình thức phụ cũng tốt hơn (quá tệ, tôi đã tạo cái này từ đỉnh đầu). (Đây là lý do tại sao tôi thích sử dụng Perl 6 cho codegolf, tôi luôn khám phá một cái gì đó mới.)
Ramillies

4

Than , 19 11 byte

-8 byte chỉ nhờ ASCII.

F²⁶«P⮌…α⊕ι↗

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng.


Điều này có thể? tio.run/##S85ILErOT8z5/ Cách
ASCII chỉ

Chờ đã, không có không gian hàng đầu
ASCII - chỉ

Con trai của một ... Tôi cần xem qua từng mệnh lệnh và toán tử Char than có. > _> Cảm ơn!
hoàn toàn là

Cố định tio.run/...
ASCII chỉ

1
Chỉ có ASCII CycleChop... nhưng bạn đã quên Increment(hoặc bất cứ thứ gì nó được gọi)
Erik the Outgolfer

4

Perl 5 , 36 byte

Mã 35 byte + 1 cho -p.

$\=$"x$-++.($a=$_.$a).$/.$\for A..Z

Lưu ý : TIO không hỗ trợ đầu vào trống , do đó, một dòng mới được cung cấp, điều này dẫn đến một dòng mới không liên quan, nhưng khi chạy ở dòng lệnh với đầu vào trống, điều này không được hiển thị.

Hãy thử trực tuyến!



4

Khối , 43 46 byte

$/\;u:\s/':(!$u;:'@^!@Wu;oSU;o+<u(;;oN;(!|

Hãy thử trực tuyến!

Tạo khối

      $ / \
      ; u :
      \ s /
'  : ( ! $ u ; : ' @ ^
! @ W u ; o S U ; o + <
u ( ; ; o N ; ( ! | . .
      . . .
      . . .
      . . .

Xem nó chạy

Đã xoay sở để cạo thêm một vài thứ này, nhưng nó khó hơn một chút so với tôi nghĩ. Có một nhân vật thay thế sau trích dẫn đầu tiên để cho tôi 26.

  • '<sub> đẩy 26 lên ngăn xếp làm số cơ sở
  • :(! cơ sở trùng lặp như một bộ đếm, giảm giá, kiểm tra tính trung thực
  • utrên đúng bỏ qua $lệnh và u-rẽ sang phải
    • So;u đẩy 32, xuất ra dưới dạng ký tự, bật 32 và u rẽ phải vào phần giảm
  • $trên sai nhảy ulệnh tiếp theo
  • ;:'@^ bật, nhân đôi số cơ sở, đẩy 64 lên ngăn xếp và chuyển hướng vào một tuyến đường quanh co
  • $\s/:\/u;$đây là thứ tự của các bước trên mặt trên. Nó sôi sùng sục để trao đổi bộ đếm với 64. Kết thúc bằng việc bỏ qua chuyển hướng đặt nó ở đây.
  • <+o;U chuyển hướng để thêm, xuất ký tự, pop, u-rẽ trái
  • (!giảm, kiểm tra cho sự thật. Nếu đúng bắt đầu trên một con đường chạm vào ngã rẽ và quay trở lại chuyển hướng.
  • |(;No trên sai, phản ánh, kiểm tra dự phòng, giảm dự phòng, pop, đẩy 10 và ký tự đầu ra
  • ;;(u!@Wbật xuống số cơ sở, giảm dần, rẽ phải vào bài kiểm tra trung thực, tạm dừng nếu sai nếu không đổi làn đường vào bản sao lúc đầu. Rửa sạch và lặp lại.

4

Python, 83 byte

[print(' '*i+''.join([chr(64+i)for i in range(i+1,0,-1)]))for i in range(25,-1,-1)]

Câu trả lời đầu tiên của tôi về codegolf :)


1
Chào mừng đến với PPCG! câu trả lời tốt đẹp
Conor O'Brien



3

JavaScript, 75 74 byte

Lưu 1 byte nhờ Rick Hitchcock

f=(a=65,b='',c)=>a>90?'':f(a+1,b+' ',c=String.fromCharCode(a)+[c])+`
`+b+c

Hãy thử trực tuyến!


Lưu một byte bằng cách khởi tạo b( b=''), sau đó lấy bra khỏi dấu ngoặc vuông.
Rick Hitchcock

@RickHitchcock. Cảm ơn.

3

Perl 5 , 49 byte

$_=$"x26 .join'',reverse A..Z,Z;say while s/ \S//

Hãy thử trực tuyến!


Có vẻ như bạn đang thiếu cái đầu tiên A, nhưng dường như có thể sửa được bằng cách thay đổi $"x25thành $"x26!
Dom Hastings

Khi tôi thêm phần bổ sung Z, tôi quên mất tài khoản đó.
Xcali

3

Pyke , 8 byte

G_.<XFo}h-

Hãy thử nó ở đây!

           -  o = 0
G_         -    reversed(alphabet)
  .<       -   suffixes(^)
    XF     -  for i in ^:
      o    -      o++
       }   -     ^ * 2
        h  -    ^ + 1
         - -   i.lpad(" ", ^)
           - for i in reversed(^):
           -  print i

Tôi có thể thấy ngôn ngữ phù hợp thực hiện điều này trong 6 byte nếu chúng có nội dung tích hợp prepend n spaces to stringcũng như những gì Pyke làm


3

PHP ( 63 58 55 byte)

Đây có thể là góc kỳ lạ yêu thích của tôi về PHP, một góc mà nó thừa hưởng từ Perl:

for($c=A;$c!=AA;$q="$s$z 
$q",$s.=" ")$z=$c++.$z;echo$q;

Điều này xuất ra dòng mới, như được cho phép rõ ràng. Điều này có thể được chạy vào php -rđể lưu mở <?phpcần thiết để đặt điều này trong một tập tin.

Giải thích: khi một biến chứa chuỗi 'A'được tăng lên trong PHP, nó sẽ trở thành 'B'và sau đó 'C'cho đến khi 'Z'trở thành 'AA'. Không có chữ số nào trước đó 'A'để bắt đầu với đại số madcap này và toán tử giảm dần không hoàn tác nó, vì vậy chúng tôi lưu bảng chữ cái đảo ngược tăng dần $z(mặc định NULLkhi nó được nối với một chuỗi hoạt động giống như chuỗi rỗng - cùng xảy ra với $s$q). Khoảng trắng được tích lũy trong $svà toàn bộ chuỗi được tích lũy ngược trong biến $qcó nghĩa là chúng ta phải lặp lại nó ở cuối.

Cảm ơn Titus vì đã chơi golf niềng răng của tôi và nói với tôi rằng tôi không cần phải chịu một hình phạt nào đối với các cờ đánh giá nội tuyến như thế nào -r.


1
Đó là 57 byte, nếu bạn sử dụng ngắt dòng linux. -rlà miễn phí. Hai byte ngắn hơn:for($c=A;$c!=AA;$q="$s$z\n$q",$s.=" ")$z=$c++.$z;echo$q;
Tít

@Titus cảm ơn, đã cho bạn một câu trả lời.
CR Drost

bước sóng. Chỉ cần lưu ý -R-Fkhông miễn phí. Xem codegolf.meta.stackexchange.com/questions/2424/ từ
Titus

Tôi tin rằng bạn có thể lưu một byte nếu bạn sử dụng $c<AA.
Ismael Miguel

1
@IsmaelMiguel xin lỗi, tôi đã quá ngắn gọn. Tôi đã suy nghĩ khi tôi viết rằng, "có thể có một cách xáo trộn mọi thứ xung quanh mà không thu được byte để trường hợp A xảy ra trước và sau đó chúng ta có thể phát hiện ra AA so với B nhưng tôi không nghĩ rằng mình đủ thông minh để nhìn thấy nó . " Tôi không có ý nói thiếu sót và tôi sẽ cố gắng đề phòng điều đó trong tương lai.
CR Drost

3

Chỉ tò mò, phiên bản nén là bao lâu?
caird coinheringaahing

@cairdcoinheringaahing TL; DR quá dài. Nén SOGL hút tại (và đặc biệt không dành cho) công cụ lặp đi lặp lại. Sẽ rất khó để nói rằng việc nén không được tự động hóa (tự động hóa sẽ khiến nó mất 701 choose xcác số nguyên x) nhưng một nỗ lực thô sơ là 450 byte: P
dzaima


Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.