Fibonacci word/fractal: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 1,818: | Line 1,818: | ||
<syntaxhighlight lang="Quackery"> [ $ "turtleduck.qky" loadfile ] now! |
<syntaxhighlight lang="Quackery"> [ $ "turtleduck.qky" loadfile ] now! |
||
[ ' [ 1 ] |
[ [ ' [ 1 ] |
||
' [ 0 ] |
' [ 0 ] |
||
rot dup 1 = iff |
rot dup 1 = iff |
||
2drop done |
2drop done |
||
dup 2 = iff |
dup 2 = iff |
||
[ drop nip ] done |
[ drop nip ] done |
||
2 - times |
2 - times |
||
[ dup rot join ] |
[ dup rot join ] ] |
||
nip witheach |
nip witheach |
||
[ 3 2 walk |
[ 3 2 walk |