Revision as of 17:32, 14 December 2008 (view source) Rahul (talk \| contribs) (order nial) ← Older edit		Revision as of 08:04, 16 December 2008 (view source) 204.16.40.113 (talk) (simplified CL program) Newer edit →
Line 184: (defun genrow (n l) (ifwhen (< 0 n) (~~progn~~print l) (genrow (1- n) (cons 1 (~~print~~newrow l))))) ~~(genrow (- n 1) (cons 1 (newrow l))))))~~ (defun newrow (l)

Pascal's triangle (view source)