Напишите функцию или программу, которая принимает два слова в качестве входных данных и выводит варианты популярного английского скороговорки «Сколько бы дерева сгрызло сурок, если сурок мог бы соскоблить дерево?».

Выход будет использовать первое слово четыре раза

• Сколько woodбы woodзабил патрон, если бы woodпатрон мог забить wood?

а второе слово четыре раза

• Сколько дерева будет дерево, chuck chuckесли дерево chuckможет chuckдерево?

с остальными выходными данными одинаковыми для любых входов.

• How muchдерево would aсурка Патрон if aсурка couldПатрон дерево?

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

В идеале ваш код будет обрабатывать ввод, содержащий любые печатные символы ASCII. Тем не менее, разрешено ограничивать ввод разумными подмножествами печатного ASCII; просто укажите это в своем ответе. Обработка больших наборов символов, конечно, хорошо.

Пример пар ввода-вывода:

"wood", "chuck"
"How much wood would a woodchuck chuck if a woodchuck could chuck wood?"

"ground", "hog"
"How much ground would a groundhog hog if a groundhog could hog ground?"

"bar", "keep"
"How much bar would a barkeep keep if a barkeep could keep bar?"

"money", "belt"
"How much money would a moneybelt belt if a moneybelt could belt money?"

"rain", "fall"
"How much rain would a rainfall fall if a rainfall could fall rain?"

"hair", "cut"
"How much hair would a haircut cut if a haircut could cut hair?"

"green", "house"
"How much green would a greenhouse house if a greenhouse could house green?"

"jabber", "wock"
"How much jabber would a jabberwock wock if a jabberwock could wock jabber?"

"pine", "apple"
"How much pine would a pineapple apple if a pineapple could apple pine?"

"Rob", "Lowe"
"How much Rob would a RobLowe Lowe if a RobLowe could Lowe Rob?"

"code", "golf"
"How much code would a codegolf golf if a codegolf could golf code?"

"fish", ""
"How much fish would a fish  if a fish could  fish?"

"", "fish"
"How much  would a fish fish if a fish could fish ?"

"", ""
"How much  would a   if a  could  ?"

"  ", "     "
"How much    would a               if a         could         ?"

"would a", "how much"
"How much would a would a would ahow much how much if a would ahow much could how much would a?"

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

(Вдохновлен этим мемом , который использует одну входную пару лучше, чем этот жесткий шаблон ....)

Python 3 , 70 67 байт

"How much {0} would a {0}{1} {1} if a {0}{1} could {1} {0}?".format

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

Я имею в виду, если обувь подходит ..

Спасибо manatwork за ловлю опечатки

Спасибо Remco Haszing за отличную идею - 3 байта

Я убегаю от предположения, что это все еще будет действительным представлением (потому что, мужик, это слишком круто, чтобы не пытаться). Если бы OP мог уточнить, является ли это приемлемым (потому что я не написал функцию как таковую), это будет оценено.

Обновление: благословение получено, все хорошо :)

Предыдущая версия:

lambda a,b:f"How much {a} would a {a+b} {b} if a {a+b} could {b} {a}?"

T-SQL, 82 байта

SELECT'How much '+w+' would a '+w+c+' '+c+' if a '+w+c+' could '+c+' '+w+'?'FROM t

Входные данные берутся из уже существующей таблицы с колоннами и , в соответствии с нашими правилами ввода - вывода .$t$$w$$c$

Один байт длиннее, но почему-то чуть приятнее:

SELECT REPLACE(REPLACE('How much 1 would a 12 2 if a 12 could 2 1?',1,w),2,c)FROM t

Эта версия работает с подмножеством входных данных, которые не включают цифры 2в первом слове .$w$

Поскольку я в SQL, я могу предварительно загрузить все примеры в таблицу и запустить их все сразу:

Баш , 50 байт

echo How much $2 {would,$1\ if}\ a\ $2$1 could $@?

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

-5 байтов из-за помощи из комментариев ниже.

