Skip to content

Instantly share code, notes, and snippets.

@dakusui

dakusui/tak

Created May 5, 2015 23:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dakusui/74898eb4289d0dae46ef to your computer and use it in GitHub Desktop.
Save dakusui/74898eb4289d0dae46ef to your computer and use it in GitHub Desktop.
Download ZIP
Tak for mal
Raw
tak
(def! tak
(fn* [x y z]
(if (<= x y)
z
(tak (tak (- x 1) y z)
(tak (- y 1) z x)
(tak (- z 1) x y)))))
(println (tak 24 16 8))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment