LISP

(define (f x y z)
　 (cond ((> x y)
　　 (f (f (- x 1) y z)
　　　 (f (- y 1) z x)
　　 (f (- z 1) x y)))
　 (#t y)))

(f 12 6 0)

なんかこれEvaluate させたら結果でるまで5分ｶｶｰﾀ。