Sierpinski pentagon: Difference between revisions
Content added Content deleted
(Added Wren) |
(Added Quackery.) |
||
Line 1,298: | Line 1,298: | ||
See [https://trinket.io/python/5137ae2b92 online implementation]. See [http://i.imgur.com/96D0c7i.png completed output]. |
See [https://trinket.io/python/5137ae2b92 online implementation]. See [http://i.imgur.com/96D0c7i.png completed output]. |
||
=={{header|Quackery}}== |
|||
<lang Quackery>[ $ "turtleduck.qky" loadfile ] now! |
|||
[ [ 1 1 |
|||
30 times |
|||
[ tuck + ] |
|||
swap join ] constant |
|||
do ] is phi ( --> n/d ) |
|||
[ 5 times |
|||
[ 2dup walk |
|||
1 5 turn ] |
|||
2drop ] is pentagon ( n/d n --> ) |
|||
forward is pentaflake |
|||
[ dup 0 = iff |
|||
[ drop |
|||
' [ 79 126 229 ] fill |
|||
pentagon ] done |
|||
1 - temp put |
|||
5 times |
|||
[ 2dup 2 1 phi v- v* |
|||
temp share pentaflake |
|||
2dup fly |
|||
1 5 turn ] |
|||
temp release |
|||
2drop ] resolves pentaflake ( n/d n --> ) |
|||
turtle |
|||
3 10 turn |
|||
300 1 fly |
|||
2 5 turn |
|||
' [ 79 126 229 ] colour |
|||
400 1 2 pentaflake</lang> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |