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

14
Task/Fibonacci-word/Aime/fibonacci-word.aime
View file

@ -6,7 +6,7 @@ entropy(data b)
ones = zeros = 0;
i = -(count = b_length(b));
i = -(count = ~b);
while (i) {
if (b[i] == '0') {
zeros += 1;
@ -29,15 +29,15 @@ main(void)
a = "1";
b = "0";
o_form("%2d %9d /w12p10d10/ ~\n", 1, b_length(a), 0r, a);
o_form("%2d %9d /w12p10d10/ ~\n", 2, b_length(b), 0r, b);
o_form("%2d %9d /w12p10d10/ ~\n", 1, ~a, 0r, a);
o_form("%2d %9d /w12p10d10/ ~\n", 2, ~b, 0r, b);
i = 3;
while (i <= 37) {
b_stock(a, 0, b);
o_form("%2d %9d /w12p10d10/ ~\n", i, b_length(a), entropy(a),
__hold(i < 10, a, ""));
bu_copy(a, 0, b);
o_form("%2d %9d /w12p10d10/ ~\n", i, ~a, entropy(a),
i < 10 ? a.string : "");
i += 1;
b_swap(a, b);
b.swap(a);
}
return 0;