Anonymous user
Amb: Difference between revisions
→{{header|Tcl}}: renamed 'fit' to 'joins', for better comparison with other languages
(→{{header|Tcl}}: renamed 'fit' to 'joins', for better comparison with other languages) |
|||
Line 415:
Brute force, with quick kill of failing attempts:
<lang Tcl>
{the that a}
{frog elephant thing}
{walked treaded grows}
{slowly quickly}
}▼
proc
expr {[string index $a end] eq [string index $b 0]}
}
foreach i [lindex $amb
foreach j [lindex $amb
if ![
foreach k [lindex $amb
if ![
foreach l [
if [
puts [list $i $j $k $l]
}
Line 433 ⟶ 438:
}
}
}</lang>▼
▲}
▲</lang>
|