tarai

by wasao

(print ((lambda (x y z) (let tarai ((x x) (y y) (z z)) (if (not (< y x)) y (tarai (tarai (- x 1) y z) (tarai (- y 1) z x) (tarai (- z 1) x y))))) 10 9 8))