Viết một hàm hoặc chương trình lấy hai từ làm biến thể đầu vào và đầu ra của twister tiếng Anh phổ biến "Woodchuck sẽ kiếm được bao nhiêu gỗ nếu một woodchuck có thể tặc gỗ?".

Đầu ra sẽ sử dụng từ đầu tiên bốn lần

• Bao nhiêu woodsẽ một woodchuck chuck nếu một woodchuck có thể chuck wood?

và từ thứ hai bốn lần

• Gỗ sẽ là bao nhiêu gỗ chuck chucknếu gỗ chuckcó thể chuckgỗ?

với phần còn lại của đầu ra là như nhau cho bất kỳ đầu vào.

• How muchgỗ would awoodchuck chuck if awoodchuck couldchuck gỗ?

Đầu vào và đầu ra có thể ở bất kỳ định dạng nào mà ngôn ngữ của bạn nhận ra một cách hợp lý là xử lý các chuỗi văn bản. Đầu ra phải chính xác ở định dạng được chỉ định, bao gồm viết hoa, dấu cách và thiếu nó, và dấu hỏi kết thúc. Một dòng mới tùy chọn là chấp nhận được.

Lý tưởng nhất là mã của bạn sẽ xử lý đầu vào có chứa bất kỳ ký tự ASCII có thể in nào. Tuy nhiên, nó được phép hạn chế đầu vào ở các tập hợp con hợp lý của ASCII có thể in được; Chỉ cần chỉ ra điều này trong câu trả lời của bạn. Xử lý bộ ký tự lớn hơn là tất nhiên tốt.

Ví dụ các cặp đầu vào-đầu ra:

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

Đây là mã golf , vì vậy ít byte nhất sẽ thắng. Câu trả lời được chào đón trong tất cả các ngôn ngữ, ngay cả khi một số ngôn ngữ khác có thể làm điều đó với ít byte hơn.

(Lấy cảm hứng từ meme này , sử dụng một cặp đầu vào tốt hơn mẫu cứng nhắc này ....)

Python 3 , 70 67 byte

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

Hãy thử trực tuyến!

Ý tôi là, nếu giày vừa vặn ..

Cảm ơn manatwork đã bắt lỗi đánh máy

Cảm ơn Remco Haszing cho ý tưởng -3 byte tuyệt vời

Tôi đang chạy theo giả định rằng đây vẫn sẽ là một bài nộp hợp lệ (bởi vì bạn ơi, thật tuyệt khi không thử). Nếu OP có thể làm rõ liệu điều này có được chấp nhận hay không (vì tôi chưa viết hàm), điều đó sẽ được đánh giá cao.

Cập nhật: Phước lành nhận được, tất cả đều tốt :)

Phiên bản trước:

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

Đầu vào được lấy từ bảng $t$ có sẵn với các cột $w$ và $c$ , theo quy tắc IO của chúng tôi .

Một byte dài hơn, nhưng vì một số lý do làm hài lòng hơn một chút:

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

Phiên bản này hoạt động trên một tập hợp con của các đầu vào không bao gồm chữ số 2trong từ đầu tiên $w$ .

Vì tôi ở SQL, tôi có thể tải trước tất cả các ví dụ vào bảng và chạy tất cả chúng cùng một lúc:

Bash , 50 byte

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

Hãy thử trực tuyến!

-5 byte do sự giúp đỡ từ các bình luận bên dưới.

Stax , 33 31 30 29 byte

-1 nhờ đệ quy !

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

Chạy và gỡ lỗi nó tại staxlang.xyz!

Đẩy từng thành phần vào ngăn xếp theo thứ tự ngược lại, sau đó nối tất cả với khoảng trắng.

Giải nén (35 byte) và giải thích:

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

Tất cả mọi thứ giữa `` là chuỗi ký tự nén. Dấu phẩy đó là quan trọng. Lần cuối cùng tôi đọc từ ngăn xếp đầu vào, tôi phải bật chứ không nhìn lén để tránh thêm tiếng "chuck" ở cuối đầu ra.

