15 lines
371 B
Text
15 lines
371 B
Text
(de sierpinski (N)
|
|
(let (D '("1") S "0")
|
|
(do N
|
|
(setq
|
|
D (conc
|
|
(mapcar '((X) (pack S X S)) D)
|
|
(mapcar '((X) (pack X "0" X)) D) )
|
|
S (pack S S) ) )
|
|
D ) )
|
|
|
|
(out '(display -)
|
|
(let Img (sierpinski 7)
|
|
(prinl "P1")
|
|
(prinl (length (car Img)) " " (length Img))
|
|
(mapc prinl Img) ) )
|