logoalt Hacker News

zarakshRyesterday at 9:33 PM1 replyview on HN

I don't see how:

Racket:

  > (define (fact n)
      (if (= n 1)
          1
          (* n (fact (- n 1)))))
  > (fact 6)
  720
OCaml:

  # let rec fact = function
      | 1 -> 1
      | n when n > 1 -> n * (fact (n - 1))
    in fact 6;;
  - : int = 720

Replies

kubbyesterday at 9:40 PM

Whenever someone complains about not being able to use a slightly different syntax, I assume they just don't have any neuroplasticity anymore.