aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Amb/Langur/amb.langur
View file

@ -1,15 +1,15 @@
val .wordsets = [
val wordsets = [
fw/the that a/,
fw/frog elephant thing/,
fw/walked treaded grows/,
fw/slowly quickly/,
]
val .alljoin = fn(.words) for[=true] .i of len(.words)-1 {
if last(.words[.i]) != first(.words[.i+1]): break = false
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 .. -1] .words) if(.alljoin(.words): join " ", .words)
# amb expects 2 or more arguments
val amb = fn ...[2..] words: if alljoin(words) { join " ", words }
writeln join "\n", filter mapX .amb, .wordsets...
writeln join("\n", filter(mapX(amb, wordsets...)))