Bạn sẽ nhận thấy rằng tôi đặt cả hai đầu vào trên cùng một dòng cho một vài trường hợp thử nghiệm và chúng sẽ theo thứ tự ngược lại. Điều này là cần thiết để lấy chuỗi trống hoặc chuỗi khoảng trắng làm đầu vào.

27 26 byte với các hạn chế về đầu vào

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

Chạy và gỡ lỗi nó tại staxlang.xyz!

Giống như SOGL của @ dzaima , điều này sẽ thất bại nếu đầu vào đầu tiên chứa chữ cái thường 'y'. Đẩy chuỗi "Bao nhiêu b sẽ y nếu a có thể yb?", Sau đó thực hiện một cặp thay thế.

JavaScript, 70 byte

Nhàm chán!

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

Hãy thử trực tuyến!

Nhẹ nhàng bớt nhàm chán!

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

Hãy thử trực tuyến!

SOGL , 32 30 byte

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

Hãy thử nó ở đây!

Đầu vào đầu tiên không thể chứa chữ cái y, dường như để lại một tập hợp con hợp lý của ASCII (và unicode) còn lại.

½ouiīZģ9Ο|ΧyΚ⅞ō÷Jeq(‚7‘là một chuỗi nén "how much b would a by y if a by could y b?"(các ký tự được chọn để tất cả các từ cần thiết đều nằm trong 512 từ hàng đầu của từ điển sẽ nén tốt hơn), sau đó bđược thay thế bằng đầu vào thứ 1 và ythứ 2.

R , 90 77 76 byte

-13 cảm ơn Sumner18
-1 nhờ Giuseppe

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

Hãy thử trực tuyến!

PHP , 72 byte

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

Hãy thử trực tuyến!

Hoặc là:

PHP , 72 byte

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

Hãy thử trực tuyến!

Đầu vào từ dòng lệnh, đầu ra đến STDOUT.

JavaScript (V8) , 72 byte

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

Hãy thử trực tuyến!

Việc gán biến thực sự tiết kiệm 0 byte, nhưng tôi nghĩ rằng tôi sẽ giữ nó chỉ để làm cho điều này hơi độc đáo.

Phổ ZX cơ bản, 87 byte

Chỉ để hoàn thiện, thực hiện đơn giản:

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

Sử dụng IFtừ khóa (1 byte) để giảm 3 byte, nhưng phá vỡ điều kiện "viết hoa giống nhau":

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

Rust , 75 byte

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

Hãy thử trực tuyến!

Sử dụng thủ thuật này , cho phép bạn bỏ qua chỉ mục định dạng một lần cho mỗi mục để định dạng.

Cũng sử dụng print!(), bởi vì nó ngắn hơn một byte so với việc xây dựng một chuỗi với format!()và trả về nó.

05AB1E , 37 35 31 30 byte

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

-5 byte nhờ @Grimy .

Có một danh sách gồm hai mục: woodgiá trị thứ nhất và giá trị chuckthứ hai.

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

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

Xem mẹo 05AB1E này của tôi (phần Làm thế nào để sử dụng từ điển? ) Để hiểu tại sao “Howƒ×1€Þ a ÿ0€¬ a ÿƒˆ01?“là "How much1 would a ÿ0 if a ÿ could01?".

CƠ BẢN Applesoft, 77 76 byte

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

Ở trên có thể trông không giống BASIC thích hợp, nhưng Applesoft cho phép một vài phím tắt khi sử dụng PRINTcâu lệnh:

• Sử dụng ?thay thế PRINTkhi nhập báo cáo
• Ký tự nối (có thể ;hoặc +) có thể được bỏ qua
• Nếu câu lệnh kết thúc bằng một chuỗi trích dẫn, trích dẫn cuối cùng có thể được bỏ qua Cảm ơn, Mark !

Số dòng là bắt buộc, hoặc INPUTcâu lệnh sẽ gây ra một?ILLEGAL DIRECT ERROR

33 , 78 byte

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

Hãy thử trực tuyến!

Lấy đầu vào là đối số dòng lệnh.

Tiền thưởng: 91 byte

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

Hãy thử trực tuyến!

Cung cấp đầu ra giống như chính nó khi cho đầu vào 1bztpvà2bztp

Kotlin , 59 byte

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

Hãy thử trực tuyến!

PowerShell , 65 byte

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

Hãy thử trực tuyến!

Điều duy nhất cần lưu ý là bạn phải thoát dấu chấm hỏi vì chúng có thể là các phần hợp lệ của mã định danh 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

Cũng nên chạy như VBScript, tôi đã sử dụng hai phím tắt: "ould" đang lặp lại và "chuck" không bao giờ xuất hiện mà không có thêm khoảng trắng.

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

Cảm ơn Andrew Baumher đã cho tôi biết về chuỗi nội suy !!
EDIT: Toàn bộ lớp hiện đã thêm
EDIT: Cảm ơn Kenneth K. đã cho tôi một vài mẹo để rút ngắn
EDIT: Cảm ơn Andrew một lần nữa vì đã nói với tôi rằng sử dụng chuỗi nội suy thực sự dài hơn trong kịch bản này.

Haskell , 76 byte

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

Hãy thử trực tuyến!

Lần thử đầu tiên, vì vậy tôi hy vọng tôi đã không phá vỡ bất kỳ quy tắc nào.

Thạch , 39 byte

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

Một chương trình đầy đủ chấp nhận một danh sách hai chuỗi.

Hãy thử trực tuyến!

... Hoặc (cũng là một chương trình đầy đủ chấp nhận danh sách hai chuỗi)

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

Hãy thử trực tuyến!

Python 3 , 80 byte

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

Hãy thử trực tuyến!

khi ở rome, sử dụng định dạng str.

Chỉnh sửa bằng mẹo của mực.

C # (Trình biên dịch tương tác Visual C #) , 66 65 byte

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

Hãy thử trực tuyến!

giống như mọi người khác, ngoại trừ C #. -1 byte bằng cách sử dụng phân tầng curry a => b => c thay vì (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='')

Hãy thử trực tuyến!

APL (Dyalog Unicode) , 56 59 byte

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

Hãy thử trực tuyến!

Khá đơn giản dfn. Lưu một byte bằng cách cắt ∊nếu chúng ta được phép trả về một chuỗi các chuỗi thay vì một chuỗi.

Đã thêm 3 byte vì tôi quên thêm dấu hỏi.

Ngôn ngữ Wolfram (Mathicala) , 68 byte

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

Hãy thử trực tuyến!

Thạch , 41 37 byte

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

Hãy thử trực tuyến!

Một chương trình đầy đủ lấy một cặp chuỗi làm đối số của nó và in chuỗi đã xử lý. Một liên kết đơn âm có thể được hình thành bằng cách thêm một Fđến cuối (cảm ơn @JonathanAllan vì đã chỉ ra điều này).

Bây giờ tôi đã chuyển sang sử dụng "b" và "e" làm trình giữ chỗ, lấy cảm hứng từ câu trả lời SOGL của @ dzaima, vì vậy hãy chắc chắn cũng nâng cấp câu hỏi đó! Điều này không có nghĩa là từ đầu tiên không thể bao gồm chữ e.

Japt -S , 44 39 byte

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

Thử nó

Forth (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 ." ?";

Hãy thử trực tuyến!

Giải thích mã

\ 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})))

Hãy thử trực tuyến!

Chương trình đầy đủ, lấy đầu vào làm đối số.

Không có gì đặc biệt ở đây. Hy vọng rằng có phiên bản ngắn hơn, nhưng không có cách rõ ràng để rút ngắn điều này từ cái nhìn đầu tiên.

Bash , 58 byte

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

Đưa đầu vào làm đối số dòng lệnh. Hãy thử trực tuyến!