Sierpinski triangle/Graphical: Difference between revisions
m
Quackery moved to be in alphabetic order. D'oh.
(Added Quackery.) |
m (Quackery moved to be in alphabetic order. D'oh.) |
||
Line 2,073:
DrawSierpinskiTriangle(5)
</lang>
=={{header|Quackery}}==▼
<lang Quackery> $ "turtleduck.qky" loadfile▼
[ 1 & ] is odd ( n --> b )▼
[ 4 times ▼
[ 2dup walk ▼
1 4 turn ] ▼
2drop ] is square ( n/d --> )▼
[ dup▼
witheach▼
[ odd if▼
[ ' [ 0 0 0 ] fill▼
[ 2 1 square ] ]▼
2 1 fly ]▼
size -2 * 1 fly▼
1 4 turn ▼
2 1 fly▼
-1 4 turn ] is showline ( [ --> )▼
[ [] 0 rot 0 join▼
witheach▼
[ tuck +▼
rot join swap ] ▼
drop ] is nextline ( [ --> [ )▼
[ ' [ 1 ] swap▼
bit ▼
1 - times▼
[ dup showline▼
nextline ]▼
showline ] is sierpinski ( n --> )▼
turtle▼
5 8 turn ▼
400 1 fly▼
3 8 turn ▼
8 sierpinski</lang>▼
=={{header|R}}==
Line 2,115 ⟶ 2,155:
*** END STR Sat Apr 01 21:59:07 2017
</pre>
▲=={{header|Quackery}}==
▲<lang Quackery> $ "turtleduck.qky" loadfile
▲ [ 1 & ] is odd ( n --> b )
▲ [ 4 times
▲ [ 2dup walk
▲ 1 4 turn ]
▲ 2drop ] is square ( n/d --> )
▲ [ dup
▲ witheach
▲ [ odd if
▲ [ ' [ 0 0 0 ] fill
▲ [ 2 1 square ] ]
▲ 2 1 fly ]
▲ size -2 * 1 fly
▲ 1 4 turn
▲ 2 1 fly
▲ -1 4 turn ] is showline ( [ --> )
▲ [ [] 0 rot 0 join
▲ witheach
▲ [ tuck +
▲ rot join swap ]
▲ drop ] is nextline ( [ --> [ )
▲ [ ' [ 1 ] swap
▲ bit
▲ 1 - times
▲ [ dup showline
▲ nextline ]
▲ showline ] is sierpinski ( n --> )
▲ turtle
▲ 5 8 turn
▲ 400 1 fly
▲ 3 8 turn
▲ 8 sierpinski</lang>
=={{header|Racket}}==
| |||