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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

28
Task/Amb/Elena/amb.elena
View file

@ -6,24 +6,24 @@ joinable = (:aFormer:aLater)(aFormer[aFormer length - 1] == aLater[0]).
dispatcher =
{
eval object:anArray func2:aFunction
eval(object anArray, Func2 aFunction)
[
^ aFunction eval(anArray[0],anArray[1]).
^ aFunction(anArray[0],anArray[1]).
]
eval object:anArray func3:aFunction
eval(object anArray, Func3 aFunction)
[
^ aFunction eval(anArray[0], anArray[1],anArray[2]).
^ aFunction(anArray[0], anArray[1],anArray[2]).
]
eval object:anArray func4:aFunction
eval(object anArray, Func4 aFunction)
[
^ aFunction eval(anArray[0],anArray[1],anArray[2],anArray[3]).
^ aFunction(anArray[0],anArray[1],anArray[2],anArray[3]).
]
eval object:anArray func5:aFunction
eval(object anArray, Func5 aFunction)
[
^ aFunction eval(anArray[0],anArray[1],anArray[2],anArray[3],anArray[4]).
^ aFunction(anArray[0],anArray[1],anArray[2],anArray[3],anArray[4]).
]
}.
@ -32,9 +32,9 @@ class AmbValueCollection
{
object theCombinator.
constructor new args:Arguments
constructor new(V<object> Arguments)
[
theCombinator := SequentialEnumerator new args:Arguments.
theCombinator := SequentialEnumerator new(Arguments).
]
seek : aCondition
@ -55,15 +55,15 @@ class AmbValueCollection
ambOperator =
{
generic for args:Arguments
= AmbValueCollection new args:Arguments.
generic for(V<object> Arguments)
= AmbValueCollection new(Arguments).
}.
program =
public program =
[
try(ambOperator
for(("the","that","a"),("frog", "elephant", "thing"),("walked", "treaded", "grows"),("slowly", "quickly"));
seek(:a:b:c:d) ( joinable eval(a,b) && joinable eval(b,c) && joinable eval(c,d) );
seek(:a:b:c:d) ( joinable(a,b) && joinable(b,c) && joinable(c,d) );
do(:a:b:c:d) [ console printLine(a," ",b," ",c," ",d) ])
{
on(Exception e)