RosettaCodeData/Task/Fibonacci-word/J/fibonacci-word-2.j
2015-02-20 09:02:09 -05:00

1 line
37 B
Text

entropy=: +/@:-@(* 2&^.)@(#/.~ % #)