git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/MultiArgFunctions.purs
27 lines 1.2 kB history raw
1module Main where
3import Prelude
4import Data.Function.Uncurried
5import Control.Monad.Eff
6import Control.Monad.Eff.Console
8f = mkFn2 $ \a b -> runFn2 g a b + runFn2 g b a
10g = mkFn2 $ \a b -> case {} of
11 _ | a <= 0.0 || b <= 0.0 -> b
12 _ -> runFn2 f (a - 0.0) (b - 0.0)
14main = do
15 runFn0 (mkFn0 $ \_ -> log $ show 0.0)
16 runFn1 (mkFn1 $ \a -> log $ show a) 0.0
17 runFn2 (mkFn2 $ \a b -> log $ show [a, b]) 0.0 0.0
18 runFn3 (mkFn3 $ \a b c -> log $ show [a, b, c]) 0.0 0.0 0.0
19 runFn4 (mkFn4 $ \a b c d -> log $ show [a, b, c, d]) 0.0 0.0 0.0 0.0
20 runFn5 (mkFn5 $ \a b c d e -> log $ show [a, b, c, d, e]) 0.0 0.0 0.0 0.0 0.0
21 runFn6 (mkFn6 $ \a b c d e f -> log $ show [a, b, c, d, e, f]) 0.0 0.0 0.0 0.0 0.0 0.0
22 runFn7 (mkFn7 $ \a b c d e f g -> log $ show [a, b, c, d, e, f, g]) 0.0 0.0 0.0 0.0 0.0 0.0 0.0
23 runFn8 (mkFn8 $ \a b c d e f g h -> log $ show [a, b, c, d, e, f, g, h]) 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
24 runFn9 (mkFn9 $ \a b c d e f g h i -> log $ show [a, b, c, d, e, f, g, h, i]) 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
25 runFn10 (mkFn10 $ \a b c d e f g h i j-> log $ show [a, b, c, d, e, f, g, h, i, j]) 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
26 logShow $ runFn2 g 0.0 0.0
27 log "Done"