The   Fibonacci Word   may be created in a manner analogous to the   Fibonacci Sequence   as described here:

    Define   F_Word1   as   1
    Define   F_Word2   as   0
    Form     F_Word3   as   F_Word2     concatenated with   F_Word1    i.e.:   01
    Form     F_Wordn   as   F_Wordn-1   concatenated with   F_wordn-2



Task

Perform the above steps for     n = 37.

You may display the first few but not the larger values of   n.

{Doing so will get the task's author into trouble with them what be (again!).} 

Instead, create a table for   F_Words   1   to   37   which shows:

   The number of characters in the word
   The word's Entropy


Related tasks
 
   Fibonacci word/fractal
   Entropy
   Entropy/Narcissist


entropy: function [s][
    if 1 >= size s -> return 0.0
    strlen: to :floating size s
    count0: to :floating size match s "0"
    count1: strlen - count0
    return neg add (count0/strlen) * log count0/strlen 2 (count1/strlen) * log count1/strlen 2
]
 
fibwords: function [n][
    x: 0
    a: "1"
    b: "0"
    result: @[a b]
    while [x<n][
        a: b ++ a
 
        tmp: b
        b: a 
        a: tmp
        result: result ++ b
        x: x+1
    ]
    return result
]
 
loop.with:'i fibwords 37 'w [
    print [
        pad to :string i+1 4
        pad to :string size w 10
        pad to :string entropy w 20
    ]
]