std.snow

-- This file is use to test and see if the grammar is working
-- and to experemt with new language syntaxes

-- Names of snow tools
-- snow men     -> maybe package manager
-- snow storm   -> maybe package manager
-- snow flake   -> debugger

-- enum Result ok err = Ok ok | Err err
--
-- Result.mapOk Ok(x) f = Ok (f x)
-- Result.mapOk Err(x) f = Err x
--
--
-- enum Option a = Some a | None
--
-- Option.map Some 0 f = Some (0)
-- Option.map Some x f = Some (f x)
-- Option.map None f = None
--
-- print <| Option.map (foo 10) λx -> x + 1
-- Some 11

-- foo x = Some x

-- enum Bool = True | False

-- `==` :> a -> a -> Bool
-- `==` x y = core::equal x y Bool::True Bool::False

-- `<=` :> a -> a -> Bool
-- `<=` x y = core::less_equal x y Bool::True Bool::False

-- `>=` :> a -> a -> Bool
-- `>=` x y = core::greater_equal x y Bool::True Bool::False

-- `>` :> a -> a -> Bool
-- `>` x y = core::greater x y Bool::True Bool::False

-- `<` :> a -> a -> Bool
-- `<` x y = core::less x y Bool::True Bool::False

-- isDigit c
--   : Char -> Bool
--   = c >= '0' and c <= '9'

strJoin sep arr
  : String -> Array<String> -> String
  = if (length arr) > 0
    then (sep + (head arr)) + (strJoin sep (tail arr))
    else ""

max x y
  : Int -> Int -> Int
  = if x > y then x else y

min x y
 : Int -> Int -> Int
 = if x < y then x else y

clamp low high input
  : Int -> Int -> Int -> Int
  = max low (min input high)

-- main : IO = print (clamp 1 10 5)

map f arr
  -- : (a -> b) -> Array<a> -> Array<b>
  = if length arr == 0
    then []
    else [f (head arr)] + map f (tail arr)

addOne x : Int -> Int = x + 1

-- main
--   : IO
--   = print (map [1,2,3] addOne) "\n"