27 lines
413 B
Text
27 lines
413 B
Text
[ $ "turtleduck.qky" loadfile ] now!
|
|
|
|
[ [ 1 1
|
|
30 times
|
|
[ tuck + ]
|
|
swap join ] constant
|
|
do ] is phi ( --> n/d )
|
|
|
|
[ 2dup 5 1 v< iff
|
|
2drop done
|
|
2dup 5 1 v/
|
|
proper 2drop wide
|
|
2dup walk
|
|
1 5 turn
|
|
2dup phi v/
|
|
2dup recurse
|
|
-2 5 turn
|
|
recurse
|
|
1 5 turn
|
|
-v fly ] is tree ( n/d --> )
|
|
|
|
turtle
|
|
20 frames
|
|
-1 4 turn
|
|
-450 1 fly
|
|
500 1 tree
|
|
1 frames
|