testsuite/tests/misc/takc.ml


1
2
3
4
5
6
7
8
9
10
11

(* TEST
*)

let rec tak x y z =
  if x > y then tak (tak (x-1) y z) (tak (y-1) z x) (tak (z-1) x y)
           else z

let rec repeat n =
  if n <= 0 then 0 else tak 18 12 6 + repeat(n-1)

let _ = print_int (repeat 200); print_newline(); exit 0