Fibonacci word: Difference between revisions

i = -(count = b_length(~b));

o_form("%2d %9d /w12p10d10/ ~\n", 1, b_length(~a), 0r, a);

o_form("%2d %9d /w12p10d10/ ~\n", 2, b_length(~b), 0r, b);

b_stockbu_copy(a, 0, b);

o_form("%2d %9d /w12p10d10/ ~\n", i, b_length(~a), entropy(a),

__hold(i < 10, ? a,.string : ""));

b_swapb.swap(a, b);