Ты знаешь этот язык?

34

Задача:

Ваша задача состоит в том, чтобы, учитывая предыдущие представления и сам ввод, вывести язык, на котором они написаны, в следующем формате:

Скажем, первая программа на Ruby. Он должен выводить 1, потому что Ruby - это 1первый язык, используемый в этой задаче. Пример программы:

a=gets
puts 1

Когда задано в качестве ввода, оно возвращается 1.

Следующая программа может быть на Python. Он должен выводить 2, потому что Python - это 2второй язык, используемый в тесте. Пример программы:

print(1 if input()[0]=="a"else 2)

Учитывая первое представление, он выводит 1, а сам дает свои выводы 2.

Вам разрешено повторять языки, но нельзя отправлять ответ на языке предыдущего ответа.

Например, если третья программа написана на Ruby, она должна выводить с 1учетом первой программы и самой себя (потому что Ruby является используемым 1языком st), а с учетом второй программы она должна выводить 2.

Правила:

  • Если в nнастоящее время есть ответы на вопросы, должны быть как минимум floor(n / 3)разные языки. Любая заявка, которая нарушает это правило, дисквалифицируется.
  • Никакие два «соседних ответа» (например, ответ nи ответ n+1) не могут использовать один и тот же язык.
  • Разные версии языка не считаются разными языками (поэтому Python 2 == Python 3).
  • Ответы должны принимать предыдущие материалы полностью в качестве входных данных.
  • Первая заявка должна принять участие.
  • Вы не можете отправить несколько ответов подряд.
  • «Повторные ответы» (ответы с тем же кодом, что и в предыдущем представлении) не допускаются.
  • Ответам не разрешается проходить количество выделенных байтов этого ответа - для получения более подробной информации см. «Количество выделенных байтов».

Выделенный счетчик байтов:

Для каждого номера ответа nназначается количество байтов для этого ответа 45 + 5n.

Форматирование ответа:

Отформатируйте ваш ответ так:

# {answer no.}, {language}
{program}
This prints:
- `1` in answer(s) {all answers using 1st language, with links}
- `2` in answer(s) {all answers using 2nd language, with links}
...
{optional explanation}

Для списков ответов сделайте это:

- `1` in answers [1]({link to answer}), [3]({link to answer})...

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

Первый ответ, чтобы выжить после 7 дней без каких-либо действительных представлений после этого объявляется победителем.

classification  answer-chaining 
— clismique
источник
1
Может ли один пользователь опубликовать два последовательных представления подряд?
— Kritixi Lithos
Таким образом, я могу повторить, как есть, без каких-либо изменений, мой ответ № 6 как ответ № 8, после чего Мартин мог повторить свой номер № 7 (если я не ошибаюсь) и т. Д. До ответа № 15 до достижения установленного порога (т.е. floor(n / 3)языки). Я предполагаю, что это не намеренное поведение.
— plannapus
@plannapus Я тоже это заметил. Конечно, ваша цель - получить последний ответ, поэтому, зная, что у меня тоже будет тривиальное продолжение, вы можете усложнить ситуацию (о которой я не думал до того, как опубликовать свой собственный ответ).
— Мартин Эндер
3
Количество выделенных байтов растет в геометрической прогрессии, и, вероятно, эти проблемы не прекратятся, пока у нас не кончатся языки, а не потому, что код станет слишком длинным.
— Вольфрам
2
IMO разумный фиксированный лимит (например, 384 или 256 байт), сработал бы лучше и вызвал бы жесткую конкуренцию в конце.
— Цеппелин

Ответы:

4

26. > <> (язык 12), 164 байта

Моя первая в мире программа в> <>! Это 156 символов, но 164 байта в UTF-8.

^$|(?![⊂⍴])[⊂-⍴]|\B=|{}
{:}&1+&=?v
      .&0/
v+!?='>'i41i
v+?='y'i47
v+?=' 'i12
v+?=' 'i24
v4
v6
v7
v8
v9
va
  v?(0:i
v1
n;\b1laa*)?+
/"^mwfPes{'tc"i2&01.;

Это печатает:

  • 1с ответами 1 , 5 , 7 , 9 и 14 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 , 12 и 15 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответами 10 , 17 , 20 , 22 и 25 (Баш).

  • 7с ответами 11 и 19 (Mathematica).

  • 8с ответом 13 (Python).

  • 9с ответом 16 (Perl).

  • 10с ответами 18 , 21 и 23 (C / C ++).

  • 11с ответом 24 (зш).

  • 12 с этим ответом (> <>).

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

Объяснение:

