Contents

module Fibonacci where
-- module Test where

import Foreign.C.Types
-- import Data.Map
import Maybe

-- main = putStrLn "11"

fibonacci :: Int -> Int
fibonacci n = fibs !! n
  where fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

-- local_map = Data.Map.fromList [(1,2), (3,4)]



-- lookup_hs ::CInt -> CInt
-- lookup_hs = fromIntegral . Maybe.fromJust . ((flip Data.Map.lookup) local_map) . fromIntegral

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
hubris-0.0.3	sample/Fibonacci.hs
hubris-0.0.2	sample/Fibonacci.hs