2016-07-01から1日間の記事一覧
fact x = if (x == 1) || (x == 0) then 1 else x * (fact (x-1)) main = do print (fact 10000) [vagrant@localhost Haskell]$ ghc main.hs [1 of 1] Compiling Main ( main.hs, main.o ) Linking main ...\ [vagrant@localhost Haskell]$ time ./main 2846…