git.iko.soy/rowtype-yoga/purescript-native
on 24fdff2 help sign in
rowtype-yoga/purescript-native/examples/passing/DeepCase.purs
15 lines 230 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console
5import Control.Monad.Eff
6import Control.Monad.ST
8f x y =
9 let
10 g = case y of
11 0.0 -> x
12 x -> 1.0 + x * x
13 in g + x + y
15main = print $ f 1.0 10.0