Dragon curve: Difference between revisions
Content deleted Content added
→{{header|LaTeX}}: Syntax highlighting and smallest document class. |
No edit summary |
||
Line 4,081: | Line 4,081: | ||
close; |
close; |
||
end.</lang> |
end.</lang> |
||
=={{header|Quackery}}== |
|||
<lang Quackery> [ $ "turtleduck.qky" loadfile ] now! |
|||
[ 2 * |
|||
2dup turn |
|||
4 1 walk |
|||
turn ] is corner ( n/d --> ) |
|||
forward is right ( n --> ) |
|||
forward is left ( n --> ) |
|||
[ dup 0 = iff |
|||
[ drop 8 1 walk ] done |
|||
1 - dup |
|||
left |
|||
1 4 corner |
|||
right ] resolves right ( n --> ) |
|||
[ dup 0 = iff |
|||
[ drop 8 1 walk ] done |
|||
1 - dup |
|||
left |
|||
-1 4 corner |
|||
right ] resolves left ( n --> ) |
|||
turtle |
|||
-260 1 fly |
|||
3 4 turn |
|||
100 1 fly |
|||
5 8 turn |
|||
11 left</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |