Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
18
Task/Amb/Icon/amb.icon
Normal file
18
Task/Amb/Icon/amb.icon
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
procedure main()
|
||||
s1 := ["the","that","a"]
|
||||
s2 := ["frog","elephant","thing"]
|
||||
s3 := ["walked","treaded","grows"]
|
||||
s4 := ["slowly","quickly"]
|
||||
|
||||
write(amb(!s1,!s2,!s3,!s4))
|
||||
end
|
||||
|
||||
procedure amb(exprs[])
|
||||
s := ""
|
||||
every e := !exprs do {
|
||||
if \c ~== e[1] then fail
|
||||
c := e[-1]
|
||||
s ||:= e || " "
|
||||
}
|
||||
return s
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue