Napisz funkcję lub program, który pobiera dwa słowa jako warianty wejściowe i wyjściowe popularnej angielskiej łamigłówki „Ile drewna wyrzuciłby uchwyt, gdyby ten mógł wyrzucić drewno?”.

Wyjście użyje pierwszego słowa cztery razy

• Ile woodbyłby wooduchwyt, gdyby wooduchwyt mógł się zacinać wood?

a drugie słowo cztery razy

• Ile drewna byłoby drewno, chuck chuckgdyby drewno chuckmogło chuckdrewno?

reszta danych wyjściowych jest taka sama dla wszystkich danych wejściowych.

• How muchdrewno would aw tartaku uchwyt if atartaku coulduchwyt drewna?

Dane wejściowe i wyjściowe mogą być w dowolnym formacie, który Twój język racjonalnie rozpoznaje jako zajmujący się ciągami tekstu. Dane wyjściowe muszą mieć dokładnie wskazany format, w tym wielkie litery, spacje i ich brak oraz końcowy znak zapytania. Opcjonalny znak nowej linii jest dopuszczalny.

Idealnie twój kod będzie obsługiwał dane wejściowe zawierające dowolne drukowalne znaki ASCII. Dozwolone jest jednak ograniczenie danych wejściowych do uzasadnionych podzbiorów drukowalnego ASCII; po prostu zaznacz to w swojej odpowiedzi. Obsługa większych zestawów znaków jest oczywiście w porządku.

Przykładowe pary przepływów międzygałęziowych:

"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?"

To jest golf golfowy , więc wygrywa najmniej bajtów. Odpowiedzi są mile widziane we wszystkich językach, nawet jeśli jakiś inny język może to zrobić w mniejszej liczbie bajtów.

(Zainspirowany tym memem , który używa jednej pary danych wejściowych lepiej niż ten sztywny wzór…)

Python 3 , 70 67 bajtów

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

Wypróbuj online!

To znaczy, jeśli but pasuje ...

Dzięki manatwork za złapanie literówki

Dzięki Remco Haszing za doskonały pomysł na 3 bajty

Uciekam od założenia, że ​​nadal byłoby to prawidłowe oświadczenie (ponieważ człowieku, to zbyt fajne, żeby nie próbować). Gdyby OP mógł wyjaśnić, czy jest to dopuszczalne (ponieważ nie napisałem funkcji jako takiej), byłoby to mile widziane.

Aktualizacja: Otrzymano błogosławieństwo, wszystko jest dobrze :)

Poprzednia wersja:

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

T-SQL, 82 bajty

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

Dane wejściowe są pobierane z wcześniej istniejącej tabeli z kolumnami i , zgodnie z naszymi zasadami IO .$t$$w$$c$

Jeden bajt dłużej, ale z jakiegoś powodu nieco bardziej przyjemny:

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

Ta wersja działa na podzbiorze danych wejściowych, które nie zawierają cyfry 2w pierwszym słowie .$w$

Ponieważ korzystam z SQL, mogę wstępnie załadować wszystkie przykłady do tabeli i uruchomić je wszystkie na raz:

Bash , 50 bajtów

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

Wypróbuj online!

-5 bajtów dzięki pomocy z poniższych komentarzy.

Stax , 33 31 30 29 bajtów

-1 dzięki rekurencyjnemu !

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

Uruchom i debuguj na staxlang.xyz!

Wciśnij każdy komponent do stosu w odwrotnej kolejności, a następnie połącz wszystkie spacjami.

Rozpakowane (35 bajtów) i objaśnienie:

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

Wszystko pomiędzy `` jest skompresowanym dosłownym ciągiem. Ten przecinek jest niezbędny. Ostatnim razem, gdy czytam ze stosu wejściowego, muszę wyskoczyć, a nie zajrzeć, aby uniknąć dodatkowego „chuck” na końcu mojego wyjścia.

Zauważysz, że umieściłem oba wejścia w tym samym wierszu dla kilku przypadków testowych i że są w odwrotnej kolejności. Jest to konieczne, aby przyjmować puste ciągi lub ciągi znaków jako dane wejściowe.

27 26 bajtów z ograniczeniami na wejściu

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

Uruchom i debuguj na staxlang.xyz!

Podobnie jak SOGL @ dzaima , to się nie powiedzie, jeśli pierwsze wejście zawiera małą literę „y”. Przesuwa ciąg „Ile b by by y, gdyby by by yb?”, A następnie wykonuje parę zamienników.

JavaScript, 70 bajtów

Nudny!

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

Wypróbuj online!

Nieco nudniej!

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

Wypróbuj online!

SOGL , 32 30 bajtów

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

Wypróbuj tutaj!

Pierwsze wejście nie może zawierać litery y, która wydaje się pozostawić rozsądny podzbiór ASCII (i Unicode).

