Fibonacci word: Difference between revisions
Added 11l
Thundergnat (talk | contribs) m (→{{header|Ring}}: Remove vanity tags) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 25:
* [[Entropy/Narcissist]]
<br><br>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F entropy(s)
I s.len <= 1
R 0.0
V lns = Float(s.len)
V count0 = s.count(‘0’)
R -sum((count0, s.len - count0).map(count -> count / @lns * log(count / @lns, 2)))
V fwords = [String(‘1’), ‘0’]
print(‘#<3 #10 #<10 #.’.format(‘N’, ‘Length’, ‘Entropy’, ‘Fibword’))
L(n) 1..37
L fwords.len < n
fwords [+]= (fwords[(len)-2 ..][(0..).step(-1)]).join(‘’)
V v = fwords[n - 1]
print(‘#3.0 #10.0 #2.7 #.’.format(n, v.len, entropy(v), I v.len < 56 {v} E ‘<too long>’))</lang>
{{out}}
<pre>
N Length Entropy Fibword
1 1 0.0000000 1
2 1 0.0000000 0
3 2 1.0000000 01
4 3 0.9182958 010
5 5 0.9709506 01001
6 8 0.9544340 01001010
7 13 0.9612366 0100101001001
8 21 0.9587119 010010100100101001010
9 34 0.9596869 0100101001001010010100100101001001
10 55 0.9593160 0100101001001010010100100101001001010010100100101001010
11 89 0.9594579 <too long>
12 144 0.9594038 <too long>
13 233 0.9594244 <too long>
14 377 0.9594165 <too long>
15 610 0.9594196 <too long>
16 987 0.9594184 <too long>
17 1597 0.9594188 <too long>
18 2584 0.9594187 <too long>
19 4181 0.9594187 <too long>
20 6765 0.9594187 <too long>
21 10946 0.9594187 <too long>
22 17711 0.9594187 <too long>
23 28657 0.9594187 <too long>
24 46368 0.9594187 <too long>
25 75025 0.9594187 <too long>
26 121393 0.9594187 <too long>
27 196418 0.9594187 <too long>
28 317811 0.9594187 <too long>
29 514229 0.9594187 <too long>
30 832040 0.9594187 <too long>
31 1346269 0.9594187 <too long>
32 2178309 0.9594187 <too long>
33 3524578 0.9594187 <too long>
34 5702887 0.9594187 <too long>
35 9227465 0.9594187 <too long>
36 14930352 0.9594187 <too long>
37 24157817 0.9594187 <too long>
</pre>
=={{header|Ada}}==
| |||