Виходячи з цього питання Math.SE ; номер скопійований з цієї відповіді . Номер , звичайно, з відеофільмів Numberphile , звичайно.

Ваше завдання - вивести таке 1350-розрядне просте число:

888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888111111111111111111111111888888111111111111111111111111888888111111811111111118111111888888111118811111111118811111888888111188811111111118881111888888111188811111111118881111888888111888811111111118888111888888111888881111111188888111888888111888888111111888888111888888111888888888888888888111888888111888888888888888888111888888111888888888888888888111888888811188888888888888881118888188811188888888888888881118881188881118888888888888811188881118888111888888888888111888811111888811118888888811118888111111188881111111111111188881111111118888111111111111888811111111111888811111111118888111111111111188881111111188881111111111111118888811118888811111111111111111888881188888111111111111111111118888888811111111111111111111111888888111111111111111111111111118811111111111111111111111111111111111111111111062100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001

Ви можете необов'язково включати нові рядки у висновок.

Правила

Це колгогоров-складність , тому ніякого введення немає.
Ваша програма повинна закінчитися протягом однієї години на звичайному комп’ютері - якщо вона закрита, я використаю свою для тестування. Якщо ваша програма працює більше хвилини або не закінчується в TIO, будь ласка, включіть час на комп’ютері.
Це код-гольф , тому найкоротший код у байтах виграє.

code-golf kolmogorov-complexity primes

— Стівен
джерело

3

"номер спочатку з номер-відео" Я думаю, що це спочатку від професора mckee: P

— undergroundmonorail

Що з цим розквітом ?

— серхіол

31

Желе , 74 71 69 68 66 байт

“©ạ-3ṗÇñ"ỤḍV8żṢ?ḤsMVE[,Ṃƭ"ḞÇsẇʂ(ụFsẠʂẆŀṣ’ḃ19ĖŒṙị⁾81s30m0Z062 ȷ446‘

Спробуйте в Інтернеті!

Як це працює

Буквал “©ạ-3ṗÇñ"ỤḍV8żṢ?ḤsMVE[,Ṃƭ"ḞÇsẇʂ(ụFsẠʂẆŀṣ’замінює всі символи їх кодовими точками на кодовій сторінці Jelly і інтерпретує результат як (бієктивне) число базового-250, отримуючи наступне ціле число.

103877200905186099028820568168804302565394743652609510039112658230540917082292838565138059974

Потім ḃ19перетворює це число в біективну базу 19, отримуючи наступний масив.

16,14,18,12,19,11,3,12,5,10,3,14,4,9,3,15,4,8,3,6,6,4,4,7,3,4,10,3,4,6,3,3,12,3,4,5,3,2,14,3,4,4,3,7,9,4,3,4,3,8,9,4,3,3,3,9,8,4,4,2,3,9,8,5,3,2,3,9,8,6,3,1

Тепер ĖŒṙперераховує цифри та виконує декодування довжини виконання, отримуючи наступний масив.

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,10,10,10,10,10,10,10,10,10,10,11,11,11,12,12,12,12,12,12,12,12,12,12,12,12,12,12,13,13,13,13,14,14,14,14,14,14,14,14,14,15,15,15,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,17,17,17,17,18,18,18,18,18,18,18,18,19,19,19,20,20,20,20,20,20,21,21,21,21,21,21,22,22,22,22,23,23,23,23,24,24,24,24,24,24,24,25,25,25,26,26,26,26,27,27,27,27,27,27,27,27,27,27,28,28,28,29,29,29,29,30,30,30,30,30,30,31,31,31,32,32,32,33,33,33,33,33,33,33,33,33,33,33,33,34,34,34,35,35,35,35,36,36,36,36,36,37,37,37,38,38,39,39,39,39,39,39,39,39,39,39,39,39,39,39,40,40,40,41,41,41,41,42,42,42,42,43,43,43,44,44,44,44,44,44,44,45,45,45,45,45,45,45,45,45,46,46,46,46,47,47,47,48,48,48,48,49,49,49,50,50,50,50,50,50,50,50,51,51,51,51,51,51,51,51,51,52,52,52,52,53,53,53,54,54,54,55,55,55,56,56,56,56,56,56,56,56,56,57,57,57,57,57,57,57,57,58,58,58,58,59,59,59,59,60,60,61,61,61,62,62,62,62,62,62,62,62,62,63,63,63,63,63,63,63,63,64,64,64,64,64,65,65,65,66,66,67,67,67,68,68,68,68,68,68,68,68,68,69,69,69,69,69,69,69,69,70,70,70,70,70,70,71,71,71,72

Потім ị⁾81індексується у рядок 81 , замінюючи непарні числа символом 8 , парне число символом 1 . Потім s30розподіляє результат на шматки довжиною 30. Відображаючи по одному шматку на рядок, результат виглядає наступним чином.

888888888888888811111111111111
888888888888888888111111111111
888888888888888888811111111111
888111111111111888881111111111
888111111111111118888111111111
888111111111111111888811111111
888111111888888111188881111111
888111188888888881118888111111
888111888888888888111888811111
888118888888888888811188881111
888111111188888888811118881111
888111111118888888881111888111
888111111111888888881111888811
888111111111888888881111188811
888111111111888888881111118881

Тепер m0об'єднайте масив фрагментів із зворотною копією самого себе. Згодом Zзафіксуйте результат, перемістивши рядки та стовпці.

888888888888888888888888888888
888888888888888888888888888888
888888888888888888888888888888
888111111111111111111111111888
888111111111111111111111111888
888111111811111111118111111888
888111118811111111118811111888
888111188811111111118881111888
888111188811111111118881111888
888111888811111111118888111888
888111888881111111188888111888
888111888888111111888888111888
888111888888888888888888111888
888111888888888888888888111888
888111888888888888888888111888
888811188888888888888881118888
188811188888888888888881118881
188881118888888888888811188881
118888111888888888888111888811
111888811118888888811118888111
111188881111111111111188881111
111118888111111111111888811111
111111888811111111118888111111
111111188881111111188881111111
111111118888811118888811111111
111111111888881188888111111111
111111111118888888811111111111
111111111111888888111111111111
111111111111118811111111111111
111111111111111111111111111111

0є непридатним nilad, тому результат з попереднього періоду друкується (без розривів рядків), а повернене значення встановлюється на 0 .

62- це ще одна непридатна величина, тому результат друкується раніше ( 0 ) і повертається значення 62 .

ȷ446є ще одним незрівнянним молодиком. 62 друкується, а значення повернення встановлюється на 10 ⁴⁴⁶ .

Нарешті, ‘збільшує результат. Кінцевий результат ( 10 ⁴⁴⁶ + 1 ) друкується після завершення програми.

— Денніс
джерело

ooo cool, будь ласка, додайте пояснення: D

— HyperNeutrino

@HyperNeutrino на основі результатів (але при моїй повній відсутності знань желе) відбувається деяке дзеркальне відображення чи щось подібне

— Стівен

1

@Stephen Ну я маю на увазі, спочатку це якесь фантазійне число, а потім перетворення в "біективну базу щось" (що б це не означало, я зрозумію це), а потім перелічую, а потім пробігайте, а потім індексуйте на [8, 1]... О, це розумно! Я вкраду цей трюк, я сподіваюся, що ви не заперечуєте :))), а потім так, додайте всі ті дивні речі 06210..01. приємно :)

