29 lines
461 B
Plaintext
29 lines
461 B
Plaintext
module Main where
|
|
|
|
import Prelude
|
|
import Control.Monad.Eff (Eff)
|
|
import Control.Monad.Eff.Console (CONSOLE, log)
|
|
import Math (pi)
|
|
|
|
--
|
|
-- 2.5 Comprehensive check
|
|
--
|
|
mulSquare :: Number -> Number
|
|
mulSquare x = pi * (x * x)
|
|
|
|
waxOn :: Int
|
|
waxOn = x * 5
|
|
where x = y * y
|
|
y = z + 8
|
|
z = 7
|
|
|
|
triple :: Int -> Int
|
|
triple x = x * 3
|
|
|
|
waxOff :: Int -> Int
|
|
waxOff = triple
|
|
|
|
main :: forall e. Eff (console :: CONSOLE | e) Unit
|
|
main = do
|
|
log "Hello sailor!"
|