Как большой поклонник сериала « Потерянные» , я всегда был заинтригован последовательностью чисел, которая повторяется в эпизодах. Эти цифры:

$4, 8, 15, 16, 23, 42$ ( A104101 )

Используя любой язык программирования, напишите код, который выводит эти числа.

Подсчет очков:

• Кратчайший ответ выигрывает

• Вывод не должен содержать никаких других цифр или букв. Вы можете использовать любой другой символ в качестве разделителя или вообще не использовать разделитель.

• Вы не можете разделять цифры одного номера. - правильный ответ, а - нет.$48\_15162342$$481\_5162342$

• Вы должны уважать порядок.

• Если в вашем коде нет ни одного числа из последовательности, уменьшите ваш счет на 30%. Это правило позволяет вводить цифры отдельно. Например:

  abcde1fg5h
  

  Является действительным кандидатом, потому что ответ не содержит число , только его цифры. Тем не менее, любые или аннулируют бонус.$15$$4$$8$

• Если код вообще не содержит цифр, уменьшите ваш счет на 50%. Другие символы, такие как $¹$ , $²$ или $³$ , по-прежнему действительны для этого бонуса.

Потерянный , 29 27/2 = 13,5 байт

%?\>>>>>>>>>>
>>\"*"@"

Попробуйте онлайн! или убедитесь, что это детерминированный

Похоже, правильный язык для использования.

Объяснение:

Lost - это двумерный язык, где указатель начинается в любом месте и идет в любом направлении. Это обычно приводит к двойной проверке того, что указатель не вошел в раздел раньше.

...>>>>>>>>>>  These arrows filter all pointers that appear on the top line
.............  Or going vertically


%............  This flips the flag so that the program can end
.............  This stops premature termination

.?\..........  Clear the stack by skipping if a value popped from the stack is positive
.............  When the stack is empty, the \ directs the pointer down

.............  The \ directs the pointer right
..\"*"..  The string literal pushes all the Lost values to the stack

..\..........  The @ terminates the program if the % flag is switched
>>\........@.  Otherwise it clears the stack and repeats

.............  The quote here is to prevent the pointer getting stuck
............"  This happens when the pointer starts between the other quotes

Желе , 7/2 = 3,5 байта

“ƲÞIȥ’Ḥ

Печатает числа без разделителя, т. Целое число .$4815162342$

Попробуйте онлайн!

Как это устроено

“ƲÞIȥ’является биективным основанием-целочисленным литералом 250.
Ʋ, Þ, I, И ȥимеют ( на основе 1) индексы , , и в кодовой странице Jelly, так что они кодируют целое число .$154$$21$$74$$171$$250^3\cdot154+250^2\cdot21+250\cdot74+171=2407581171$

Наконец, Ḥ(unhalve) удваивает целое число, получая .$2\cdot2407581171=4815162342$

Удвоение необходимо, потому что кодирование вывода непосредственно приводит к тому “¡9)Ƙ[’, что содержит цифру.

Neim , 6 5 байт, 3 2,5 балла

Jσς§A

Объяснение:

J     Push 48
 σ    Push 15
  ς   Push 16
   §  Push 23
    A Push 42
      Implicitly join the contents 
      of the stack together and print

Попробуйте онлайн!

05AB1E , оценка: 10 9 7 байт / 2 = 3,5

•‘o]Ê•·

Попробуйте онлайн.

Или 7 байтов альтернативы :

•’µ[%•R

Попробуйте онлайн.

Оба выводят целое число 4815162342.

Объяснение:

•‘o]Ê•     # Compressed integer 2407581171
      ·    # Doubled

