25 lines
593 B
Text
25 lines
593 B
Text
(de fact (N)
|
|
(if (=0 N)
|
|
1
|
|
(* N (fact (dec N))) ) )
|
|
(de lah (N K)
|
|
(cond
|
|
((=1 K) (fact N))
|
|
((= N K) 1)
|
|
((> K N) 0)
|
|
((or (> 1 N) (> 1 K)) 0)
|
|
(T
|
|
(/
|
|
(* (fact N) (fact (dec N)))
|
|
(* (fact K) (fact (dec K)))
|
|
(fact (- N K)) ) ) ) )
|
|
(prin (align -12 "n/k"))
|
|
(apply tab (range 0 12) (need 13 -11))
|
|
(for A (range 0 12)
|
|
(prin (align -2 A))
|
|
(for B (range 0 A)
|
|
(prin (align 11 (lah A B))) )
|
|
(prinl) )
|
|
(prinl "Maximum value from the L(100, *) row:")
|
|
(maxi '((N) (lah 100 N)) (range 0 100))
|
|
(prinl @@)
|