Первая строка - просто ответ № 5. Он ничего не делает, но отправляет указатель инструкции в нижнюю строку. /поворачивает рыбу вправо, и персонажи ^mwfPes{'tcкладутся в стек. Один символ ввода читается ( i). (Давайте назовем этот символ Cдля экспозиции.) 2 помещается в регистр ( 2&). Затем мы переходим к началу второй строки (строка 1) ( 01.).

Эта строка сравнивается Cс каждым символом в стеке. Копия Cхранится в нижней части стопки. {вращает стек так, что Cнаходится сверху; :дублирует это; }поворачивает копию обратно на дно. Мы увеличиваем значение register ( &1+&), пока не будет найдено совпадение. (Таким образом, если C«c», регистр содержит 3, когда совпадение найдено; если C«t», регистр содержит 4 и т. Д.) Затем мы переходим к первому символу номера строки в регистре ( 0&.) ,

Строки с 3 по 13 имеют дело с тем, что делать, когда Cc, t, ', {и т. Д. Соответственно. Указатель инструкций перемещается назад, когда мы прыгаем; он приземляется на первый символ данной строки, но после прыжка он продвигает галочку перед выполнением, поэтому он начинает выполняться с конца строки, возвращаясь назад. Каждая строка помещает соответствующий номер языка в стек, а затем отправляет рыбу в nинструкцию, которая выводит ее.

^это самый сложный случай из-за моей собственной подлости с первой строкой этого ответа. Строка 13 читает ввод до EOF. Затем он направляется вниз к строке 15, которая сравнивает длину стека ( l) со значением 100 ( aa*). Если это длиннее ( )?), мы добавляем + bи 1получаем 12, этот язык; в противном случае 1 остается на вершине стека.

— Ник Маттео
источник
12

2. Brain-Flak , 22 байта

{<>(())(<>)}{}(<>{}())

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

Это проверяет вершину стека и помещает единицу в противоположный стек, если он не равен нулю. Затем он увеличивает и возвращает противоположный стек. Это возвращает 1 для пустой программы и 2 для всего остального.

Поскольку стеки в Brain-Flak по умолчанию равны нулю, пустая программа будет иметь ноль в верхней части стека, в то время как любая другая программа (кроме программ, заканчивающихся нулевыми символами) будет иметь истинное значение. Это означает, что мы можем запустить очень простую программу if в стеке ввода.

{      (<>)}{}              #If not zero
 <>(())                     #Push one to the other stack
              (<>{}())      #Switch to other stack and increment by one
— Мастер пшеницы
источник
Не могли бы вы отредактировать этот ответ? Я случайно проголосовал за это :)
— Конор О'Брайен
9

3. APL, 7 байт

' {'⍳⊃⍞

Объяснение:

      ⍞  read from the keyboard
     ⊃   first item of list, or space if empty
' {'⍳    index into the string ' {', giving N+1 (=3) if not found
— Мэринус
источник
8

10. Bash (+ coreutils) [язык 6], 4474 байта

Фиксированная версия (возвращает идентификатор языка)

expr substr "1234151516" $(expr index "365f8dc0eb" `md5sum|cut -c12`) 1 #G

Примечание: это ожидает завершающий перевод строки после введенного текста программы

— дирижабль
источник
7

9. Сетчатка (язык 1), 20 байт

$|}\{|[:'][^]']|,\b1

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

Как и plannapus, я решил пойти на переписку, чтобы немного изменить ситуацию, что также привело к значительному сокращению кода (я думаю, что модификация моего последнего ответа для учета последних в plannapus могла бы занять около 32 байт).

объяснение

Как и мои другие ответы, это просто подсчитывает количество различных совпадений регулярных выражений, но делает это намного эффективнее:

  • $соответствует концу строки. Это всегда работает, даже если совпадение проходит до конца строки, так что это дает нам базовую линию 1для всех входных данных.
  • }\{находит одно совпадение во второй программе (Brain-Flak), увеличивая счет до 2. Обратная косая черта не обязательна для экранирования, но предотвращает сопоставление этой части регулярного выражения.
  • [:'][^]']на самом деле довольно необычно. Единственной целью является подсчет двух 'в программе APL (язык 3) и трех :в программе JavaScript (язык 4), но мы должны предотвратить сопоставление этой части. Таким образом , мы также гарантируем , что следующий символ не является ни ', ни ](потому что те не появляются после того, как те , которые мы действительно хотим , чтобы соответствовать, но они появляются в этой программе здесь).
  • 'От предыдущей части уже вызывает один матч в программах R, так что нам нужно еще три. Подстрока ,1появляется в обоих из них три раза, и ни в каких других программах. Мы сопоставляем его, добавляя тавтологическую границу между ними, ,\b1чтобы предотвратить повторное совпадение.
— Мартин Эндер
источник
Хм, только что понял, что это совсем не мешает ответам R, потому что 1это просто вывод по умолчанию. Я должен сделать что-то об этом со следующим ответом.
— Мартин Эндер
7

18. C (язык 10), 121 байт

Это стандарт C89 или C90. Он работает с clang или gcc в Try It Online.

main(n){char*v=" ^{ s ePfwm",b[999],*c;gets(b);c=strchr(v,*b);n=strlen(b);printf("%d",n?c?c-v:n>99?4:n>60?5:n>15?1:3:1);}

