Tulis fungsi atau program yang menggunakan dua kata sebagai input dan output varian dari twister lidah bahasa Inggris yang populer, "Berapa banyak kayu yang akan dipotong oleh kayu jika kayu dapat dibuang?".

Output akan menggunakan kata pertama empat kali

• Seberapa banyakkah woodsebuah woodchuck akan keluar jika sebuah woodchuck dapat terlepas wood?

dan kata kedua empat kali

• Berapa banyak kayu chuck chuckjika kayu chuckbisa chuckkayu?

dengan sisa output sama untuk input apa pun.

• How muchkayu would awoodchuck chuck if awoodchuck couldchuck kayu?

Input dan output dapat dalam format apa pun yang bahasa Anda cukup dikenal sebagai berurusan dengan string teks. Keluaran harus persis dalam format yang ditunjukkan, termasuk huruf besar, spasi dan ketiadaan, dan tanda tanya akhir. Jalur tambahan tambahan opsional dapat diterima.

Idealnya kode Anda akan menangani input yang mengandung karakter ASCII yang dapat dicetak. Namun, itu diizinkan untuk membatasi input ke subset wajar ASCII yang dapat dicetak; cukup tunjukkan ini dalam jawaban Anda. Menangani set karakter yang lebih besar tentu saja baik-baik saja.

Pasangan input-output contoh:

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

Ini adalah kode-golf , byte paling sedikit menang. Jawaban diterima dalam semua bahasa, bahkan jika beberapa bahasa lain dapat melakukannya dalam lebih sedikit byte.

(Terinspirasi oleh meme ini , yang menggunakan satu pasangan input lebih baik daripada pola kaku ini ....)

Python 3 , 70 67 byte

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

Cobalah online!

Maksudku, jika sepatunya pas ..

Terima kasih untuk manatwork karena menangkap kesalahan ketik

Terima kasih kepada Remco Haszing untuk ide -3 byte yang sangat baik

Saya kehabisan asumsi bahwa ini akan tetap merupakan pengiriman yang valid (karena bung, terlalu keren untuk tidak mencoba). Jika OP dapat mengklarifikasi apakah ini dapat diterima (karena saya belum menulis fungsi, per se), itu akan dihargai.

Pembaruan: Berkat diterima, semuanya baik :)

Versi sebelumnya:

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

T-SQL, 82 byte

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

Input diambil dari tabel yang sudah ada dengan kolom dan , sesuai aturan IO kami .$t$$w$$c$

Satu byte lebih lama, tetapi untuk beberapa alasan sedikit lebih menyenangkan:

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

Versi ini berfungsi pada subset input yang tidak termasuk angka 2dalam kata pertama .$w$

Karena saya menggunakan SQL, saya dapat memuat semua contoh ke dalam tabel, dan menjalankan semuanya sekaligus:

Bash , 50 byte

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

Cobalah online!

-5 byte karena bantuan dari komentar di bawah ini.

Stax , 33 31 30 29 byte

-1 berkat rekursif !

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

Jalankan dan debug di staxlang.xyz!

Dorong setiap komponen ke tumpukan dengan urutan terbalik, lalu gabungkan semua dengan spasi.

Dibongkar (35 byte) dan penjelasan:

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

Semuanya antara `` adalah string literal terkompresi. Koma itu sangat penting. Terakhir kali saya membaca dari tumpukan input, saya harus pop daripada mengintip untuk menghindari "chuck" tambahan pada akhir output saya.

Anda akan melihat bahwa saya meletakkan kedua input pada baris yang sama untuk beberapa test case, dan semuanya dalam urutan terbalik. Ini diperlukan untuk mengambil string kosong atau string spasi sebagai input.

27 26 byte dengan batasan pada input

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

Jalankan dan debug di staxlang.xyz!

Sama seperti SOGL @ dzaima , ini akan gagal jika input pertama berisi huruf kecil 'y'. Menekan string "Berapa b akan a oleh y jika oleh bisa yb?", Kemudian membuat sepasang penggantian.

JavaScript, 70 byte

Membosankan!

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

Cobalah online!

Agak kurang membosankan!

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

Cobalah online!

SOGL , 32 30 byte

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

Coba di sini!

Input pertama tidak boleh berisi surat y, yang tampaknya meninggalkan subset ASCII (dan unicode) yang masuk akal.