½ouiīZģ9Ο|ΧyΚ⅞ō÷Jeq(‚7‘to skompresowany ciąg znaków "how much b would a by y if a by could y b?"(wybrane znaki, aby wszystkie wymagane słowa znajdowały się w 512 pierwszych słowach słownika, które lepiej się kompresują), a następnie bsą zastępowane pierwszym wejściem i ydrugim.

R , 90 77 76 bajtów

-13 dzięki Sumner18
-1 dzięki Giuseppe

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

Wypróbuj online!

PHP , 72 bajty

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

Wypróbuj online!

Lub:

PHP , 72 bajty

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

Wypróbuj online!

Wejście z wiersza poleceń, wyjście do STDOUT.

JavaScript (V8) , 72 bajty

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

Wypróbuj online!

Przypisanie zmiennej w rzeczywistości pozwala zaoszczędzić 0 bajtów, ale pomyślałem, że zatrzymam to, aby uczynić to nieco wyjątkowym.

ZX Spectrum Basic, 87 bajtów

Tylko dla kompletności, prosta implementacja:

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

Użycie IFsłowa kluczowego (1 bajt) powoduje zmniejszenie o 3 bajty, ale łamie warunek „ta sama wielkość liter”:

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

Rdza , 75 bajtów

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

Wypróbuj online!

Za pomocą tej sztuczki , która pozwala pominąć indeks formatowania raz na element do sformatowania.

Również używanie print!(), ponieważ jest o jeden bajt krótszy niż budowanie łańcucha format!()i zwracanie go.

05AB1E , 37 35 31 30 bajtów

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

-5 bajtów dzięki @Grimy .

Pobiera listę dwóch elementów: woodjako pierwszej wartości i chuckjako drugiej.

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

“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)

Zobacz moją wskazówkę 05AB1E (sekcja Jak korzystać ze słownika? ), Aby zrozumieć, dlaczego tak “Howƒ×1€Þ a ÿ0€¬ a ÿƒˆ01?“jest "How much1 would a ÿ0 if a ÿ could01?".

Applesoft BASIC, 77 76 bajtów

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

Powyższe może nie wyglądać jak BASIC, ale Applesoft pozwala na kilka skrótów podczas korzystania z PRINTinstrukcji:

• Użycie ?zamiast PRINTprzy wprowadzaniu wyciągu
• Znaki konkatenacji (albo ;lub +) można pominąć
• Jeśli instrukcja kończy się cytowanym ciągiem, ostateczny cytat można pominąć Dzięki, Mark !

Numer linii jest wymagany, w przeciwnym razie INPUTinstrukcja spowoduje?ILLEGAL DIRECT ERROR

33 , 78 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jako argumenty wiersza polecenia.

Bonus: 91 bajtów

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

Wypróbuj online!

Daje wyjście przypominające się, gdy dane wejściowe 1bztpi2bztp

Kotlin , 59 bajtów

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

Wypróbuj online!

PowerShell , 65 bajtów

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

Wypróbuj online!

Jedyną rzeczą wartą uwagi jest to, że musisz uciec od znaku zapytania, ponieważ mogą to być prawidłowe części identyfikatora PowerShell

VBA, 107 bajtów

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

Powinien również działać jako VBScript, użyłem dwóch skrótów: „ould” powtarza się, a „chuck” nigdy nie pojawia się bez dodatkowej spacji.

C # , 165 148 133 bajtów

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]);}}

Podziękowania dla Andrew Baumhera za opowiedzenie mi o interpolowanych ciągach !!
EDYCJA: Dodano teraz pełną klasę
EDYCJA: Podziękowania dla Kennetha K. za udzielenie mi kilku wskazówek, jak ją
skrócić EDYCJA: Jeszcze raz dziękuję Andrew za informację, że użycie interpolowanego ciągu znaków jest w rzeczywistości dłuższe w tym scenariuszu.

Haskell , 76 bajtów

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

Wypróbuj online!

Pierwsza próba, więc mam nadzieję, że nie złamałem żadnych zasad.

Galaretka , 39 bajtów

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

Pełny program akceptujący listę dwóch ciągów.

Wypróbuj online!

... Lub (także pełny program akceptujący listę dwóch ciągów)

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

Wypróbuj online!

Python 3 , 80 bajtów

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

Wypróbuj online!

w Rzymie użyj formatu str.

Edytowane przy użyciu sztuczki kałamarnicy.

C # (interaktywny kompilator Visual C #) , 66 65 bajtów

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

Wypróbuj online!

tak samo jak wszyscy inni, z wyjątkiem C #. -1 bajt przy użyciu strategii curry a => b => c zamiast (a, b) => c

R , 95 bajtów

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

Wypróbuj online!

APL (Dyalog Unicode) , 56 59 bajtów

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

Wypróbuj online!

Dość proste dfn. Zapisuje bajt, wycinając, ∊jeśli wolno nam zwrócić tablicę ciągów zamiast jednego ciągu.

Dodano 3 bajty, ponieważ zapomniałem dodać znak zapytania.

Wolfram Language (Mathematica) , 68 bajtów

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

Wypróbuj online!

Galaretka , 41 37 bajtów

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

Wypróbuj online!

Pełny program przyjmujący parę argumentów jako argument i drukujący przetworzony ciąg. Link monadyczny można utworzyć, dodając Fna końcu znak „(dzięki @JonathanAllan za zwrócenie na to uwagi).

Teraz zacząłem używać „b” i „e” jako symboli zastępczych, zainspirowanych odpowiedzią SOGL @ dzaima, więc pamiętajcie o tym również! Oznacza to, że pierwsze słowo nie może zawierać litery e.

Japt -S , 44 39 bajtów

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

Spróbuj

Dalej (gforth) , 116 bajtów

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

Wypróbuj online!

Objaśnienie kodu

\ 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

Lua , 82 bajty

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

Wypróbuj online!

Pełny program, weź dane jako argumenty.

Nic specjalnego. Mam nadzieję, że istnieje krótsza wersja, ale nie ma oczywistych sposobów na skrócenie tego na pierwszy rzut oka.

Bash , 58 bajtów

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

Pobiera dane wejściowe jako argumenty wiersza poleceń. Wypróbuj online!