Это печатает:

  • 1с ответами 1 , 5 , 7 , 9 и 14 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 , 12 и 15 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответами 10 и 17 (Баш).

  • 7с ответом 11 (Mathematica).

  • 8с ответом 13 (Python).

  • 9с ответом 16 (Perl).

  • 10 с этим ответом (С).

Вот драйвер bash, который запускает его со всеми 18 ответами на Попробуйте онлайн!

Ungolfed эквивалент (646 байт):

#include <string.h>
#include <stdio.h>
int main(){
    char *v=" ^{ s ePfwm", b[999];
    gets(b); /* buffer overrun if more than 998 characters in the input.
                could be a problem if we get to 191 answers */
    char *c = strchr(v, b[0]); /* Find first character of input in v, or null */
    int n = strlen(b);
    if (!n) {
        printf("1");
    } else if (c) {
        printf("%d", c-v); /* Index of first character of input in v */
    } else if (n > 99) {
        printf("4");
    } else if (n > 60) {
        printf("5");
    } else if (n > 15) {
        printf("1");
    } else {
        printf("3");
    }
    return 0;
}
— Ник Маттео
источник
6

5. Retina (язык 1), 23 байта

^$|(?![⊂⍴])[⊂-⍴]|\B=|{}

Попробуйте онлайн! (Проверяет все возможные входные данные.)

Подсчитывает совпадения разных вещей на входе:

  • ^$ соответствует входной строке, то есть первый ответ один раз.
  • {} соответствует самому себе, которых во второй программе два, и один в этой.
  • (?![⊂⍴])[⊂-⍴]соответствует символам с кодовыми 8834 до 9076, эксклюзив , который находит три матча в третьей программе. Мы используем негативную перспективу, чтобы избежать совпадения концов диапазона в этой программе.
  • \B=соответствует, =которому не предшествует символ слова. Это соответствует четырем из =четвертой программы и не соответствует =этой программе.
— Мартин Эндер
источник
5

7. Сетчатка (язык 1), 27 байт

^$|(?![⊂⍴])[⊂-⍴]|\B=|{}|\b5

Попробуйте онлайн! (Проверяет все возможные входные данные.)

Незначительная модификация пятого ответа . \B=уже находит 4 совпадения в шестом ответе и \b5находит другое без совпадения с любыми другими ответами.

— Мартин Эндер
источник
4

4, JavaScript (ES6), 32 байта

s=>s?s[0]==`{`?2:s[0]==`s`?4:3:1

Выходы 1 для пустого входа, 2, если вход начинается с a {, 4, если он начинается с a, sи 3 в противном случае.

— Люк
источник
Вы можете заменить s[0]=='{'наs[0]>'z'
1
@Masterzagh Я также думал о том, как это можно сыграть в гольф, но, увы, это не код-гольф: /
— Kritixi Lithos
@KritixiLithos Ну да, но он уже играл в гольф, поэтому я подумал, что он захочет пойти дальше.
@Masterzagh Люди должны избегать редактирования действительных ответов в подобных задачах, потому что они могут сделать недействительными а) более поздние ответы, б) ответы, над которыми в настоящее время работают.
— Мартин Эндер
@MartinEnder, ты прав. Поэтому я не буду редактировать его. Я знаю, что это выглядит в гольфе (из-за троичных операторов), но я специально не писал это так ... Спасибо за все отзывы!
— Лука
4

11. Mathematica [язык 7], 53 байта

Position[Characters@"^{'sceP",#&@@#][[1,1]]/._@__->1&

Безымянная функция, принимающая список символов в качестве аргумента и выводящая положительное целое число. Просто ответвляется на первую букву ввода, используя его положение в строке, "^{'sceP"чтобы принять решение о выводе. Это дает правильный ответ для всех предыдущих представлений, кроме начальной пустой программы Retina и самого последнего ответа Retina ; обе из этих ошибок, но вывод исправляется по правилу, /._@__->1которое преобразует любую неоцененную функцию в 1.

— Грег Мартин
источник
Я думаю, что действительно пришло время испортить эту стратегию первого персонажа :)
— Мартин Эндер
1
Я собирался, но потом вспомнил, что мне нужно было правильно выводить
— Грег Мартин,
4

16. Perl (язык 9), 94 байта

while(<>){print substr("1234151516748149",index("0F=POmS6D4e_XWVH",chr(47+length($_)%70)),1);}

Попробуйте онлайн! (проверяет все ответы). Выходы "1234151516748149"

Это печатает:

  • 1 с ответами 1, 5, 7, 9 и 14 (Retina).
  • 2 с ответом 2 (Brain-Flak).
  • 3 с ответом 3 (APL).
  • 4 с ответами 4, 12 и 15 (Javascript).
  • 5 с ответами 6 и 8 (R).
  • 6 с ответом 10 (Баш).
  • 7 с ответом 11 (Mathematica).
  • 8 с ответом 13 (Python).
  • 9 с этим ответом (Perl).

Программа проверяет длину ввода и сопоставляет ее с текущим языковым распределением.

