git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
22 lines 342 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console (log, logShow)
6class A a where
7 a :: a -> Boolean
9class B a where
10 b :: a -> Boolean
12instance aNumber :: A Number where
13 a 0.0 = true
14 a n = b (n - 1.0)
16instance bNumber :: B Number where
17 b 0.0 = false
18 b n = a (n - 1.0)
20main = do
21 logShow $ a 10.0
22 log "Done"