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

12
Task/Man-or-boy-test/Aime/man-or-boy-test.aime
View file

@ -1,13 +1,13 @@
integer
F(list l)
{
return l[1];
l[1];
}
integer
eval(list l)
{
return call(l[0], l);
l[0](l);
}
integer A(list);
@ -15,7 +15,7 @@ integer A(list);
integer
B(list l)
{
return A(l_assemble(B, l[1] = __integer(l[1]) - 1, l, l[-5], l[-4], l[-3], l[-2]));
A(list(B, l[1] = l[1] - 1, l, l[-5], l[-4], l[-3], l[-2]));
}
integer
@ -29,7 +29,7 @@ A(list l)
x = B(l);
}
return x;
x;
}
integer
@ -46,7 +46,7 @@ main(void)
l_append(fn1, F);
l_append(fn1, -1);
o_(A(l_assemble(B, 10, f1, fn1, fn1, f1, f0)), "\n");
o_(A(list(B, 10, f1, fn1, fn1, f1, f0)), "\n");
return 0;
0;
}