— Lyth
источник
3

6. R (язык 5), 61 байт

cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))

Проверяет, что является первым символом ввода и соответственно выбирает вывод.

Это таким образом печатает:

  • 1с ответами 1 и 5 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответом 4 (Javascript).

  • и 5с этим ответом.

Использование:

> cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))

1
> cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
{<>(())(<>)}{}(<>{}())
2
> cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
' {'⍳⊃⍞
3
> cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
s=>s?s[0]==`{`?2:s[0]==`s`?4:3:1
4
> cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
^$|(?![⊂⍴])[⊂-⍴]|\B=|{}
1
> cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
5
— plannapus
источник
Чтобы запустить это вне REPL, см. Комментарий под ответом 8.
— plannapus
3

8. R (язык 5), 76 байт

c=which(c("","{","'","s","c")==substr(readline(),1,1));ifelse(length(c),c,1)

Проверяет первую букву ввода, и сравнивает его с вектором , содержащим (в указанном порядке) пустая строка, {, ', sи c. Затем выводится индекс совпадения (индексирование R основано на 1) или 1, если совпадения нет.

Та же концепция, что и в ответе № 6, но не позволяет ответу № 7 сопоставить его.

Это печатает:

  • 1с ответами 1 , 5 и 7 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответом 4 (Javascript).

  • и 5с ответом 6 и этим ответом (R).

Если я не ошибаюсь, допуск подсчета байтов для этого ответа составил 94 байта.

— plannapus
источник
FYI R онлайн-интерпретаторы (rfiddle, ideone и tryitonline), похоже, имеют проблемы с обработкой stdin (по крайней мере, с readline ()) и, следовательно, не будут работать должным образом. Боюсь, если вы хотите попробовать это (и предыдущий ответ), вам придется попробовать локально на установленной версии R.
— plannapus
^ Хорошо, вне REPL readlineследует заменить на readLines(file("stdin")). Что означает еще 16 символов: поэтому ответ 6 должен быть 77 байтов (из 79 разрешенных), а этот ответ - 92 байта (из 94 разрешенных). С этим изменением это работает и для онлайн переводчиков.
— plannapus
3

12. Javascript (язык 4), 117 байт

Примечание: я изменил характер, чтобы исправить ошибку в этом.

c=>c?c[0]=='e'?6:c[0]=='$'||c[0]=='^'?1:c[0]=='c'&&c.length>80?4:c[0]=='P'?7:c[0]=='c'?5:c[0]=='{'?2:c[0]=='s'?4:3:1;

Проверяет первую букву ввода, если это c, проверяет длину ввода.

Выходы:

  • 1 для ответов 1, 5, 7, 9
  • 2 для ответа 2
  • 3 для ответа 3
  • 4 для ответа 4 и этот ответ
  • 5 за ответы 6, 8
  • 6 за ответ 10
  • 7 для ответа 11
— Devsman
источник
3

13. Python (язык 8), 110 байт

Примечание. Этот ответ был изменен через 6 часов после публикации по рекомендации ФП.

from hashlib import*;print("1234151516748"["a5e1f936cd78b".index(sha256(input().encode()).hexdigest()[34])])#N

Это та же идея, что и в ответе 10 (в bash), но в Python 3. (Этот подход может работать не более чем с 3 записями, прежде чем мы исчерпаем шестнадцатеричные цифры.)

Это печатает:

  • 1с ответами 1 , 5 , 7 и 9 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 и 12 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответом 10 (Баш).

  • 7с ответом 11 (Mathematica).

  • 8 для этого ответа (Python).

Попробуйте онлайн! для: ответ 1 , ответ 2 , ответ 3 , ответ 4 , ответ 5 , ответ 6 , ответ 7 , ответ 8 , ответ 9 , ответ 10 , ответ 11 , ответ 11 , ответ 12 или этот ответ .

— Ник Маттео
источник
Каков текущий предел байтов?
— Ви.
@Vi .: Ну, это было 149 для ответа 13 и 163 для ответа 14; но ОП только что изменил правила подсчета байтов на 45 + 5n, так что это будет 110 байтов для ответа 13 и 115 байтов для ответа 14.
— Ник Маттео
Вы, вероятно, должны поднять 110-байтовое решение.
— clismique
@ Qwerp-Derp: все в порядке. Надеюсь, это никому не помешает.
— Ник Маттео
Хорошо, ждем около 60 ответов до тех пор, пока байт не достигнет дружественной для Java земли.
— Ви.
3

24. Zsh (язык 11), 142 байта

Мой предыдущий ответ № 18 в Си все еще работает без изменений для всех последующих записей ( демо ). Итак, давайте немного перепутаем.

typeset -A p
p=("[\$^]*|'\[*" 1 '{*' 2 "' *" 3 '?=>*' 4 'c?[wt]*' 5 'e*' 6 'P*' 7 'f*' 8 'w*' 9 'm*' 10 'ty*' 11)
echo ${p[(k)$1]:-1} #@<`w&X{

Цель комментария в конце состоит в том, чтобы соответствовать длине ответов 21 и 23, и убедиться, что ни один символ хэшей sha256 или sha384 не является уникальным для каждого ответа до сих пор, используя символы, проверенные ответами Lyth C ++. ;-)

