เขียนฟังก์ชั่นหรือโปรแกรมที่ใช้สองคำในรูปแบบอินพุตและเอาท์พุตของลิ้น - ทอร์นาโดภาษาอังกฤษที่ได้รับความนิยม

ผลลัพธ์จะใช้คำแรกสี่ครั้ง

• เชยเชยwoodจะเท่าไหร่woodถ้าwoodเชยสามารถเชยwood?

และคำที่สองสี่ครั้ง

• ไม้เท่าไหร่ไม้chuck chuckถ้าไม้chuckสามารถchuckไม้?

ส่วนที่เหลือของเอาต์พุตจะเหมือนกันสำหรับอินพุตใด ๆ

• How muchไม้would aWOODCHUCK เชยif aWOODCHUCK 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?"

นี่คือโค้ดกอล์ฟซึ่งมีจำนวนน้อยที่สุดที่จะชนะ คำตอบยินดีต้อนรับในทุกภาษาแม้ว่าภาษาอื่น ๆ จะสามารถทำได้ในไม่กี่ไบต์

(แรงบันดาลใจจากmeme นี้ซึ่งใช้หนึ่งอินพุตคู่ที่ดีกว่ารูปแบบที่เข้มงวดนี้ไม่ .... )

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 ฉันสามารถโหลดตัวอย่างทั้งหมดล่วงหน้าลงในตารางและเรียกใช้พวกเขาทั้งหมดในครั้งเดียว:

Bashขนาด 50 ไบต์

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

ลองออนไลน์!

-5 ไบต์เนื่องจากความช่วยเหลือจากความคิดเห็นด้านล่าง

Stax , 33 31 30 29 ไบต์

-1 ต้องขอบคุณrecursive !

¢è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 ถ้า y ต่อ a yb ได้เท่าใด" จากนั้นทำการแทนที่คู่

จาวาสคริปต์, 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])

ลองออนไลน์!

SOGL , 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 และyที่ 2

R , 90 77 76 ไบต์

-13 ขอบคุณ Sumner18
-1 ขอบคุณ Giuseppe

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 พื้นฐาน 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

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

ขอบคุณAndrew Baumher ที่บอกฉันเกี่ยวกับสายการสอดแทรก !!
แก้ไข: ตอนนี้ชั้นเรียนเต็มเพิ่ม
แก้ไข: ขอบคุณKenneth K. ที่ให้ฉันเคล็ดลับในการทำให้สั้นลง
แก้ไข: ขอบคุณแอนดรูอีกครั้งสำหรับการบอกฉันว่าการใช้สตริงที่สอดแทรกอยู่ในสถานการณ์นี้จริง ๆ แล้ว

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

แก้ไขโดยใช้เคล็ดลับของปลาหมึก

C # (Visual C # Interactive Compiler) , 66 65 ไบต์

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

ลองออนไลน์!

เหมือนกับทุกคนยกเว้น C # -1 ไบต์โดยใช้ currying strat 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 (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ẎṆȥ»

ลองออนไลน์!

โปรแกรมเต็มรูปแบบที่รับสตริงเป็นอาร์กิวเมนต์และพิมพ์สตริงที่ถูกประมวลผล ลิงก์ monadic สามารถเกิดขึ้นได้โดยการเพิ่ม a Fto end (ขอบคุณ @JonathanAllan สำหรับการชี้ให้เห็น)

ตอนนี้ฉันได้เปลี่ยนไปใช้ "b" และ "e" เป็นตัวยึดตำแหน่งซึ่งได้แรงบันดาลใจจากคำตอบ SOGL ของ @ dzaimaดังนั้นโปรดแน่ใจว่าได้อัปเกรดนั้นเช่นกัน! นี่หมายความว่าคำแรกไม่สามารถรวมตัวอักษร e

Japt -S , 44 39 ไบต์

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

ลองมัน

มา (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

Lua , 82 ไบต์

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

ลองออนไลน์!

โปรแกรมเต็มรูปแบบรับอินพุตเป็นอาร์กิวเมนต์

ไม่มีอะไรพิเศษที่นี่ หวังว่าจะมีเวอร์ชั่นที่สั้นกว่านี้ แต่ไม่มีวิธีที่ชัดเจนในการย่อให้สั้นลงในครั้งแรก

Bash , 58 ไบต์

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

รับอินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่ง ลองออนไลน์!