นี่คือตัวแปรของPlay the word chainและการสร้างเชนของคำที่ยาว

ข้อมูลที่ป้อนเป็นรายการที่ไม่ว่างของคำที่ไม่ซ้ำอย่างน้อย 2 ตัวอักษรที่ทำจากอักขระใน [az] คุณต้องแสดงความยาวของสายโซ่ที่ยาวที่สุดเท่าที่จะเป็นไปได้โดยที่แต่ละคำที่ตามมาเริ่มต้นด้วยตัวอักษรสุดท้ายของคำก่อนหน้า คุณสามารถเริ่มต้นด้วยคำใด ๆ ในรายการ

การบิดอีกอย่างหนึ่งคือคุณได้รับอนุญาตให้ทำซ้ำคำใด ๆ ในรายการ อย่างไรก็ตามคุณไม่สามารถทำซ้ำบล็อกสองคำใด ๆ ตัวอย่างเช่น cat->tac->catได้รับอนุญาต แต่cat->tac->cat->tacไม่ใช่เพราะคุณทำซ้ำบล็อกสองคำ ( cat->tac) นอกจากนี้คุณไม่สามารถใช้คำเดียวกันสองครั้งในแถว (เช่นeye->eye)

ตัวอย่าง:

• cat dog tree egg => 3 (cat-> tree-> egg)
• new men ten whim => 5 (ten-> new-> whim-> men-> new)
• truth fret heart his => 5 (fret-> true-> heart-> true-> his)
• we were stew early yew easy => 9 (สตูว์ -> เคย -> ต้น -> ต้นยู -> เคย -> ง่าย -> ต้นยู -> เรา -> ง่าย)
• tac cat tac cot tac can => 6 (tac-> cat-> tac-> cot-> tac-> can)

(แจ้งให้เราทราบหากฉันทำผิดพลาดในตัวอย่างใด ๆ เหล่านี้หรือหากคุณได้รับมากกว่านี้)

Python 3 , 150 149 145 ไบต์

def f(d):
 a=[[w]for w in d]
 while a:b=a[0];a=[f+[l,y]for*f,l in a for y in{*d}-{b for a,b in zip(f,f[1:])if a==l}if l[-1]==y[0]]
 return len(b)

ลองออนไลน์!

ความคิดในการสร้างเส้นทางต่อเนื่องอีกต่อไป (หรือในกรณีเส้นทางนี้) จนไม่มีอีกต่อไปอาจจะสร้างขึ้นได้แรงบันดาลใจโดยตรงจากคำตอบของ GRCบนPlay ห่วงโซ่คำคำถาม

Haskell , 131 141 ไบต์

โดยพื้นฐานแล้ววิธีเดรัจฉานกำลังแรง .. ความคิดคือการสร้างชิ้นส่วนโดมิโนที่เป็นไปได้ทั้งหมด, เปลี่ยนรูปพวกมัน, ตรวจสอบว่ามันเป็นคอมโบที่ถูกต้องและเพิ่มทั้งสิ่ง ความซับซ้อนของเวลานั้นไร้สาระกรณีทดสอบครั้งที่ 4 ได้รับแล้ว ~ 4s บนพีซีของฉันและบน TIO ดูเหมือนว่ามันจะไม่ทำงาน!

import Data.List
p w=2+maximum[length$takeWhile(\(x,y)->x!!1==y!!0)$zip p$tail p|p<-permutations[[a,b]|(a,b)<-(,)<$>w<*>w,a/=b,last a==b!!0]]

ลองออนไลน์!

Ungolfed

p w = maximum
  [ 2 + length c | p <- permutations [ [a,b] | (a,b) <- (,)<$>w<*>w
                                             , a /= b
                                             , last a == head b
                                     ]
                 , c <- [ takeWhile (\(x,y) -> x!!1 == y!!0) $ zip p (tail p) ]
  ]

แก้ไข : เปลี่ยนจาก Lambdabot เป็น Haskell แต่บันทึกไว้เพียงไม่กี่ไบต์ด้วยการตีกอล์ฟดังนั้นมันจึงยังน้อยกว่า145:)