Это печатает:

  • 1с ответами 1 , 5 , 7 , 9 и 14 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 , 12 и 15 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответами 10 , 17 , 20 и 22 (Баш).

  • 7с ответами 11 и 19 (Mathematica).

  • 8с ответом 13 (Python).

  • 9с ответом 16 (Perl).

  • 10с ответами 18 , 21 и 23 (C / C ++).

  • 11 с этим ответом (зш).

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

— Ник Маттео
источник
Я думаю, что это первый ответ, который будет многострочным ... +1 от меня.
— clismique
2

14. Retina (язык 1), 39 байт

'[ ⍳]|}\{|[o@:][^]'c@:]|^c|,\b1|1\d|$

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

— Мартин Эндер
источник
1
Давай, Мартин, постись на другом языке ... также, ты не мог бы заняться форматированием ответов?
— clismique
3
@ Qwerp-Derp Это на самом деле превращается в интересный вариант стандартного регулярного гольфа. Вместо того, чтобы иметь набор входов и совпадение с некоторыми из них и сбой некоторых других, здесь вы должны получить определенное количество совпадений для каждого из входов. Я действительно задаюсь вопросом, будет ли это регулярное выражение расти в геометрической прогрессии в какой-то момент.
— Мартин Эндер
Это действительно 39 байтов? TIO сообщает 37 байтов.
— Arnauld
1
@Arnauld TIO жестко задан для подсчета символов для Retina, потому что вы часто используете однобайтовые кодировки. Этот ответ требует UTF-8, хотя.
— Мартин Эндер
2

15. Javascript (язык 4), 108 байт

Golfed

t=>({24:2,86:3,5:4,73:5,68:5,74:7,4:6,79:4,1:8,67:4})[[...t].reduce((r,c,i)=>r*i^c.charCodeAt(0),0)&0x5F]||1
— дирижабль
источник
2

17. Bash (+ coreutils + openssl) (язык 6), 103 байта

Golfed

expr substr 69418476151514321 $(expr index 2PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1 #x

Использует ту же технику, что и мой ответ № 10 , но с закодированным в Base64 словарем вместо Hex .

Я собрал следующий файл данных для тестирования:

6 17 expr substr 69418476151514321 $(expr index 2PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1 #x
9 16 while(<>){print substr("1234151516748149",index("0F=POmS6D4e_XWVH",chr(47+length($_)%70)),1);}
4 15 t=>({24:2,86:3,5:4,73:5,68:5,74:7,4:6,79:4,1:8,67:4})[[...t].reduce((r,c,i)=>r*i^c.charCodeAt(0),0)&0x5F]||1
1 14 '[ ⍳]|}\{|[o@:][^]'c@:]|^c|,\b1|1\d|$
8 13 from hashlib import*;print("1234151516748"["a5e1f936cd78b".index(sha256(input().encode()).hexdigest()[34])])#N
4 12 c=>c?c[0]=='e'?6:c[0]=='$'||c[0]=='^'?1:c[0]=='c'&&c.length>80?4:c[0]=='P'?7:c[0]=='c'?5:c[0]=='{'?2:c[0]=='s'?4:3:1;
7 11 Position[Characters@"^{'sceP",#&@@#][[1,1]]/._@__->1&
6 10 expr substr "1234151516" $(expr index "365f8dc0eb" `md5sum|cut -c12`) 1 #G
1 09 $|}\{|[:'][^]']|,\b1
5 08 c=which(c("","{","'","s","c")==substr(readline(),1,1));ifelse(length(c),c,1)
1 07 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}|\b5
5 06 cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
1 05 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}
4 04 s=>s?s[0]==`{`?2:s[0]==`s`?4:3:1
3 03 ' {'⍳⊃⍞
2 02 {<>(())(<>)}{}(<>{}())
1 01

Тест

