24 lines
561 B
Haskell
Executable File
24 lines
561 B
Haskell
Executable File
#!/usr/bin/env runghc
|
|
-- This is a comment
|
|
|
|
doubleMe x = x * 3
|
|
|
|
doubleUs x y = doubleMe x + doubleMe y
|
|
|
|
doubleSmallNumber x = if x <= 100 then doubleMe x else x
|
|
|
|
-- ' <- uptick is used as convetion to mark lightly modified function
|
|
doubleSmallNumber' x = (if x <= 100 then doubleMe x else x) + 1
|
|
|
|
-- compile: ghc -dynamic prax1.hs
|
|
-- flag -dynamic is needed under Arch Linux, can be leaved off on ther envs
|
|
|
|
-- runghc prax1.hs
|
|
-- this also works ↑
|
|
|
|
-- entrypoint
|
|
main = do
|
|
putStrLn "Hello World"
|
|
name <- getLine
|
|
putStrLn ("Hello " ++ name ++ "!")
|