PasteRack.org
Paste # 1385
2014-10-19 14:36:50

Fork as a new paste.

Paste viewed 49 times.


Embed:

V. fast fact

  1. #lang racket
  2.  
  3. (define (k n (m 1))
  4.   (if (<= n m)
  5.       n
  6.       (* (k n (* 2 m))
  7.          (k (- n m) (* 2 m)))))
  8.  
  9. (k 100)

=>

93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000