Sierpinski triangle: Difference between revisions
Content added Content deleted
m ("header|F_sharp" -> "header|F Sharp") |
(Added PicoLisp) |
||
Line 825: | Line 825: | ||
end sierpinski; |
end sierpinski; |
||
</lang> |
</lang> |
||
=={{header|PicoLisp}}== |
|||
{{trans|Python}} |
|||
<lang PicoLisp>(de sierpinski (N) |
|||
(let (D '("*") S " ") |
|||
(do N |
|||
(setq |
|||
D (conc |
|||
(mapcar '((X) (pack S X S)) D) |
|||
(mapcar '((X) (pack X " " X)) D) ) |
|||
S (pack S S) ) ) |
|||
D ) ) |
|||
(mapc prinl (sierpinski 4))</lang> |
|||
=={{header|Pop11}}== |
=={{header|Pop11}}== |