20 lines
550 B
Common Lisp
20 lines
550 B
Common Lisp
;; rename native functions according to task
|
|
(define-syntax-rule (Cnk n k) (Cnp n k))
|
|
(define-syntax-rule (Ank n k) (Anp n k))
|
|
|
|
|
|
(Cnk 10 1)
|
|
→ 10
|
|
(lib 'bigint) ;; no floating point needed : use large integers
|
|
|
|
(Cnk 100 10)
|
|
→ 17310309456440
|
|
(Cnk 1000 42)
|
|
→ 297242911333923795640059429176065863139989673213703918037987737481286092000
|
|
(Ank 10 10)
|
|
→ 3628800
|
|
(factorial 10)
|
|
→ 3628800
|
|
(Ank 666 42)
|
|
→ 1029024198692120734765388598788124551227594950478035495578451793852872815678512303375588360
|
|
1398831219998720000000000000
|