git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/DeepArrayBinder.purs
17 lines 447 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff
5import Control.Monad.Eff.Console (log)
6import Test.Assert
8data List a = Cons a (List a) | Nil
10match2 :: List Number -> Number
11match2 (Cons x (Cons y xs)) = x * y + match2 xs
12match2 _ = 0.0
14main = do
15 let result = match2 (Cons 1.0 (Cons 2.0 (Cons 3.0 (Cons 4.0 (Cons 5.0 (Cons 6.0 (Cons 7.0 (Cons 8.0 (Cons 9.0 Nil)))))))))
16 assert' "Incorrect result!" (result == 100.0)
17 log "Done"