Anonymous user
Sierpinski triangle: Difference between revisions
Added PicoLisp
m ("header|F_sharp" -> "header|F Sharp") |
(Added PicoLisp) |
||
Line 825:
end sierpinski;
</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}}==
| |||