Stax , 33 31 30 29 байт

-1 спасибо за рекурсив !

¢èO∩sP↑å♥|1╧ì}ò♂xb■δå«█Γ╨╦►Q²

Запустите и отладьте его на staxlang.xyz!

Вставьте каждый компонент в стек в обратном порядке, затем объедините все с пробелами.

Распаковано (35 байт) и объяснение:

X'?+;`IM'`x;+Y`~^$`,y`75\`x`Q)("`LJ
X                                      Set register X to the first word
                                       "wood"
 '?+                                   Append a question mark, popping from the input stack
                                       "wood?"
    ;                                  Peek from input stack and push to main stack
                                       "chuck" "wood?"
     `IM'`                             Literal "could"
                                       "could" "chuck" "wood?"
          x;+Y                         Peek register x. Peek input. Concatenate. Set register Y.
                                       "woodchuck" "could" "chuck" "wood?"
              et cetera, ad nauseam
                                  LJ   Listify the stack and join with spaces
                                       Implicit print

Все между `` является сжатым строковым литералом. Эта запятая имеет жизненно важное значение. В последний раз, когда я читаю из входного стека, я должен выскочить, а не заглянуть, чтобы избежать дополнительного «броска» на конец моего вывода.

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

27 26 байт с ограничениями на ввод

å▓Zf╢7)╪♪²p╞8ó╪l▼]<¡REïSèΣ

Запустите и отладьте его на staxlang.xyz!

Как и в случае с SOGL @ dzaima , произойдет сбой, если первый вход содержит строчную букву 'y'. Выдвигает строку «Сколько b будет a by y, если a by может yb?», Затем делает пару замен.

JavaScript, 70 байт

Скучно!

a=>b=>`How much ${a} would a ${a+b} ${b} if a ${a+b} could ${b} ${a}?`

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

Мягко менее скучно!

a=>"How much 0 would a 01 1 if a 01 could 1 0?".replace(/\d/g,x=>a[x])

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

СОГЛ , 32 30 байт