— HyperNeutrino

2

@HyperNeutrino Додав пояснення.

— Денніс

Вгору голосували лише за "графіку". Це досить солодко, хоч би я зрозумів Jelly :)

— pinkfloydx33

7

SOGL V0.12 , 81 78 75 73 байт

$!╚Qαūπōθ(└↓Υ8Π⁶!√|ΠΚψ░⅜Υ‛⁷>∙↓ts3]δεΧ‰“8«─'½Κ81¹¹I⌡_¹◄ø∑'¹n╬³0621"η“⌡01⁰∑

Спробуйте тут!

Пояснення:

...“                 push a big number of the RLE lengths of the top part
    8«─              convert from base 10 to base 16 (15 was the max length, and making it base 15 wasn't worth it)
       '½Κ           prepend to the array 48
          81¹        push [8, 1]
             ¹       wrap those two in an array
              I      rotate clockwise, resulting in [[8, 48], [1, 2], [8, 9], [1, 12], ...]
               ⌡_¹   flatten (iterate over, splat current items contents on stack, collect the contents in an array)
                  ◄  run-length decode

ø∑                   join as a string
  '¹n                split into lines of length 15
     ╬³              palindromize horizontally with no overlap
       0621          push 0, 6, 2, and 1
           "η“       push 445
              ⌡      that many times do
               0       push 0
                1    push 1
                 ⁰∑  join the stack together in a string

— дзайма
джерело

6

Желе , 136 байт

“ßṪṭAƭẠvµM⁾ṖOḥ⁻Ɠ×Ṣ~*pṭẒFỵṿ¦4ÇḟọLÑOcKɲ⁶2*Ḣɲ’b45;@€1ẋ/€ø“Œ\⁴rrNỊġ:,xƙŒ#ṠƲQçḷĠ%&⁻ɼiḂŀB<Ȧƈg(Ṇb>TḥḄ|ḃṘƬ#l7ƇØṃ’b94;@€8ẋ/€ðżF;0;6;2;1;0ẋ445¤;1Ḍ

Спробуйте в Інтернеті!

Пояснення (цифри скорочені)

“ßṪṭ...*Ḣɲ’b45;@€1ẋ/€ø“Œ\⁴...ƇØṃ’b94;@€8ẋ/€ðżF;0;6;2;1;0ẋ445¤;1Ḍ  Main link
“ßṪṭ...*Ḣɲ’b45;@€1ẋ/€                                             Run-length encoded 1s
“ßṪṭ...*Ḣɲ’                                                      The base-45 encoding of the list of the run-lengths of 1s
           b45                                                    in base 45
                €                                                 For each element
              ;@                                                  prepend
                 1                                                1
                    €                                             For each sublist
                   /                                              Reduce over
                  ẋ                                               Repeat list (this gets a bunch of lists of 1s)
                     ø“Œ\⁴...ƇØṃ’b94;@€8ẋ/€                       Run-length encoded 8s
                      “Œ\⁴...ƇØṃ’                                 The base-94 encoding of the list of the run-lengths of 8s
                                 b94                              in base 94
                                      €                           For each element
                                    ;@                            prepend
                                       8                          8
                                          €                       For each sublist
                                         /                        Reduce over
                                        ẋ                         Repeat list (this gets a bunch of lists of 8s)
                                           ðżF;0;6;2;1;0ẋ445¤;1Ḍ  With both of the previous lists of lists, construct the final string
                                            ż                     Interleave them
                                             F                    Flatten it
                                              ;0                  Append 0
                                                ;6                Append 6
                                                  ;2              Append 2
                                                    ;1            Append 1
                                                      ;           Append
                                                       0ẋ445¤     (Nilad)
                                                       0          0
                                                        ẋ445      445 times
                                                             ;1   Append 1
                                                               Ḍ  Convert decimal digits to a number

-121 байт завдяки Деннісу, який використовує “...’буквали замість нормальних чисел

— HyperNeutrino
джерело

“...’літерали зберігають купу байтів. tio.run/…

— Денніс

@Dennis О, боже, це ще не читабельніше. Гарний! Спасибі! : D

— HyperNeutrino

0;6;2;1;здається жахливо багатослівним.

— Чарівна урва восьминога

@MagicOctopusUrn Так, я, мабуть, міг би це досить скоротити; Я перегляну це колись: P

— HyperNeutrino

6

Желе , 133 84 73 байт

“÷iþṃL7[ḲʂƘⱮ=ƬƤ¬`RẹŀẹY÷n£ị€ıø&ḟ"gPƲ_ÇḊṪ’b⁴48;ĖŒṙḂ×7‘s15m€0F;“¡©£¢‘Ḍ×ȷ446‘

Спробуйте в Інтернеті! (колонтитул формує десяткове число з розмірами, які дають герб).

Як?

Форма, кодована довжиною бігу, двійкового формату зліва від герба 8та 1до рядка до початку, 0621відображеного із 0621доданим, а потім помноженого на 10 ⁴⁴⁶ та збільшення.

“...’b⁴48;ĖŒṙḂ×7‘s15m€0F;“¡©£¢‘Ḍ×ȷ446‘ - Link: no arguments
“...’                                  - base 250 number
     b⁴                                - to base 16
       48;                             - prepend a 48
          Ė                            - enumerate [[1,48],[2,12],[3,3],[4,12],[5,3],...
           Œṙ                          - run-length decode (48 1s then 12 2s then ...)
             Ḃ                         - modulo by 2 (vectorises) evens->0 odds->1
              ×7                       - multiply by 7 (vectorises)
                ‘                      - increment (vectorises) - now all 8s and 1s
                 s15                   - split into chunks of length 15
                    m€0                - reflect each chunk
                       F               - flatten
                         “¡©£¢‘        - code-page indices = [0,6,2,1]
                        ;              - concatenate
                               Ḍ       - from decimal list to number
                                 ȷ446  - 10^446
                                ×      - multiply
                                     ‘ - increment

— Джонатан Аллан
джерело

5

Деревне вугілля , 107 104 98 96 87 79 байт

Ｅ³⁰✂”}∧Pt→8⌕ＬＪε`‽∨↑¬KαfＧⅉKＭκ⎆wp◧⪫⊘^≦#⁸¹"π✂×OγX‹nI”×ι¹⁵×⊕ι¹⁵‖ＣＭ²⁸←621Ｍ²⁵¦¹⁴1ＵＢ0

Спробуйте в Інтернеті! Посилання на багатослівний код для пояснення

— Тільки ASCII
джерело

4

Протон , 368 байт

s=(map("8"&(*),[93,6,6,1,1,6,2,2,6,3,3,6,3,3,6,4,4,6,5,5,6,6,6,6,18,6,18,6,18,7,16,4,3,16,3,4,14,4,4,12,4,4,8,4,4,4,4,4,4,4,4,4,5,5,5,5,8,6,2]),map("1"&(*),[24,24,6,10,6,5,10,5,4,10,4,4,10,4,3,10,3,3,8,3,3,6,3,3,3,3,3,3,3,3,3,1,3,3,2,3,3,3,3,3,5,4,4,7,14,9,12,11,10,13,8,15,4,17,2,20,23,26,44]))
q=''.join(s[0][i]+s[1][i]for i:0..len(s[0]))
print(q+'0621'+'0'*445+'1')

Спробуйте в Інтернеті!

— HyperNeutrino
джерело

4

Рубін , 180 байт

s=0;"".unpack('H*')[0].split(?f).map{|a|a.chars.map{|c|s^=2**c.to_i(16)};t=("%015b"%s).gsub ?0,?8;$><<t+t.reverse};puts'0621'+?0*445+?1

Спробуйте в Інтернеті!

178 байт + 2 байти для -Kn(примушує кодування ASCII.)

43 в основному недруковані символи між першими цитатами. Hexdump:

00000000: 733d 300a 22ff f012 3456 789a bff5 f6f7  s=0."...4Vx.....
00000010: ff8f 4f3f 012f ff8b fef7 af69 df45 8cf0  ..O?./.....i.E..
00000020: 1237 bf6a f59f 48f2 37f1 6f04 5f3f 12f0  .7.j..H.7.o._?..
00000030: 222e 756e 7061 636b 2827 482a 2729 5b30  ".unpack('H*')[0
00000040: 5d2e 7370 6c69 7428 3f66 292e 6d61 707b  ].split(?f).map{
00000050: 7c61 7c61 2e63 6861 7273 2e6d 6170 7b7c  |a|a.chars.map{|
00000060: 637c 735e 3d32 2a2a 632e 746f 5f69 2831  c|s^=2**c.to_i(1
00000070: 3629 7d3b 743d 2822 2530 3135 6222 2573  6)};t=("%015b"%s
00000080: 292e 6773 7562 203f 302c 3f38 3b24 3e3c  ).gsub ?0,?8;$><
00000090: 3c74 2b74 2e72 6576 6572 7365 7d0a 7075  <t+t.reverse}.pu
000000a0: 7473 2730 3632 3127 2b3f 302a 3434 352b  ts'0621'+?0*445+
000000b0: 3f31                                     ?1

Як?

Всі інші робили кодування довжини бігу, тому я хотів спробувати щось інше.

Відформатовану "картинну" версію прайме можна розділити на дві частини - сітку 30х30 8-х та 1-х, а також другий розділ здебільшого нулів, який може бути жорстко кодований. Орієнтуючись на першу частину, ми помічаємо, що вона симетрична вниз по центру, тому, якщо ми можемо виготовити ліву половину, то ми можемо просто надрукувати половину кожного рядка зворотним боком.

Половина одного рядка - 15 символів. Якщо замінити 8 на нулі, кожен рядок може бути інтерпретований як 15-бітове двійкове число. Зручно, що здебільшого відстань редагування між кожними послідовними рядками є невеликою, тому я вирішив реалізувати своє рішення, зберігаючи перший рядок s( 888888888888888який якраз стає 0) та застосувавши ряд операцій гортання бітів s, друкуючи результат щоразу .

Оскільки кожен рядок має довжину 15 біт, я кодував ці операції як шістнадцяткові цифри - наприклад, якщо операція b(або 11), ми перевертаємо біт 11. Деякі рядки відрізняються більш ніж на один біт, тому для них потрібен шістнадцятковий рядок цифр. У нас залишився один біт ( f), тому ми можемо використовувати його як роздільник між цими рядками, а також як значення "нічого не робити". Приклад нижче (ці рядки ви можете побачити у публікації, на яку йдеться у запитанні):

Line 3: 000000000000000
Line 4: 000111111111111  <-- flip bits 0 through b
Line 5: 000111111111111  <-- do nothing
Line 6: 000111111011111  <-- flip bit 5

Для того, щоб покласти , що все разом, ми будемо кодувати 0123456789ab, а потім розділити з f, нічого не робити з f, а потім 5. Це працює, тому що ми будемо робити .split(?f)пізніше, щоб отримувати кожен набір операцій за рядком, що дасть результат ["0123456789ab", "", "5"]і ""буде неоперативним.

Різниця між рядками 3 та 4 вище - це найдовший набір правок, і відстань редагування між будь-якими двома послідовними рядками зазвичай становить 0-2, тому я б сказав, що таке кодування є досить недорогим, хоча я впевнений, що це може удосконалюватися.

Весь кодований рядок закінчується fff0123456789abff5f6f7ff8f4f3f012fff8bfef7af69df458cf01237bf6af59f48f237f16f045f3f12f0(86 байт), який отримає всю сітку 30x30. Але ми ще не закінчили ...

Шістнадцяткові цифри можуть бути представлені 4 бітами ( b-> 1100тощо). Це означає, що якщо ми готові кодувати наш рядок 4 біти одночасно, а не використовувати байти, ми можемо скоротити довжину рядка вдвічі. Так це я і зробив - hexdump показує рядок, представлений у 43 байтах. Після цього просто вирішити питання про те, щоб розгорнути витончений String # Ruby # для H*(розтлумачити як шістнадцятковий рядок, спочатку високий nibble), щоб розгорнути 43-байтовий рядок у 86-байтовій версії, яку ми знаємо і любимо, та циклічно переглядати кожен набір операцій гортання бітів - для нашого збереженого рядка sі операції, яку cми робимо, s ^ 2**c.to_i(16)щоб перевернути відповідний біт.

Після завершення кожного набору правок ми додаємо отриманий двійковий код до 15 біт, перемикаємо всі списки 0 на 8 і друкуємо результат та його зворотний бік. Як зазначалося раніше, частина числа після сітки 30х30 може бути жорстко кодована, тому ми робимо це як puts'0621'+?0*445+?1.

Заключний кодований рядок не має можливості працювати над TIO, тому версія TIO використовує прогони, які все ще працюють, але довші.

— Перекус
джерело

3

Python 2 , 760 523 329 205 196 байт

-237 байт завдяки Стівену. -124 байти завдяки Джонатану Фреху.

print''.join((ord(j)-34)*'81'[i%2]for i,j in enumerate(":(:((#,#(('$,$'(&%,%&(&%,%&(%&,&%(%'*'%(%(((%(%4%(%4%(%4%)%2%&#%%2%%$&%0%&%&%.%&'&&*&&)&0&+&.&-&,&/&*&1'&'3'$'6*9(<$N"))+'0621'+'0'*445+'1'

Спробуйте в Інтернеті!

— абсолютно нелюдський
джерело

526 байт , оголосивши змінні для 8та 1та поєднавши621

— Stephen

Ой. XD Я просто автоматизував його, тому не побачив 621. Спасибі!

— повністюлюдський

2

205 байт , стиснувши список. Ще кілька, якщо ви хочете використовувати лише байти для друку.

— Джонатан Фрех

2

CJam, 532 412 340 231 210 209 байт

". $ MBZp & 8OIoLs7Rv / BEqN # 1r ~ E $ O% 6 ^ UO = \ z: (Iw] l \ LQ.g.aWf + {2; on | YP'y $: Lc $ i $ GMCg & mRs # y0 * z` Z, C | Hf6; b / o-0 | FNK5R: OIi} {'`CJ} LOXMSA, & vzl5scm5y0 {om = A _ # / wF"' # fm92bs: A; "6NLkB) h% @ {u`hp_v + YK "'# fm92bYb2f + {[A / (\ s: A;)]}% e ~' 0445 * 1

Спробуйте в Інтернеті

Кодування довжини пробігу розширено з бази 92 (Base 250 призвело до багатобайтових символів, тому довелося відрегулювати). Також 4341089843357287864910309744850519376розгорнуто від бази 92 та перетворено у бінарне. A 1 означає, що довжина пробігу - це дві цифри, 0 означає, що це одна цифра. Наприклад, перші 4 цифри двійкового представлення - 1101, оскільки перші чотири запуски [93,8],[24,1],[6,8],[24,1](93 8, 24 1, і т. Д.)

— геокавель
джерело

2

JavaScript, 454 450 332 207 204 байт

-4 байти завдяки Стівену. -125 байт завдяки Шаггі та Дому Гастінгсу.

_=>[...`]






,`].map((j,i)=>'81'[i%2].repeat(j.charCodeAt())).join``+0+621+"0".repeat(445)+1

У цій відповіді є навантажений човен недрукованих матеріалів, тож ось шістнадцятковий набір:

00000000: 5f3d 3e5b 2e2e 2e60 5d18 0618 0606 010a  _=>[...`].......
00000010: 0106 0605 020a 0205 0604 030a 0304 0604  ................
00000020: 030a 0304 0603 040a 0403 0603 0508 0503  ................
00000030: 0603 0606 0603 0603 1203 0603 1203 0603  ................
00000040: 1203 0703 1003 0401 0303 1003 0302 0403  ................
00000050: 0e03 0403 0403 0c03 0405 0404 0804 0407  ................
00000060: 040e 0409 040c 040b 040a 040a 0408 040f  ................
00000070: 0504 0511 0502 0514 0817 061a 022c 605d  .............,`]
00000080: 2e6d 6170 2828 6a2c 6929 3d3e 2738 3127  .map((j,i)=>'81'
00000090: 5b69 2532 5d2e 7265 7065 6174 286a 2e63  [i%2].repeat(j.c
000000a0: 6861 7243 6f64 6541 7428 2929 292e 6a6f  harCodeAt())).jo
000000b0: 696e 6060 2b30 2b36 3231 2b22 3022 2e72  in``+0+621+"0".r
000000c0: 6570 6561 7428 3434 3529 2b31            epeat(445)+1

f=
_=>[...`]






,`].map((j,i)=>'81'[i%2].repeat(j.charCodeAt())).join``+0+621+"0".repeat(445)+1

document.write(f())

Розгорніть фрагмент

— абсолютно нелюдський
джерело

Я вважаю, що повернення значення з функції було б справедливим.

— Стівен

О, правильно дякую. Чи можете ви також зробити HTML-частину? : PI серйозно не знаю багато цього, я щойно вибрав JS через акуратну замінку регулярного виразу. EDIT : Дякую : D

— абсолютнолюдський

Ви можете заперечувати лапки навколо останнього, +'1'оскільки це вже є Stringі +'0621'може бути +0+621!

— Дом Гастінгс

1

222 байти - Останнє, обіцяю!

— Кудлатий

3

[...`]робить мене таким божевільним

— ETHproductions

2

JavaScript (ES6), 206 205 204 203 198 197 194 байт

Придумавши це, працюючи над рішенням i cri everytim , подумав, що він є досить різним, щоб вимагати публікації самостійно.

Сюди входить завантаження недрукованих файлів між ]і ,так, перейдіть за посиланням TIO нижче, щоб переглянути його з уникненнями Unicode (кожна послідовність, \uза якою 4 чотири цифри, вважається 1 байтом).

_=>`],0621ƽ1`.replace(/\D/g,(x,y)=>"810"[y<122?y&1:2].repeat(x.charCodeAt()))

Спробуйте в Інтернеті

— Кудлатий
джерело

2

MATLAB / Octave , 319 318 байт

Це моя перша спроба цього виклику. Ще трохи великий і, мабуть, є більш ефективні способи зробити це, але я подумав, що все-таки опублікую його, оскільки метод був цікавішим, ніж просто застібати його.

for i=reshape('|871%871%8%1 8)1 8%1%8$1!8)1!8$1%8#1"8)1"8#1%8#1"8)1"8#1%8"1#8)1#8"1%8"1$8''1$8"1%8"1%8%1%8"1%8"118"1%8"118"1%8"118"1&8"1/8"1#8 1"8"1/8"1"8!1#8"1-8"1#8"1#8"1+8"1#8$1#8#1''8#1#8&1#8-1#8(1#8+1#8*1#8)1#8,1#8''1#8.1$8#1$801$8!1$831''861%891!8K1 0 6 2 1~0~0~0~0`0 1',2,[]);fprintf(repmat(i(2),1,i(1)-31));end

Спробуйте в Інтернеті!

Метод, який використовується тут, полягає у використанні різновидної схеми Run-Length-Encoding.

Почнемо з початкового числа і підраховуємо кількість послідовних цифр. Вони записуються в результаті нижче як підрахунок, за яким безпосередньо йде цифра (простір, розділений для наочності).

938 241 68 241 68 61 8 101 8 61 68 51 28 101 28 51 68 41 38 101 38 41 68 41 38 101 38 41 68 31 48 101 48 31 68 31 58 81 58 31 68 31 68 61 68 31 68 31 188 31 68 31 188 31 68 31 188 31 78 31 168 31 48 1 38 31 168 31 38 21 48 31 148 31 48 31 48 31 128 31 48 51 48 41 88 41 48 71 48 141 48 91 48 121 48 111 48 101 48 131 48 81 48 151 58 41 58 171 58 21 58 201 88 231 68 261 28 441 0 6 2 1 4450 1

Якщо будь-яке значення перевищує 95, ми розбиваємо їх на кілька фрагментів, що перевищують 95 або менше - це відбувається лише для 445 0, які замість цього стають чотирма множинами 95 0 і набором 65 0. Ми також прокладаємо будь-які підрахунки, менші за 10, з 0, щоб усі елементи були три символи. Це дає вихід із пробілами:

938241068241068061018101018061068051028101028051068041038101038041068041038101038041068031048101048031068031058081058031068031068061068031068031188031068031188031068031188031078031168031048011038031168031038021048031148031048031048031128031048051048041088041048071048141048091048121048111048101048131048081048151058041058171058021058201088231068261028441010016012011950950950950650011

Зрештою, я міг би зробити цей крок перед тим, як об'єднати все це разом, але хоч ти живеш і вчишся. Ми робимо щось розумне, щоб взяти підрахунок для кожної групи (2 цифри) і додаємо 31. Оскільки всі вони <96, отримане число є значення ASCII для символу для друку (32 до 126). Даючи нам рахується:

|7%7%% ) %%$!)!$%#")"#%#")"#%"#)#"%"$'$"%"%%%"%"1"%"1"%"1"&"/"# ""/""!#"-"#"#"+"#$##'##&#-#(#+#*#)#,#'#.$#$0$!$3'6%9!K    ~~~~`

