All pastes #2074614 Raw Edit

Something

public text v1 · immutable
#2074614 ·published 2011-06-04 15:00 UTC
rendered paste body
(defun fak (a)
    if (eq a 1)
    (
       1
     )else
    (
       (* a fak(- a 1 ))
    )
)
 
(fak 3)

(defun binom (n k)
    if (eq k 0)
    (
        0
    )else
    (
        if ( >= k  n)
        (
             1
        )else
        (
             (/ ( fak(n)(* fak(k) fak(n-k) )))
        )
    )
)

(binom 6 3 )