September 2017 Update
This commit is contained in:
parent
bba7bfd280
commit
ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
|
|
@ -1,12 +0,0 @@
|
|||
(define (factorial n)
|
||||
(define (*factorial n acc)
|
||||
(if (zero? n)
|
||||
acc
|
||||
(*factorial (- n 1) (* acc n))))
|
||||
(*factorial n 1))
|
||||
|
||||
(define (choose n k)
|
||||
(/ (factorial n) (* (factorial k) (factorial (- n k)))))
|
||||
|
||||
(display (choose 5 3))
|
||||
(newline)
|
||||
Loading…
Add table
Add a link
Reference in a new issue