Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun pascal (row col)

2 665c255d 2023-08-04 jrmu   (cond ((= col 1) 1)

3 665c255d 2023-08-04 jrmu 	((= row col) 1)

4 665c255d 2023-08-04 jrmu 	(t (+ (pascal (1- row) col)

5 665c255d 2023-08-04 jrmu 	      (pascal (1- row) (1- col))))))