for i in `seq 17`
do
  echo -n `cat lchain|sed -n $i'{p;q}'|cut -c1`=\>
  cat lchain|sed -n $i'{p;q}'|cut -c6-|\
  expr substr 69418476151514321 $(expr index 2PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1 #x
done

6=>6
9=>9
4=>4
1=>1
8=>8
4=>4
7=>7
6=>6
1=>1
5=>5
1=>1
5=>5
1=>1
4=>4
3=>3
2=>2
1=>1
— дирижабль
источник
2

19. Mathematica (язык 7), 96 байт

Position[ToCharacterCode@StringSplit@";NRU$ Q B [1: =L J, 5% 3 # >",Mod[Length@#,59,33]][[1,1]]&

Безымянная функция, принимающая список символов в качестве входных данных и возвращающая целое число:

  • 1с ответами 1 , 5 , 7 , 9 и 14 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 , 12 и 15 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответами 10 и 17 (Баш).

  • 7с ответом 11 и этим ответом (Mathematica).

  • 8с ответом 13 (Python).

  • 9с ответом 16 (Perl).

  • 10с ответом 18 (С).

До сих пор все длины ответов различны, и они даже различаются по модулю 59 - следовательно, можно определить, по какому целому числу в диапазоне 33, 34, ..., 91 они соответствуют (мод 59). Это все печатные символы ASCII, закодированные строкой ";NRU$ Q B [1: =L J, 5% 3 # >"; с помощьюToCharacterCode@StringSplit@ превращает эту строку в список из десяти списков целых чисел в этом диапазоне и Position[...,Mod[Length@#,59,33]][[1,1]]находит, какой из десяти подсписков соответствует измененной длине ввода.

— Грег Мартин
источник
1

20. Bash (+ coreutils + openssl) (язык 6), 121 байт

Golfed

expr substr 67A69418476151514321 $(expr index 7042PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1| dc -e16i?p #u

Тот же метод, что и в моем ответе № 17 (который, в свою очередь, основан на моем первоначальном ответе № 10 ).

Сейчас у нас 10 разных языков, и я переключился на шестнадцатеричное кодирование позиций.

Данные

6 20 expr substr 67A69418476151514321 $(expr index 7042PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1| dc -e16i?p #u
7 19 Position[ToCharacterCode@StringSplit@";NRU$ Q B [1: =L J, 5% 3 # >",Mod[Length@#,59,33]][[1,1]]&
A 18 main(n){char*v=" ^{ s ePfwm",b[999],*c;gets(b);c=strchr(v,*b);n=strlen(b);printf("%d",n?c?c-v:n>99?4:n>60?5:n>15?1:3:1);}
6 17 expr substr 69418476151514321 $(expr index 2PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1 #x
9 16 while(<>){print substr("1234151516748149",index("0F=POmS6D4e_XWVH",chr(47+length($_)%70)),1);}
4 15 t=>({24:2,86:3,5:4,73:5,68:5,74:7,4:6,79:4,1:8,67:4})[[...t].reduce((r,c,i)=>r*i^c.charCodeAt(0),0)&0x5F]||1
1 14 '[ ⍳]|}\{|[o@:][^]'c@:]|^c|,\b1|1\d|$
8 13 from hashlib import*;print("1234151516748"["a5e1f936cd78b".index(sha256(input().encode()).hexdigest()[34])])#N
4 12 c=>c?c[0]=='e'?6:c[0]=='$'||c[0]=='^'?1:c[0]=='c'&&c.length>80?4:c[0]=='P'?7:c[0]=='c'?5:c[0]=='{'?2:c[0]=='s'?4:3:1;
7 11 Position[Characters@"^{'sceP",#&@@#][[1,1]]/._@__->1&
6 10 expr substr "1234151516" $(expr index "365f8dc0eb" `md5sum|cut -c12`) 1 #G
1 09 $|}\{|[:'][^]']|,\b1
5 08 c=which(c("","{","'","s","c")==substr(readline(),1,1));ifelse(length(c),c,1)
1 07 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}|\b5
5 06 cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
1 05 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}
4 04 s=>s?s[0]==`{`?2:s[0]==`s`?4:3:1
3 03 ' {'⍳⊃⍞
2 02 {<>(())(<>)}{}(<>{}())
1 01

Тест (выход)

./test
6=>6
7=>7
A=>10
6=>6
9=>9
4=>4
1=>1
8=>8
4=>4
7=>7
6=>6
1=>1
5=>5
1=>1
5=>5
1=>1
4=>4
3=>3
2=>2
— дирижабль
источник
1

23. C (gcc) (язык 10), 142 байта

main(c){int d[256]={0};while((c=getchar())!=EOF)d[c]++;printf("%d",d[88]?9:d[119]?5*d[123]:d[35]?d[38]?7:8-d[96]:d[48]?4:d[60]?2:1+d[158]*2);}

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

  • 1с ответами 1 , 5 , 7 , 9 и 14 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 , 12 и 15 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответами 10 , 17 , 20 и 22 (Баш).

  • 7с ответом 11 и 19 (Mathematica).

  • 8с ответом 13 (Python).

  • 9с ответом 16 (Perl).

  • 10с ответом 18 , 21 и этим ответом (с).

Эта программа считает количество различных символов (в ASCII, поэтому многобайтовые символы UTF-8 разбиваются на несколько записей), а затем следует тщательно продуманному дереву решений, основываясь на количестве появлений того или иного символа.

Дерево решений не изменилось с # 21 (ууу!). Мне не разрешено публиковать точно такой же код, поэтому мы вернулись к чистому Си с небольшими изменениями.

— Lyth
источник
0

21. C ++ (gcc) (язык 10 как вариант C), 142 байта

main(){int K,d[256]{0};while((K=getchar())!=EOF)d[K]++;printf("%d",d[88]?9:d[119]?5*d[123]:d[35]?d[38]?7:8-d[96]:d[48]?4:d[60]?2:1+d[158]*2);}

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

  • 1с ответами 1 , 5 , 7 , 9 и 14 (Retina).

  • 2с ответом 2 (Brain-Flak).

  • 3с ответом 3 (APL).

  • 4с ответами 4 , 12 и 15 (Javascript).

  • 5с ответами 6 и 8 (R).

  • 6с ответами 10 , 17 и 20 (Баш).

  • 7с ответом 11 и 19 (Mathematica).

  • 8с ответом 13 (Python).

  • 9с ответом 16 (Perl).

  • 10с ответом 18 и этим ответом (С).

Эта программа считает количество различных символов (в ASCII, поэтому многобайтовые символы UTF-8 разбиваются на несколько записей), а затем следует тщательно продуманному дереву решений, основываясь на количестве появлений того или иного символа.

По мелочи : буква К не использовалась до этой записи. Буквы I, E, Y, j, k, q, z остаются неиспользованными.

— Lyth
источник
Существует возможность рассматривать C ++ язык 11, несколько байт осталось , чтобы соответствовать , что в.
— Lyth
0

22. Bash (+ coreutils) [язык 6], 123131 байт

РЕДАКТИРОВАТЬ: опубликовал неправильную версию вначале, должны быть исправлены сейчас.

Golfed

expr substr 6A67A69418476151514321 $(expr index i3xFepQsAalyIvtqPY7ZN+ \\`openssl sha256 -binary|base64|cut -c10`) 1| dc -e16i?p #L

Та же техника, что и в моих ответах №20, №17 и №10 .

Данные

6 22 expr substr 6A67A69418476151514321 $(expr index i3xFepQsAalyIvtqPY7ZN+ \\`openssl sha256 -binary|base64|cut -c10`) 1| dc -e16i?p #L
A 21 main(){int K,d[256]{0};while((K=getchar())!=EOF)d[K]++;printf("%d",d[88]?9:d[119]?5*d[123]:d[35]?d[38]?7:8-d[96]:d[48]?4:d[60]?2:1+d[158]*2);}
6 20 expr substr 67A69418476151514321 $(expr index 7042PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1| dc -e16i?p #u
7 19 Position[ToCharacterCode@StringSplit@";NRU$ Q B [1: =L J, 5% 3 # >",Mod[Length@#,59,33]][[1,1]]&
A 18 main(n){char*v=" ^{ s ePfwm",b[999],*c;gets(b);c=strchr(v,*b);n=strlen(b);printf("%d",n?c?c-v:n>99?4:n>60?5:n>15?1:3:1);}
6 17 expr substr 69418476151514321 $(expr index 2PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1 #x
9 16 while(<>){print substr("1234151516748149",index("0F=POmS6D4e_XWVH",chr(47+length($_)%70)),1);}
4 15 t=>({24:2,86:3,5:4,73:5,68:5,74:7,4:6,79:4,1:8,67:4})[[...t].reduce((r,c,i)=>r*i^c.charCodeAt(0),0)&0x5F]||1
1 14 '[ ⍳]|}\{|[o@:][^]'c@:]|^c|,\b1|1\d|$
8 13 from hashlib import*;print("1234151516748"["a5e1f936cd78b".index(sha256(input().encode()).hexdigest()[34])])#N
4 12 c=>c?c[0]=='e'?6:c[0]=='$'||c[0]=='^'?1:c[0]=='c'&&c.length>80?4:c[0]=='P'?7:c[0]=='c'?5:c[0]=='{'?2:c[0]=='s'?4:3:1;
7 11 Position[Characters@"^{'sceP",#&@@#][[1,1]]/._@__->1&
6 10 expr substr "1234151516" $(expr index "365f8dc0eb" `md5sum|cut -c12`) 1 #G
1 09 $|}\{|[:'][^]']|,\b1
5 08 c=which(c("","{","'","s","c")==substr(readline(),1,1));ifelse(length(c),c,1)
1 07 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}|\b5
5 06 cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
1 05 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}
4 04 s=>s?s[0]==`{`?2:s[0]==`s`?4:3:1
3 03 ' {'⍳⊃⍞
2 02 {<>(())(<>)}{}(<>{}())
1 01

Тестовый забег

./test
6=>6
A=>10
6=>6
7=>7
A=>10
6=>6
9=>9
4=>4
1=>1
8=>8
4=>4
7=>7
6=>6
1=>1
5=>5
1=>1
5=>5
1=>1
4=>4
3=>3
2=>2
1=>1
— дирижабль
источник
Что 44?
— clismique
22 * 2? 󠀠󠀠󠀠󠀠󠀠
— Vi.
@ Qwerp-Derp, просто опечатка
— дирижабль
Давай, твои ответы становятся скучными сейчас - если твой следующий ответ будет таким, я подумываю о понижении (это не интересно, понимаешь?)
— clismique
1
Что-то здесь не так. В ваших хэшированных письмах всего 20 записей (3PgT и т. Д.). Для пустого ввода я получаю ошибку, а для ответа № 2 я получаю «4» (оба сработали правильно с ответом 20.)
— Ник Маттео
0

25. Bash (язык 6), 169 байт

Та же техника, что и в моих ответах № 22, № 20, № 17 и № 10 .

Извините @ Qwerp-Derp! ;) Обещаю, это последний :)

Golfed

{ echo -n 'addsomesalt?';cat; }|expr substr 6BA6A67A69418476151514321 $(expr index 1W0TC4YrKwRGAJupDqn7Xlcog \\`openssl sha256 -binary|base64|cut -c40`) 1| dc -e16i?p #8

Данные

Обратите внимание, что для ответа № 24 символы новой строки кодируются как \ n

6 25 { echo -n 'addsomesalt?';cat; }|expr substr 6BA6A67A69418476151514321 $(expr index 1W0TC4YrKwRGAJupDqn7Xlcog \\`openssl sha256 -binary|base64|cut -c40`) 1| dc -e16i?p #8
B 24 typeset -A p\np=("[\$^]*|'\[*" 1 '{*' 2 "' *" 3 '?=>*' 4 'c?[wt]*' 5 'e*' 6 'P*' 7 'f*' 8 'w*' 9 'm*' 10 'ty*' 11)\necho ${p[(k)$1]:-1} #@<`w&X{
A 23 main(c){int d[256]={0};while((c=getchar())!=EOF)d[c]++;printf("%d",d[88]?9:d[119]?5*d[123]:d[35]?d[38]?7:8-d[96]:d[48]?4:d[60]?2:1+d[158]*2);}
6 22 expr substr 6A67A69418476151514321 $(expr index i3xFepQsAalyIvtqPY7ZN+ \\`openssl sha256 -binary|base64|cut -c10`) 1| dc -e16i?p #L
A 21 main(){int K,d[256]{0};while((K=getchar())!=EOF)d[K]++;printf("%d",d[88]?9:d[119]?5*d[123]:d[35]?d[38]?7:8-d[96]:d[48]?4:d[60]?2:1+d[158]*2);}
6 20 expr substr 67A69418476151514321 $(expr index 7042PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1| dc -e16i?p #u
7 19 Position[ToCharacterCode@StringSplit@";NRU$ Q B [1: =L J, 5% 3 # >",Mod[Length@#,59,33]][[1,1]]&
A 18 main(n){char*v=" ^{ s ePfwm",b[999],*c;gets(b);c=strchr(v,*b);n=strlen(b);printf("%d",n?c?c-v:n>99?4:n>60?5:n>15?1:3:1);}
6 17 expr substr 69418476151514321 $(expr index 2PtgBOlrvfDVC8ZHL `openssl md5 -binary|base64|cut -c2`) 1 #x
9 16 while(<>){print substr("1234151516748149",index("0F=POmS6D4e_XWVH",chr(47+length($_)%70)),1);}
4 15 t=>({24:2,86:3,5:4,73:5,68:5,74:7,4:6,79:4,1:8,67:4})[[...t].reduce((r,c,i)=>r*i^c.charCodeAt(0),0)&0x5F]||1
1 14 '[ ⍳]|}\{|[o@:][^]'c@:]|^c|,\b1|1\d|$
8 13 from hashlib import*;print("1234151516748"["a5e1f936cd78b".index(sha256(input().encode()).hexdigest()[34])])#N
4 12 c=>c?c[0]=='e'?6:c[0]=='$'||c[0]=='^'?1:c[0]=='c'&&c.length>80?4:c[0]=='P'?7:c[0]=='c'?5:c[0]=='{'?2:c[0]=='s'?4:3:1;
7 11 Position[Characters@"^{'sceP",#&@@#][[1,1]]/._@__->1&
6 10 expr substr "1234151516" $(expr index "365f8dc0eb" `md5sum|cut -c12`) 1 #G
1 09 $|}\{|[:'][^]']|,\b1
5 08 c=which(c("","{","'","s","c")==substr(readline(),1,1));ifelse(length(c),c,1)
1 07 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}|\b5
5 06 cat(switch(substr(readline(),1,1),"{"=2,"'"=3,"s"=4,"c"=5,1))
1 05 ^$|(?![⊂⍴])[⊂-⍴]|\B=|{}
4 04 s=>s?s[0]==`{`?2:s[0]==`s`?4:3:1
3 03 ' {'⍳⊃⍞
2 02 {<>(())(<>)}{}(<>{}())
1 01

Тестовый вывод

6=>6
B=>11
A=>10
6=>6
A=>10
6=>6
7=>7
A=>10
6=>6
9=>9
4=>4
1=>1
8=>8
4=>4
7=>7
6=>6
1=>1
5=>5
1=>1
5=>5
1=>1
4=>4
3=>3
2=>2
1=>1
— дирижабль
источник
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.