Я не столько смеялся над контентом Stack Exchange, сколько от этого . Я думаю, что вам всем понравится этот вызов, поскольку он вдохновлен тем, что там происходит.
Вы напишите функцию или программу, которая является code-golf, то есть она должна быть настолько короткой, насколько вы можете ее сделать.
Получив текст, верните (оба любыми способами) текст, в котором вы заключили как можно больше слов в соответствии с этой таблицей .
Вы не должны извлекать информацию из таблицы, скорее, вы должны иметь всю необходимую информацию, включенную в ваш код.
Все правила по умолчанию не должны нарушаться, поскольку у нас не будет нечестной конкуренции.
Вам не нужно учитывать текст, если он не с заглавной буквы, как в таблице, поэтому вы не должны преобразовывать you all WOULD not have
или You all would not have
в y'all'dn't've
.
Вы можете подобрать только старый добрый апостроф (U + 0027) или любой хороший ; все, что вы хотите.
Пример ввода выше ↑ и соответствующий вывод ниже ↓
Я не смеялся так много от контента StackExchange, как я от этого . Я думаю, что вам понравится этот вызов, так как он вдохновлен тем, что там происходит.
Вы напишете функцию или программу, которая является code-golf, то есть она должна быть настолько короткой, насколько вы можете это сделать.
Получив текст, верните (оба любыми способами) текст, в котором вы заключили как можно больше слов в соответствии с этой таблицей .
Вы не должны извлекать информацию из таблицы, скорее, вы должны включить всю необходимую информацию в свой код.
Все правила по умолчанию не должны быть нарушены, поскольку у нас не будет нечестной конкуренции.
Вам не нужно рассматривать текст, если он не написан заглавными буквами, как в таблице, поэтому вы не должны конвертировать you all WOULD not have
или You all would not have
в y'all'dn't've
.
Вы можете подобрать только хороший старый апостроф (U + 0027) или любой другой ; все, что вы хотите.
Ответы:
Perl,
34291095 байтСжатый текст.
uuencode версия скрипта
источник
perl -p0 s1-golfed.pl
чтобы избавиться от обернутого цикла while:$/="\n";for$d(<DATA>){($x)=$d=~/(.*),(.*)\b/;s/$2/$x/g}
$x
:for$d(<DATA>){$d=~s~(.*),(.*)\b~"s/$2/$1/g"~eeg}