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

25
Task/Benfords-law/Aime/benfords-law.aime
View file

@ -4,8 +4,8 @@ sum(text a, text b)
data d;
integer e, f, n, r;
e = length(a);
f = length(b);
e = ~a;
f = ~b;
r = 0;
@ -36,7 +36,7 @@ sum(text a, text b)
b_insert(d, 0, r + '0');
}
return b_string(d);
d;
}
text
@ -45,7 +45,7 @@ fibs(list l, integer n)
integer c, i;
text a, b, w;
l_r_integer(l, 1, 1);
l[1] = 1;
a = "0";
b = "1";
@ -55,11 +55,11 @@ fibs(list l, integer n)
a = b;
b = w;
c = w[0] - '0';
l_r_integer(l, c, 1 + l_q_integer(l, c));
l[c] = 1 + l[c];
i += 1;
}
return w;
w;
}
integer
@ -71,11 +71,7 @@ main(void)
n = 1000;
i = 10;
while (i) {
i -= 1;
lb_p_integer(f, 0);
}
f.pn_integer(0, 10, 0);
fibs(f, n);
@ -85,11 +81,8 @@ main(void)
i = 0;
while (i < 9) {
i += 1;
o_winteger(8, i);
o_wpreal(16, 3, 3, 100 * log10(1 + 1r / i));
o_wpreal(16, 3, 3, l_q_integer(f, i) * m);
o_text("\n");
o_form("%8d/p3d3w16//p3d3w16/\n", i, 100 * log10(1 + 1r / i), f[i] * m);
}
return 0;
0;
}