Skip to content

Instantly share code, notes, and snippets.

@dphov

dphov/factorial.sc

Created September 1, 2017 18:48
Show Gist options
  • Save dphov/41a6884970bcc11dfa3fed5303deb7f6 to your computer and use it in GitHub Desktop.
Save dphov/41a6884970bcc11dfa3fed5303deb7f6 to your computer and use it in GitHub Desktop.
Download ZIP
factorial created by dphov - https://repl.it/Kctn/0
Raw
factorial.sc
(define (fact-iter x counter n)
(if (> counter n)
x
(fact-iter (* x counter) (+ counter 1) n)))
(define (fact n)
(fact-iter 1 1 n)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment