|
% pokazuje pierwsze N liczb
first(N) -> lists:foldl(fun(I, X) ->
io:format("~p: \t~p \t= ~ps \t= ~p \t= ~ps_skew~n", [I-1, X, to_sum(X), to_number(X), to_display(X)]),
inc(X)
end, zero(), lists:seq(1, N)).
first(101).
0: [] = "0" = 0 = "0" 0_skew
1: [0] = "1" = 1 = "1" 1_skew
2: [0,0] = "1+1" = 2 = "2" 2_skew
3: [1] = "3" = 3 = "10" 10_skew
4: [0,1] = "3+1" = 4 = "11" 11_skew
5: [0,0,1] = "3+1+1" = 5 = 5 = = "12"12_skew
6: [1,1] = "3+3" = 6 = "20" 20_skew
7: [2] = "7" = 7 = "100" 100_skew
8: [0,2] = "7+1" = 8 = "101" 101_skew
9: [0,0,2] = "7+1+1" = 9 = 9 = = "102"102_skew
10: [1,2] = "7+3" = 10 = "110" 110_skew
11: [0,1,2] = "7+3+1" = 11 = 11 = = "111"111_skew
12: [0,0,1,2] = "7+3+1+1" = 12 = 12 = = "112"112_skew
13: [1,1,2] = "7+3+3" = 13 = 13 = = "120"120_skew
14: [2,2] = "7+7" = 14 = "200" 200_skew
15: [3] = "15" = 15 = "1000" 1000_skew
..
90: [0,0,1,2,3,5] = "63+15+7+3+1+1" = 90 = "101112"101112_skew
91: [1,1,2,3,5] = "63+15+7+3+3" = 91 = "101120"101120_skew
92: [2,2,3,5] = "63+15+7+7" = 92 = "101200"101200_skew
93: [3,3,5] = "63+15+15" = 93 = "102000"102000_skew
94: [4,5] = "63+31" = 94 = "110000"110000_skew
95: [0,4,5] = "63+31+1" = 95 = "110001"110001_skew
96: [0,0,4,5] = "63+31+1+1" = 96 = "110002"110002_skew
97: [1,4,5] = "63+31+3" = 97 = "110010"110010_skew
98: [0,1,4,5] = "63+31+3+1" = 98 = "110011"110011_skew
99: [0,0,1,4,5] = "63+31+3+1+1" = 99 = "110012"110012_skew
100: [1,1,4,5] = "63+31+3+3" = 100 = "110020"110020_skew
| 