Після трохи перестановки в MATLAB, щоб зробити його більш сприятливим для розшифровки, а потім також уникнути 'символів ''((інакше MATLAB розбиває туди рядкові літерали), нам залишається розумний рядок:

|871%871%8%1 8)1 8%1%8$1!8)1!8$1%8#1"8)1"8#1%8#1"8)1"8#1%8"1#8)1#8"1%8"1$8''1$8"1%8"1%8%1%8"1%8"118"1%8"118"1%8"118"1&8"1/8"1#8 1"8"1/8"1"8!1#8"1-8"1#8"1#8"1+8"1#8$1#8#1''8#1#8&1#8-1#8(1#8+1#8*1#8)1#8,1#8''1#8.1$8#1$801$8!1$831''861%891!8K1 0 6 2 1~0~0~0~0`0 1

Це корінь коду. У коді все, що я тоді роблю, - це переробити масив у 2D рядок із 128 парами символів. Для кожної пари перший символ має 31 віднімання, а потім другий символ відображається стільки разів.

Результат - оригінальний прайм:

888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888111111111111111111111111888888111111111111111111111111888888111111811111111118111111888888111118811111111118811111888888111188811111111118881111888888111188811111111118881111888888111888811111111118888111888888111888881111111188888111888888111888888111111888888111888888111888888888888888888111888888111888888888888888888111888888111888888888888888888111888888811188888888888888881118888188811188888888888888881118881188881118888888888888811188881118888111888888888888111888811111888811118888888811118888111111188881111111111111188881111111118888111111111111888811111111111888811111111118888111111111111188881111111188881111111111111118888811118888811111111111111111888881188888111111111111111111118888888811111111111111111111111888888111111111111111111111111118811111111111111111111111111111111111111111111062100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001

