/usr/web/sources/contrib/fernan/nhc98/tests/nofib/UNUSED/nfib_overloaded/Main.hs

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


-- !!! the ultra-notorious "nfib 30" (overloaded arithmetic)
--
module Main (main) where

main = print (nfib 30)

nfib 0 = 1
nfib 1 = 1
nfib n = nfib (n - 2) + nfib (n - 1) + 1

(Return to Plan 9 Home Page)