RosettaCodeData/Task/Amb/Zkl/amb-6.zkl
2017-09-25 22:28:19 +02:00

5 lines
260 B
Text

// [()] notation unpacks parameter list: f((1,2,3))-->a=1,b=2,c=3
fcn f([(a,b,c,d)]){ joins(a,b) and joins(b,c) and joins(c,d) }
amb(f, T("the","that","a"), T("frog","elephant","thing"),
T("walked","treaded","grows"), T("slowly","quickly")
).println();