git @ Cat's Eye Technologies Robin / master eg / fact.robin
master

Tree @master (Download .tar.gz)

fact.robin @masterraw · history · blame

1
2
3
4
5
6
7
8
;''Example of a recursive function.''

(define fact (fun (self n)
  (multiply n
    (if (gt? n 1)
      (self self (subtract n 1))
      1))))
(display (fact fact 5))