Fibonacci word/fractal: Difference between revisions
m
→{{header|J}}
m (Sp.) |
m (→{{header|J}}) |
||
Line 343:
<lang J>require 'plot'
plot }:+/\ 0,*/\(^~ 0j_1 0j1 $~ #)'0'=_1{::F_Words 20</lang>
Note that we need the definition of F_Words from the [[Fibonacci_word#J|Fibonacci word]] page:
<lang J>F_Words=: (,<@;@:{~&_1 _2)@]^:(2-~[)&('1';'0')</lang>
However, image uploads are currently disabled, and rendering images of this sort as wikitext gets bulky.
| |||