fork download 
  1. import Control.Applicative
  2. import Data.Array.Unboxed
  3.  
  4. fib n = dp!n
  5.   where
  6.     r = (0,n)
  7.     dp = listArray r [dfs i|i<-range r] :: UArray Int Int
  8.     dfs i
  9.       | i==0 = 0
  10.       | i==1 = 1
  11.       | otherwise = (dp!(i-1))+(dp!(i-2))
  12.  
  13. main = do
  14.   print $ fib 10
Runtime error #stdin #stdout #stderr 0s 4676KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
prog: <<loop>>
https://ideone.com/Yp01Xb
language:
Haskell (ghc 8.4.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!