blob: feb0fd2ac5d38c50544a0da618794d951d522857 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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!"
|
