8 lines
191 B
Text
8 lines
191 B
Text
(de pascalTriangle (N)
|
|
(for I N
|
|
(space (* 2 (- N I)))
|
|
(let C 1
|
|
(for K I
|
|
(prin (align 3 C) " ")
|
|
(setq C (*/ C (- I K) K)) ) )
|
|
(prinl) ) )
|