/usr/web/sources/contrib/fernan/nhc98/tests/nofib/imaginary/tak/Main.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/imaginary/tak/Main.hs


-- code of unknown provenance (partain 95/01/25)

tak :: Int -> Int -> Int -> Int

tak x y z = if not(y < x) then z
       else tak (tak (x-1) y z)
		(tak (y-1) z x)
		(tak (z-1) x y)

main = print (shows (tak 24 16 8) "\n")

(Return to Plan 9 Home Page)