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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -15,13 +15,7 @@ integer A(list);
integer
B(list l)
{
integer x;
x = l[1];
x -= 1;
l_r_integer(l, 1, x);
return A(l_assemble(B, x, l, l[-5], l[-4], l[-3], l[-2]));
return A(l_assemble(B, l[1] = __integer(l[1]) - 1, l, l[-5], l[-4], l[-3], l[-2]));
}
integer
@ -29,7 +23,7 @@ A(list l)
{
integer x;
if (l_q_integer(l, 1) < 1) {
if (l[1] < 1) {
x = eval(l[-2]) + eval(l[-1]);
} else {
x = B(l);
@ -52,8 +46,7 @@ main(void)
l_append(fn1, F);
l_append(fn1, -1);
o_integer(A(l_assemble(B, 10, f1, fn1, fn1, f1, f0)));
o_byte('\n');
o_(A(l_assemble(B, 10, f1, fn1, fn1, f1, f0)), "\n");
return 0;
}