Зміни:

перестановив магічну струну, щоб я міг позбутися транспонування після перестановки. Зберігає байт.

— Том Карпентер
джерело

2

05AB1E , 76 байт

•ŒÆÿ¹т£Ƶ‘β\,ä¸γλaXë«Š¸þaγG(žÃÇ…»šKþÈ/?`'•20BS20öDg81s∍Ss×J30ôø.∞0D445×621s1J

Спробуйте в Інтернеті!

Вкрав це у Денніса:

888888888888888811111111111111
888888888888888888111111111111
888888888888888888811111111111
888111111111111888881111111111
888111111111111118888111111111
888111111111111111888811111111
888111111888888111188881111111
888111188888888881118888111111
888111888888888888111888811111
888118888888888888811188881111
888111111188888888811118881111
888111111118888888881111888111
888111111111888888881111888811
888111111111888888881111188811
888111111111888888881111118881

Помітив, що він завжди чергується між 8 і 1, тому я порахував довжини кожного прогону (База 20):

['G', 'E', 'I', 'C', 'J', 'B', '3', 'C', '5', 'A', '3', 'E', '4', '9', '3', 'F', '4', '8', '3', '6', '6', '4', '4', '7', '3', '4', 'A', '3', '4', '6', '3', '3', 'C', '3', '4', '5', '3', '2', 'E', '3', '4', '4', '3', '7', '9', '4', '3', '4', '3', '8', '9', '4', '3', '3', '3', '9', '8', '4', '4', '2', '3', '9', '8', '5', '3', '2', '3', '9', '8', '6', '3', '1']

З’єднав це все разом і перетворив його на ціле число базової 10:

3954184379309026812828704944878416720438306456270310298603957651230861078960874182787979106461

Стиснув його далі в базу-255:

ŒÆÿ¹т£Ƶ‘β\,ä¸γλaXë«Š¸þaγG(žÃÇ…»šKþÈ/?`'

Потім, після створення стисненого біта ... Нам залишається лише маніпулювати ним до оригіналу ..

20B                                 # Back to base 20.
   S                                # Each char separate...
    20ö                             # As their base 10 values...
       Dg81s∍                       # Extend '81' to the length of the array.
             Ss×J                   # Push that many 8 or 1's as told by the array.
                 30ôø.∞             # Split by the symmetrical pattern, flip it, mirror.
                       0D445×621s1  # Create the part that doesn't fit into a pattern.
                                  J # Join whole stack together.

Кінцевий результат:

88888888888888888888888888888
88888888888888888888888888888
88888888888888888888888888888
88811111111111111111111111888
88811111111111111111111111888
88811111181111111118111111888
88811111881111111118811111888
88811118881111111118881111888
88811118881111111118881111888
88811188881111111118888111888
88811188888111111188888111888
88811188888811111888888111888
88811188888888888888888111888
88811188888888888888888111888
88811188888888888888888111888
88881118888888888888881118888
18881118888888888888881118881
18888111888888888888811188881
11888811188888888888111888811
11188881111888888811118888111
11118888111111111111188881111
11111888811111111111888811111
11111188881111111118888111111
11111118888111111188881111111
11111111888881118888811111111
11111111188888188888111111111
11111111111888888811111111111
11111111111188888111111111111
11111111111111811111111111111
11111111111111111111111111111062100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001

— Чарівна урна восьминога
джерело

2

C (gcc) , 277 байт

Я відчуваю, що струну можна якось скоротити.

#define F(c,n)for(c=0;c<n;c++)
i,j,k;r(d,n){F(k,n)printf("%d",d);}f(){r(8,90);F(i,128)F(j,6)r(("8111i8111i8915i8=1=i8?1Mi8?1Mi8@1mi8P1oi8p1pi8pppi8pppi8pppi@opPm?opPMOmp@Omip8@iRpR8a41a4Q81i21@1m11O1O11mR@11id811Qp2111p1111="[i]-49>>j)&1?8:1,1);r(1,42);printf("0621%0446d",1);}

Спробуйте в Інтернеті!

— гастропнер
джерело

1

Perl 5 , 307 байт

$d=1;print((map{($d^=9)x$_}(93,24,6,24,6,6,1,10,1,6,6,5,2,10,2,5,6,4,3,10,3,4,6,4,3,10,3,4,6,3,4,10,4,3,6,3,5,8,5,3,6,3,6,6,6,3,6,3,18,3,6,3,18,3,6,3,18,3,7,3,16,3,4,1,3,3,16,3,3,2,4,3,14,3,4,3,4,3,12,3,4,5,4,4,8,4,4,7,4,14,4,9,4,12,4,11,4,10,4,13,4,8,4,15,5,4,5,17,5,2,5,20,8,23,6,26,2,44)),0,621,0 x445,1)

Спробуйте в Інтернеті!

— Xcali
джерело

1

Bubblegum , 88 байт

00000000: edc9 310a 0250 10c4 d02b fdb1 90dc ff64  ..1..P...+.....d
00000010: 96c1 80a2 8885 60aa d97d 7cb3 3de8 75c5  ......`..}|.=.u.
00000020: 37ab 820a 51ee 9537 942a 55c4 aaec 76b4  7...Q..7.*U...v.
00000030: cfb5 1cdc 33dd 908b ac1c 74a0 894e 03c8  ....3.....t..N..
00000040: 11cc 99ab 9c1d c661 32c5 bad6 8aad 96d2  .......a2.......
00000050: b95e 76fe fd6e bb01                      .^v..n..

Спробуйте в Інтернеті!

— Дом Гастінгс
джерело

1

Рубін , 194 байти

$><<?8+"~:(:((#,#(('$,$'(&%,%&(&%,%&(%&,&%(%'*'%(%(((%(%4%(%4%(%4%)%2%&#%%2%%$&%0%&%&%.%&'&&*&&)&0&+&.&-&,&/&*&1'&'3'$'6*9(<$N".bytes.reduce(""){|s,x|s+(s[-1]==?8??1:?8)*(x-34)}+"0621"+?0*445+?1

У верхній частині зашифровано RLE, решта просто жорстко закодована.

Спробуйте в Інтернеті!

— ГБ
джерело

1

Котлін , 339 байт

val s="8J188J1888138<13881887148<14871886158<15861886158<15861885168<16851885178:178518851888188518851D8518851D8518851D8519851B85168315851B85158416851@85168516851>85168716861:861689168@168;168>168=168<168?168:168A1786178C1784178F1:8I188L148^130363231ǯ031"
fun x()=(0..s.length-1 step 2).map{i->(1..(s[i].toInt()-50)).map{print(s[i+1])}}

Спробуйте в Інтернеті!

— jrtapsell
джерело

1

CJam ( 108 81 байт)

"u{èl>`#ö^½³ó!;kMðSÀËndEyvY3ÉÊÅBà#®"256bFbee{)*~}%"81"f=15/_Wf%zT6Y446,:!1

Демонстрація в Інтернеті

У випадку, якщо кодування символів відповідає вищенаведеному, тут воно кодується xxd:

0000000: 2275 1e7b e86c 3e60  8d23 80f6 5ebd b3f3  "u.{.l>`.#..^...
0000010: 213b 968d 6b4d f053  c0cb 6e64 1c45 7976  !;..kM.S..nd.Eyv
0000020: 5933 c9ca 8dc5 42e0  23ae 2232 3536 6246  Y3....B.#."256bF
0000030: 6265 657b 292a 7e7d  2522 3831 2266 3d31  bee{)*~}%"81"f=1
0000040: 352f 5f57 6625 7a54  3659 3434 362c 3a21  5/_Wf%zT6Y446,:!
0000050: 31                                        1

