Rosetta Code

Amb: Difference between revisions

← Older edit
Content deleted Content added
Langurmonkey (talk | contribs)
1,007 edits
Langurmonkey (talk | contribs)
1,007 edits
 
Line 2,450:
This would build every valid set, but for the sample data, there's only one.
 
<syntaxhighlight lang="langur">val .wordsets = [
fw/the that a/,
fw/frog elephant thing/,
Line 2,457:
]
 
val .alljoin = fn .words: for[=true] .i of len(.words)-1 {
if .words[.i][-1] != .words[.i+1][1]: break = false
}
 
# .amb expects 2 or more arguments
val .amb = fn( ...[2..] .words): {if if(.alljoin(.words): { join " ", .words) }
 
writeln join ("\n", filter (mapX .(amb, .wordsets...)))
</syntaxhighlight>
 
Retrieved from "https://rosettacode.org/wiki/Amb"