½ouiīZģ9Ο|ΧyΚ⅞ō÷Jeq(‚7‘adalah string terkompresi dari "how much b would a by y if a by could y b?"(karakter yang dipilih sehingga kata-kata yang diperlukan semua ada di 512 kata teratas dari kamus yang kompres lebih baik), kemudian bdiganti dengan input 1 dan ydengan 2.

R , 90 77 76 byte

-13 terima kasih kepada Sumner18
-1 terima kasih kepada Giuseppe

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

Cobalah online!

PHP , 72 byte

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

Cobalah online!

Atau:

PHP , 72 byte

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

Cobalah online!

Input dari baris perintah, output ke STDOUT.

JavaScript (V8) , 72 byte

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

Cobalah online!

Tugas variabel sebenarnya menyimpan 0 byte, tapi saya pikir saya akan menyimpannya hanya untuk membuat ini sedikit unik.

ZX Spectrum Basic, 87 byte

Hanya untuk kelengkapan, implementasi langsung:

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

Menggunakan IFkata kunci (1 byte) membuat golf turun 3 byte, tetapi memecah kondisi "kapitalisasi yang sama":

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

Karat , 75 byte

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

Cobalah online!

Menggunakan trik ini , yang memungkinkan Anda melewati indeks pemformatan sekali per item ke format.

Juga menggunakan print!(), karena itu satu byte lebih pendek daripada membangun string dengan format!()dan mengembalikannya.

05AB1E , 37 35 31 30 byte

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

-5 byte terima kasih kepada @Grimy .

Mengambil daftar dua item: woodsebagai nilai pertama dan chucksebagai yang kedua.

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

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

Lihat ini ujung 05AB1E saya (bagian Cara menggunakan kamus? ) Untuk memahami mengapa “Howƒ×1€Þ a ÿ0€¬ a ÿƒˆ01?“adalah "How much1 would a ÿ0 if a ÿ could01?".

Applesoft BASIC, 77 76 byte

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

Hal di atas mungkin tidak terlihat seperti BASIC yang tepat, tetapi Applesoft memungkinkan beberapa pintasan saat menggunakan PRINTpernyataan:

• Penggunaan ?di tempat PRINTketika memasukkan pernyataan
• Karakter gabungan (salah satu ;atau +) dapat dihilangkan
• Jika pernyataan berakhir dengan string yang dikutip, kutipan terakhir dapat dihilangkan Terima kasih, Mark !

Nomor baris diperlukan, atau INPUTpernyataan akan menyebabkan?ILLEGAL DIRECT ERROR

33 , 78 byte

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

Cobalah online!

Mengambil input sebagai argumen baris perintah.

Bonus: 91 byte

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

Cobalah online!

Memberikan output yang menyerupai dirinya sendiri ketika diberi input 1bztpdan2bztp

Kotlin , 59 byte

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

Cobalah online!

PowerShell , 65 byte

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

Cobalah online!

Satu-satunya hal yang perlu diperhatikan adalah Anda harus lolos dari tanda tanya karena itu bisa menjadi bagian valid dari pengenal PowerShell

VBA, 107 byte

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

Harus dijalankan sebagai VBScript juga, saya menggunakan dua cara pintas: "ould" berulang dan "chuck" tidak pernah muncul tanpa ruang tambahan.

C # , 165 148 133 byte

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

Terima kasih kepada Andrew Baumher karena memberi tahu saya tentang string yang diinterpolasi !!
EDIT: Kelas penuh sekarang menambahkan
EDIT: Terima kasih kepada Kenneth K. karena telah memberi saya beberapa tips untuk memperpendeknya.
EDIT: Terima kasih kepada Andrew lagi karena memberi tahu saya bahwa menggunakan string yang diinterpolasi sebenarnya lebih lama dalam skenario ini.

Haskell , 76 byte

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

Cobalah online!

Pertama coba, jadi saya harap saya tidak melanggar aturan.

Jelly , 39 byte

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

Program lengkap yang menerima daftar dua string.

Cobalah online!

... Atau (juga program lengkap yang menerima daftar dua string)

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

Cobalah online!

Python 3 , 80 byte

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

Cobalah online!

ketika di Roma, gunakan format str.

Diedit menggunakan trik squid.

C # (Visual C # Interactive Compiler) , 66 65 byte

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

Cobalah online!

sama seperti orang lain, kecuali C #. -1 byte dengan menggunakan currying strat a => b => c bukannya (a, b) => c

R , 95 byte

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

Cobalah online!

APL (Dyalog Unicode) , 56 59 byte

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

Cobalah online!

Dfn cukup mudah. Menghemat satu byte dengan memotong ∊jika kami diizinkan mengembalikan array string, bukan string tunggal.

3 byte ditambahkan karena saya lupa menambahkan tanda tanya.

Bahasa Wolfram (Mathematica) , 68 byte

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

Cobalah online!

Jelly , 41 37 byte

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

Cobalah online!

Program lengkap yang menggunakan sepasang string sebagai argumennya dan mencetak string yang diproses. Tautan monadik dapat dibentuk dengan menambahkan a Fsampai akhir (terima kasih kepada @JonathanAllan karena telah menunjukkan ini).

Saya sekarang telah beralih menggunakan "b" dan "e" sebagai placeholder, terinspirasi oleh jawaban SOGL @ dzaima jadi pastikan untuk mengunggahinya juga! Ini berarti bahwa kata pertama tidak dapat menyertakan huruf e.

Japt -S , 44 39 byte

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

Cobalah

Keempat (gforth) , 116 byte

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

Cobalah online!

Penjelasan Kode

\ 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 byte

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

Cobalah online!

Program lengkap, ambil masukan sebagai argumen.

Tidak ada yang istimewa di sini. Berharap ada versi yang lebih pendek, tetapi tidak ada cara yang jelas untuk mempersingkat ini pada pandangan pertama.

Bash , 58 byte

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

Mengambil input sebagai argumen baris perintah. Cobalah online!