Початковий пробіг на 8s і 1s розбивається на лише ліву половину і кодується довжина так само, як довжини змінних прогонів. Запуски більше 24 розбиваються на прогони щонайменше 24, розділені пробілами 0, так що довжини можуть бути закодовані базовою-25, а потім закодованою базовою-256, щоб упакувати їх.

— Пітер Тейлор
джерело

1

JavaScript (ES2017), 287 байт

_=>"00000000000000000027wr2027wr2027a9ko261b7c23jerc23jerc1yjm0o1y8coo1y2ou01xx5q01xx5q01xx5q00yykxc9ull699d4au9dk75xffo1v2fgptj4fh8jrj3hhwvgfhmlev3hour5rhq24n3hqytj3hr4hdrhr8ykfhra0hr".replace(/.{6}/g,n=>parseInt(n,36).toString(2).replace(/0/g,8).padStart(30,8))+0+621+"0".repeat(445)+1

Використовує дещо інший підхід до відповіді @icrieverytim . -10 байт завдяки пропозиції @Shaggy використовувати replaceзамість match!

f=
_=>"00000000000000000027wr2027wr2027a9ko261b7c23jerc23jerc1yjm0o1y8coo1y2ou01xx5q01xx5q01xx5q00yykxc9ull699d4au9dk75xffo1v2fgptj4fh8jrj3hhwvgfhmlev3hour5rhq24n3hqytj3hr4hdrhr8ykfhra0hr".replace(/.{6}/g,n=>parseInt(n,36).toString(2).replace(/0/g,8).padStart(30,8))+0+621+"0".repeat(445)+1
;
p.innerHTML=f()