^.](9V;⅜‛°@Ε¬tπs%.½Ω‘⁽ b,ŗ y,ŗ

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

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

½ouiīZģ9Ο|ΧyΚ⅞ō÷Jeq(‚7‘представляет собой сжатую строку "how much b would a by y if a by could y b?"(символы, выбранные таким образом, что все необходимые слова находятся в верхних 512 словах словаря, которые сжимаются лучше), затем bзаменяется 1-м входом и y2-м.

R , 90 77 76 байт

-13 благодаря Sumner18
-1 благодаря Джузеппе

function(x,y,`[`=gsub)2[y,1[x,"How much 1 would a 12 2 if a 12 could 2 1?"]]

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

PHP , 72 байта

[,$a,$b]=$argv;echo"How much $a would a $a$b $b if a $a$b could $b $a?";

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

Или же:

PHP , 72 байта

How much <?=![,$a,$b]=$argv,"$a would a $a$b $b if a $a$b could $b $a?";

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

Ввод из командной строки, вывод в STDOUT.

JavaScript (V8) , 72 байта

(a,b)=>['How much',a,'would a',c=a+b,b,'if a',c,'could',b,a+'?'].join` `

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

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

ZX Spectrum Basic, 87 байт

Просто для полноты, простой реализации:

INPUT a$,b$: PRINT "How much ";a$;" would a ";a$;b$;"  ";b$;" if a ";a$;b$;" could ";b$;" ";a$;"?"

Использование IFключевого слова (1 байт) сокращает его на 3 байта, но нарушает условие «одинаковой капитализации»:

INPUT a$,b$: PRINT "How much ";a$;" would a ";a$;b$;"  ";b$;" IF a ";a$;b$;" could ";b$;" ";a$;"?"

Ржавчина , 75 байт

|a,b|print!("How much {} would a {0}{} {1} if a {0}{1} could {1} {0}?",a,b)

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

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

Также используется print!(), потому что он на один байт короче, чем построение строки format!()и ее возврат.

05AB1E , 37 35 31 30 байт

“Howƒ×1€Þ a ÿ0€¬ a ÿƒˆ01?“T$ú‡

-5 байтов благодаря @Grimy .

Принимает список из двух элементов: в woodкачестве первого значения и в chuckкачестве второго.

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

Объяснение:

“Howƒ×1€Þ a ÿ0€¬ a ÿƒˆ01?“
      # Push dictionary string "How much1 would a ÿ0 if a ÿ could01?",
      # where the `ÿ` are automatically filled with the (implicit) input-list,
      # implicitly joined together to a single string
      #  i.e. ["wood","chuck"] → "How much1 would a woodchuck0 if a woodchuck could01?"
T     # Push 10
 $    # Push the input-list and 1
  ù   # Pad the strings in the input-list with this 1 amount of leading spaces
      #  ["wood","chuck"] → [" wood"," chuck"]
   ‡  # Transliterate the 10 ([1,0]) to these strings in the sentence
      #  → "How much wood would a woodchuck chuck if a woodchuck could chuck wood?"
      # (after which the result is output implicitly)

Посмотрите эту подсказку 05AB1E (раздел Как пользоваться словарем? ), Чтобы понять, почему “Howƒ×1€Þ a ÿ0€¬ a ÿƒˆ01?“это так "How much1 would a ÿ0 if a ÿ could01?".

Applesoft BASIC, 77 76 байт

1INPUTA$,B$:?"How much "A$" would a "A$B$" "B$" if a "A$B$" could "B$" "A$"?

Вышеприведенное может не выглядеть как правильный BASIC, но Applesoft допускает несколько сочетаний клавиш при использовании этого PRINTоператора:

• Использование ?вместо PRINTпри вводе заявления
• Символы конкатенации (или ;или +) могут быть опущены
• Если оператор заканчивается строкой в ​​кавычках, окончательная цитата может быть опущена Спасибо, Марк !

Требуется номер строки, иначе INPUTоператор вызовет?ILLEGAL DIRECT ERROR

33 , 78 байт

"How much "p1btpt" would a "ptpz2btp" "ptbtp" if a "ptpbtp" could "ptbtp" "ptp

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

Принимает входные данные в качестве аргументов командной строки.

Бонус: 91 байт

"How much "p1bztp" would a "p1bztp2bztp" "p2bztp" if a "p1bztp2bztp" could "p2bztp" "p1bztp

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

Дает вывод, похожий на себя, когда данные 1bztpи2bztp

Котлин , 59 байт

{i,j->"How much $i would a $i$j $j if a $i$j could $j $i?"}

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

PowerShell , 65 байт

param($a,$b)"How much $a would a $a$b $b if a $a$b could $b $a`?"

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

Единственное, что следует отметить, это то, что вы должны экранировать знак вопроса, потому что они могут быть действительными частями идентификатора PowerShell.

VBA, 107 байт

Function q(a,b)
b=b&" "
c="ould "
q="How much "&a&" w"&c&"a "&a&b&b&"if a "&a&b&"c"&c&b&a&"?"
End Function

Должен также работать как VBScript, я использовал два ярлыка: «ould» повторяется и «chuck» никогда не появляется без дополнительного пробела.

C # , 165 148 133 байта

class P{static void Main(string[]a){System.Console.Write("How much {0} would a {0}{1} {1} if a {0}{1} could {1} {0}?\n",a[0],a[1]);}}

Спасибо Эндрю Баумеру за рассказ о интерполированных строках!
РЕДАКТИРОВАТЬ: теперь добавлен полный класс.
РЕДАКТИРОВАТЬ: Спасибо Кеннету К. за несколько советов по его сокращению.
РЕДАКТИРОВАТЬ: Еще раз спасибо Эндрю за то, что сказал мне, что использование интерполированной строки на самом деле дольше в этом сценарии.

Haskell , 76 байт

a?b=a++" "++b
a!b="How much"?a?"would a"?a++b?b?"if a"?a++b?"could"?b?a++"?"

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

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

Желе , 39 байт

ŒPKŒP“µkþ¿µ‘ị“þ>Æƈ)taJṖ;ạʂ\4S%dñl»Ỵ¤ż”?

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

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

... Или (также полная программа, принимающая список из двух строк)

⁽4ṀDBịs€2ṭ€€⁶“þ>Æƈ)taJṖ;ạʂ\4S%dñl»Ỵ¤ż”?

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

