8 lines
195 B
Common Lisp
8 lines
195 B
Common Lisp
(defun pascal (r)
|
|
(dotimes (i r)
|
|
(let ((c 1))
|
|
(dotimes (k (+ i 1))
|
|
(princ (format "%d " c))
|
|
(setq c (/ (* c (- i k))
|
|
(+ k 1))))
|
|
(terpri))))
|