pre{word-wrap:break-word;white-space:normal}

<pre id=p></pre>

Розгорніть фрагмент

— Дом Гастінгс
джерело

1

287 байт .

— Кудлатий

1

/// , 260 байт

/;/88%//:/1&13%13"//9/\/\///7/"1#95/!!!!94/%""93/8889-/000009,/11#9'/###9&/#88"9%/"""9#/389"/1119!/-----0/'''''''##8%4#;4&"8%18""&11;188"1::1&#%1#"&#8"",8"&&"&&'&&'&&'&#3"'#"#13"'#"3,"##&#"#"'"#",7#7"7%",%#%"#%,%1#%7"",4#8784,8,8%%,#%%",;411;%%41106215555!0001

Спробуйте в Інтернеті!

Нічого страшного цікавого, лише якесь стиснення.

— Конор О'Брайен
джерело

1

Математика, 192 байти

Uncompress["1:eJxTTMoP8nRjZWCwoCUwxAGIl0VSZIEhi2wEXAgma4Eqa0GCrAW6rAW6rAWyJKYsulPRGGhBRLksNmmYy/HJonkOXStWaeTwgTGQ5JADD4mJTQRdGo2PysUwC1kA0yJDFPdgJjWoKHZJNB/hlMYhaYiaMgkDAzMjQ4NRMHSBIQDgQA6C"]

