21 lines
668 B
Haskell
21 lines
668 B
Haskell
module Main (main) where
|
|
|
|
import Data.Vector.Storable qualified as V
|
|
import GarnetRs.Wrapped
|
|
import System.IO
|
|
|
|
main :: IO ()
|
|
main = do
|
|
hello "Haskell"
|
|
helloStruct T{a = True, b = 42}
|
|
helloStruct T{a = False, b = maxBound}
|
|
helloEnum E1
|
|
helloEnum E3
|
|
helloShape $ Circle 3.14
|
|
helloShape $ Rectangle 10.0 5.0
|
|
putStrLn $ "3 + 4 = " <> show (add 3 4)
|
|
putStrLn $ "Tree sum: " <> show (sumTree (Fork (Fork (Leaf 1) (Fork (Leaf 2) (Leaf 3))) (Leaf 4)))
|
|
putStrLn $ "Slice sum: " <> show (sumSlice $ V.fromList [0 .. 5])
|
|
putStrLn "Nothing." >> printOptional Nothing
|
|
putStr "Something: " >> hFlush stdout >> printOptional (Just 67)
|