•’µ[%•     # Compressed integer 2432615184
      R    # Reversed

Посмотрите эту подсказку 05AB1E (раздел Как сжимать большие целые числа? ), Чтобы понять, почему •‘o]Ê•есть 2407581171и •’µ[%•есть 2432615184.

Старый 9-байтовый ответ выводит список [4,8,15,16,23,42]:

•ΓƒÇ²•т;в

-1 байт (и, следовательно, -0,5 балла) благодаря @Emigna .

Дольше, чем другой ответ 05AB1E , но выводит список [4,8,15,16,23,42]вместо целого числа 4815162342.

Попробуйте онлайн.

Объяснение:

•ΓƒÇ²•       # Compressed integer 1301916192
      т;     # Integer 50 (100 halved)
        в    # Convert the first integer to Base-50 (arbitrary): [4,8,15,16,23,42]

Посмотрите этот мой совет 05AB1E (разделы Как сжимать большие целые числа? И Как сжимать целочисленные списки? ), Чтобы понять, почему •ΓƒÇ²•есть 1301916192и •ΓƒÇ²•50весть [4,8,15,16,23,42].

JavaScript (ES7), 34/2 = 17 байт

_=>eval(atob`NjUwNTgxMDErNDEqKjY`)

Попробуйте онлайн!

Это декодирует и оценивает выражение "65058101+41**6", которое не содержит ни одной цифры, однажды закодированной в base-64.

JavaScript (ES6), 13 байт

Скучное очевидное решение.

_=>4815162342

Попробуйте онлайн!

Python 3 , 25 байт, 12,5 балла

print(*map(ord,'ዏٗ*'))

Попробуйте онлайн!

𩦦 （髒, ⿰ 馬 葬）, 𧨦 （謚, ⿰ 言 ⿱⿵ 八一 皿） стоят 4 байта, но U + 0657 стоит всего 2 байта ...

Python 3 , 29 байт, 14,5 балла

print(ord('𩦦')*ord('湡'))

Попробуйте онлайн!

𩦦 （⿰ 馬 葬） - вариант символа 髒, что означает «грязный». 湡 это название реки. И они никак не связаны с этим вопросом, как мне известно.

Brain-Flak , 52/2 == 26 байт

(((((((((()()()())){})){}[()])())[]()()())){}[[]]())

Попробуйте онлайн!

Java 8, оценка: 12 11,9 (70% из 17 байт)

v->767*6277917L+3

-0,1 балла благодаря @RickHitchcock .

Попробуйте онлайн.

Объяснение:

v->               // Method with empty unused parameter and long return-type
  767             //  767
     *6277917L    //  multiplied by 6277917 (as long)
              +3  //  And then 3 is added

Старый ответ со счетом: 12 (50% из 24 байтов):

v->(long)''*'Ⓥ'*'䧶'

Содержит непечатный символ 0x1B.

Попробуйте онлайн.

Объяснение:

v->                   // Method with empty unused parameter and long return-type
  (long)              //  Cast the character (and therefore the result) to a long
        ''            //  27
           *'Ⓥ'       //  Multiplied by 9419
                *'䧶'  //  Multiplied by 18934

В Java символы могут автоматически помещаться в целые числа, содержащие их значение в Юникоде. К сожалению, максимальный поддерживаемый юникод для символов равен 65,535, поэтому я не могу использовать только два символа для умножения (поскольку самые большие два числа, которые делят ожидаемое 4,815,162,342, 56,802и 84,771где, к 84,771сожалению, превышает максимальный 65,535.
Кроме того, поскольку максимальный размер intравно 32 ² -1 ( 2,147,483,647) и результат 4,815,162,342больше этого, требуется явное приведение к long, которое может содержать до 64 ² -1 ( 9,223,372,036,854,775,807).

Скучный ответ был бы 14 байтов без каких-либо бонусов:

v->4815162341L

Попробуйте онлайн.

R 18x0,7 = 12,6 балла

cat(9*2*267509019)

Самоочевидно, просто делает некоторую арифметику, избегая рассматриваемых чисел.

7 , 10 байтов, 27 символов

115160723426754314105574033

Попробуйте онлайн!

Упакованное представление этой программы на диске ( xxdформат):

00000000: 269c 3a71 6f63 308b 7c0d                 &.:qoc0.|.

объяснение

Мы видели эту последовательность чисел ранее, в статье «Автоматизация спасения мира» , где речь шла о печати чисел через равные промежутки времени, что делает ее интересной, поскольку требует использования очень старого языка. Тем не менее, гораздо более новые языки могут иметь свои собственные особенности, которые делают этот вызов интересным. _{(Да, этот абзац, и фактически причина, по которой я начал писать этот ответ, по сути, является просто способом отображения всех связанных проблем вместе на боковой панели; обычно люди делают это с помощью комментариев, но у меня недостаточно представителя .)}

Первое, на что следует обратить внимание, это то, что 7 состоит из цифр, поэтому получение бонусов здесь вряд ли сработает (хотя если рассматривать программу как последовательность октетов, ни один из них не соответствует представлениям ASCII любого из исходных чисел , так что вы можете претендовать на бонус в этом смысле). Следующее, что следует отметить, это то, что 7 имеет команды для воссоздания последовательности команд, которая, вероятно, создала определенный фрагмент данных; можно ли интерпретировать потерянные числа 4815162342как часть самой 7-й программы?

Ответ "не совсем". Самая проблемная часть - это второй номер 8. 7 программ написаны в восьмеричном виде; такого числа, как 8., нет, поэтому само начало строки должно быть напечатано иначе.

Таким образом, база программы основана на программе "Hello world", которая представлена ​​в следующем разделе:

5431410557403
543141055          string literal
         7         separate data from code
          4        rearrange stack: {program's source}, empty element, {literal}
           0       escape {the literal}, appending it to {the empty element}
            3      output {the escaped literal}, pop {the program's source}

с экранированным литералом в доменном языке, который интерпретируется следующим образом:

5                  output format: US-TTY using pairs of digits in the string
 43                select character set: digits and common symbols
   14              "4"
     10            "8"
       55          forget the set output format

После этого прибывает дополнительный 3, который выводит оставшийся элемент стека (и выходит из-за недостаточного оставшегося стека). Этот элемент указывается в начале программы, и чтобы избежать несоответствия 6(которое работает немного как закрывающая скобка), мы генерируем его, используя код, а не записываем его непосредственно как данные. (Обратите внимание, что 7в начале программы есть два подразумеваемых символа, которые здесь важны):

{77}115160723426
 7                 empty stack element
  7 11516          append "1151"
         0         append "6"
          723246   append "2324"

Это производит следующий литерал:

115162324
1                  set output format: literally as octal
 15162324          "15162324"

который распечатывается.

05AB1E , 6 * 0,7 = 4,2 байта

•1Z&ð“

Попробуйте онлайн!

Печатает номер без сжатия из базы-255

MASM 8088 Источник сборки (93 байта - 50%) = 46,5 байта

Не используя номера или последовательность в источнике:

MOV AH,'P'-'G'
LEA DX,L
INT '!'
RET
T EQU '-'-'+'
L DW 'ph'/T,'jb'/T,'lb'/T,'fd'/T,'dh'/T,'$'

Выход:

A>LOST.COM
4815162342

Древесный уголь , 13 байт / 2 = 6,5

ＩＥTPIHA.⁻⁸⁸℅ι

Попробуйте онлайн! Ссылка на подробную версию кода. Работает путем вычитания ASCII-кодов строки TPIHA.из 88 и приведения к строке.

Aheui (эзотоп) , 45 байтов (15 символов) * 0,5 = 22,5 балла

반밤밪박밭빠따받발따밣뱣히망어

Попробуйте онлайн!

Объяснение:

Смотрите также это; Aheui Reference ( английский )

Aheui program starts with default stack '아'(or none)

반: push 2, move cursor right by 1(→).
밤: push 4, →
밪: push 3, →
박: push 2, →
밭: push 4, →
빠: dup, →
따: pop 2, push mul result(16).
받: push 3, →
발: push 5, →
따: pop 2, push mul result(15).
밣: push 8, →
뱣: push 4, move cursor right by 2(→→).
히: end.
망: pop 1, print, → (if stack is empty, move cursor left by 1.)
어: move cursor left by 1(←).

Обратите внимание, что ㅁ (инструкция печати) перемещает курсор в обратном направлении, если стек (или очередь) пуст.

Perl 5 , 16 байтов - 30% = 11,2

say 0x5FAB2EA2*3

Попробуйте онлайн!

PowerShell , 12 байт * 0,7 = 8,4

0x5FAB2EA2*3

Попробуйте онлайн!

«Порт» ответа Xcali для лучшего ответа Powershell.

naz , 46 байт, оценка 32.2

2a2a1o2m1o7s1o5m1o2s2s1o6m1o2s2s1o1a1o1a1o2s1o

Просто выводит каждую цифру по 4815162342одной за раз.

JavaScript, 143 байта (не знаю, как оценить)

(g=`${2*2}`)=>g.repeat(6).replace(/(.)/g,(m,p,i,k='')=>
  (k=m*[g-3,g-2,g,g,+g+2,g*3-1][i]
  ,RegExp(`${g-2}|${g}`).test(i)?k-1:i==+g+1?k-(g/2):k))

Попробуйте онлайн!

Начните с шести 4, умножьте, сложите, вычтите на, 4чтобы получить вывод.

PHP, 35/2 = 17,5

<?=zzzzzzzzzzzzzzz^NVBVKOVKLVHIVNH;

цифровой подход: 40 * .7 = 28

<?=2+2,_,5+3,_,17-2,_,17-1,_,17+6,_,7*6;

без цифр, без строк: 68/2 = 34

<?=$p++,!$p++,$p+=$p,_,$p+=$p,_,~-$q=$p+$p,_,$q,_,--$p+$q,_,$p*~-$p;

Попробуйте их онлайн .

JavaScript (SpiderMonkey), 67 байт / 2 = 33,5 60 байт / 2 = 30 58 байт / 2 = 29 48 байт / 2 = 24

-7 байтов / 3,5 , -2 байта / 1 предоставлено @JoKing, -10 байтов / 5 предоставлено @tsh

print(a=-~-~-~-~[],a+=a,b=a+~-a,a+a,a+b,--b+b+b)

Попробуйте онлайн!

APL (Dyalog Unicode), 18/2 = 9 байт

×/⎕UCS'𩦦湡'

Просто скучное старое умножение символов.

Попробуйте онлайн!

JavaScript (ES6), 16 * 0,7 = 11,2 байта

_=>767*6277917+3

Выводит цифры без разделителей.

Попробуйте онлайн!

Пробел , оценка: 49 41 байт / 2 = 20,5

[S S S T    S S S T T   T   T   T   S S S S S S S T T   S S S T S T T   T   T   T   S S T   T   S N
_Push_4815162342][T N
S T _Print_number]

Буквы S(пробел), T(табуляция) и N(новая строка) добавляются только как подсветка.
[..._some_action]добавлено только в качестве объяснения.

Попробуйте онлайн (только с пробелами, вкладками и новыми строками).

Псевдо-код:

Integer i = 4815162342
Print i as number to STDOUT

Объяснение:

В пустом месте число выдвигается следующим образом:

• S: Включить управление стека
• S: Нажмите номер
• S/ T: Положительный / отрицательный соответственно
• Некоторые T/ Sсопровождаемые одним N: десятичное число в двоичном виде, где T1 и S0

После этого он просто печатается с TNST:

• TN: Включить ввод / вывод
• S: Выводить верх стека
• T: Как число

F #, 45 байт = 22,5 балла

Просто обычный forцикл, который печатает цифры:

for c in"DHOPWj"do printf"%d"(int c-int '@')

Выше приведена полная программа, которую можно скомпилировать в исполняемый файл.

В REPL (цикл чтения-оценки-печати), например, FSI (F # Interactive), будет работать следующая более короткая версия, поскольку REPL выведет представление оцениваемого выражения; имеет 35 байтов = 17,5 балла:

[for c in"DHOPWj"->int c-int '@'];;

Пайк , 3 очка

77 91 f8 86 98 06

Попробуй это здесь!

Первые байтовые сигналы считываются в базе 128, пока не будет установлен байт без старшего бита.

Наконец, 32 вычитается из результата (по историческим причинам).

Это позволяет генерировать большие числа в очень небольших количествах пространства

MathGolf , 7 байтов * 0,5 = 3,5

ÿ≤┼ÇÅ$∞

Попробуйте онлайн!

объяснение

Обратите внимание, что этот код еще не работает на TIO. Недавно я внес некоторые изменения в MathGolf, включая добавление $оператора. Как только он будет загружен в TIO, вы можете запустить его там, я обновлю этот ответ. Отлично работает в терминале

ÿ≤┼ÇÅ     Push "≤┼ÇÅ"
     $    pop(a), push ord(a) (pushes 2407581171)
      ∞   pop a, push 2*a

Я использую тот факт, что MathGolf имеет 1-байтовые литералы для создания строк длиной до 4. Если бы я хотел преобразовать все число из строки base-256, мне нужно было бы использовать два ", и строка была бы 5 персонажи. Таким образом, я экономлю 2 байта, но теряю один байт, имея в конце оператор удвоения.

Python 3 34 балла

b=len("  ");c=b*b;d=c*b;e=d*b;g=e+d-b//b;print(c,d,e-b//b,e,g,g*b-c)

Python 3 , 44 38 19 18,5 байт

-6 байт благодаря @Jo King
-50% байт благодаря @ouflak за указание на 50% бонус
-1 байт благодаря @Dennis

for i in'밗ɯ*':print(ord(i),end='')

Попробуйте онлайн!

Japt, 10 9 байт / 2 = 4,5

"0¢*"mc

Проверь это

Befunge-98 (FBBI) , 15 байт / 2 = 7,5 балла

"*H/!k-"*.*+..@

Попробуйте онлайн!

Объяснение:

$4815 = 45 \cdot 107$$1623 = 33\cdot 47+72$