Дивіться: http://reference.wolfram.com/language/ref/Compress.html

— Ерік Вежі
джерело

1

Пітон 2 , 191 190 188 байт

s='0621'+'0'*445+'1'
a=1
for c in'L":&7(4%"%1%$%/$($-$*$+$,$)$.$\'$$($$%$#,#$#$#.#$"##0##!$#0#\'#2#&#2#&#2#&#&&&#&#%(%#&#$*$#&$#*#$&$#*#$&%"*"%&&!*!&&8&8}':s=`a`*(ord(c)-32)+s;a^=9
print s

Спробуйте в Інтернеті!

Такий же принцип, як і моя відповідь тут

— TFeld
джерело

Виведіть прем'єр-клас Троїцького залу

Правила

Желе , 74 71 69 68 66 байт

Як це працює

SOGL V0.12 , 81 78 75 73 байт

Желе , 136 байт

Пояснення (цифри скорочені)

Желе , 133 84 73 байт

Як?

Деревне вугілля , 107 104 98 96 87 79 байт

Протон , 368 байт

Рубін , 180 байт

Як?

Python 2 , 760 523 329 205 196 байт

CJam, 532 412 340 231 210 209 байт

JavaScript, 454 450 332 207 204 байт

JavaScript (ES6), 206 205 204 203 198 197 194 байт

MATLAB / Octave , 319 318 байт

05AB1E , 76 байт

Кінцевий результат:

C (gcc) , 277 байт

Perl 5 , 307 байт

Bubblegum , 88 байт

Рубін , 194 байти

Котлін , 339 байт

CJam ( 108 81 байт)

JavaScript (ES2017), 287 байт

/// , 260 байт

Математика, 192 байти

Пітон 2 , 191 190 188 байт