Python 3 , 80 байт

lambda n:'How much {0} would a {0}{1} {1} if a {0}{1} could {1} {0}?'.format(*n)

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

в Риме используйте формат str.

Отредактировано с помощью трюка Squid.

C # (интерактивный компилятор Visual C #) , 66 65 байт

x=>y=>$"How much {x} would a {x+y} {y} if a {x+y} could {y} {x}?"

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

так же, как и все, кроме C #. -1 байт, используя слой каррирования a => b => c вместо (a, b) => c

R , 95 байт

function(a,b)cat("How much ",a," would a ",a,b," ",b," if a ",a,b," could ",b," ",a,"?",sep='')

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

APL (Dyalog Unicode) , 56 59 байт

{∊'How much '⍺' would a '⍺⍵' '⍵' if a '⍺⍵' could '⍵' '⍺'?'}

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

Довольно простой DFN. Сохраняет байт, обрезая, ∊если нам разрешено возвращать массив строк вместо одной строки.

Добавлено 3 байта, потому что я забыл добавить знак вопроса.

Wolfram Language (Mathematica) , 68 байт

StringRiffle@{How,much,#,would,a,c=#<>#2,#2,if,a,c,could,#2,#<>"?"}&

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

Желе , 41 37 байт

⁾be,y“Ø[gœıJ9°m.OṚuHlh3Ƥ⁾$ɲ0øḲʂṇHẎṆȥ»

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

Полная программа, принимающая пару строк в качестве аргумента и печатающая обработанную строку. Монадная ссылка может быть сформирована путем добавления Fв конец (спасибо @JonathanAllan за указание на это).

Теперь я переключился на использование «b» и «e» в качестве заполнителей, вдохновленных ответом @ dzaima на SOGL, поэтому обязательно добавьте этот комментарий! Это означает, что первое слово не может включать букву е.

Japt -S , 44 39 байт

[`How Û2`U`Ùd a`N=¬V`if a`N`Öd`VU+'?]

Попробуй

Forth (gforth) , 116 байтов

: x 2over type ; : y 2dup type ; : f ." How much "x ."  would a "x y ."  "y ."  if a "x y ."  could "y ."  "x ." ?";

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

Код Объяснение

\ x = output the first word
: x               \ start a new word definition
  2over type      \ copy the "first" word to the top of the stack and print it
;                 \ end word definition

\ y = output the second word
: y               \ start a new word definition
  2dup type       \ copy the "second" word to the top of the stack and print it
;                 \ end word definition

: f               \ start a new word definition
  ." How much "x  \ print "How much " followed by the first word   
  ."  would a "x  \ print " would a " followed by the first word
  y ."  if a "x   \ print the second word followed by " if a " and then the first word
  y ."  could "y  \ print the second word, then " could " then the second word again
  ."  "x ." ?"    \ print a space followed by the first word, followed by "?"
;                 \ end word definition

Луа , 82 байта

a,b=...print((('How much x would a xy y if a xy could y x?'):gsub('.',{x=a,y=b})))

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

Полная программа, принять входные данные в качестве аргументов.

Здесь нет ничего особенного. Надеюсь, что есть более короткая версия, но нет очевидных способов сократить это на первый взгляд.

Баш , 58 байт

echo "How much $1 could a $1$2 $2 if a $1$2 could $2 $1?"

Принимает ввод в качестве аргументов командной строки. Попробуйте онлайн!