Skip to content

Instantly share code, notes, and snippets.

@takeshik

takeshik/tarai.yacq

Created November 12, 2011 07:34
Show Gist options
  • Save takeshik/1360199 to your computer and use it in GitHub Desktop.
Save takeshik/1360199 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tarai.yacq
(alias [F Func.[Int32 Int32 Int32 Int32]] (let [tarai:F]
(= tarai (\ [x:Int32 y:Int32 z:Int32] (< y x)
.(cond
(tarai
(tarai (-- x) y z)
(tarai (-- y) z x)
(tarai (-- z) x y)
)
y
)
))
(tarai Int32.(Parse (input)) Int32.(Parse (input)) Int32.(Parse (input)))
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment