order.egi

assertEqual "compare" (compare 10 10) Equal
assertEqual "compare" (compare 11 10) Greater
assertEqual "compare" (compare 10 11) Less

assertEqual "compare list" (compare [1, 2] [1]) Greater
assertEqual "compare list" (compare [1] [1, 2]) Less
assertEqual "compare list" (compare [1, 2] [1, 3]) Less
assertEqual "compare list" (compare [1, 3] [1, 3]) Equal

assertEqual "min" (min 20 5) 5
assertEqual "max" (max 5 30) 30

assertEqual "minimum" (minimum [20, 5, 12]) 5
assertEqual "maximum" (maximum [5, 30, 23]) 30

assertEqual "splitByOrdering"
  (splitByOrdering 2 [1, 2, 3, 2, 3, 4, 5])
  ([1], [2, 2], [3, 3, 4, 5])

assertEqual "sort"
  (sort [10, 20, 5, 20, 30])
  [5, 10, 20, 20, 30]

assertEqual "sort strings"
  (sort ["banana", "apple", "chocolate"])
  ["apple", "banana", "chocolate"]

assertEqual "minimize"
  (minimize S.length ["banana", "apple", "chocolate"])
  "apple"

assertEqual "maximize"
  (maximize S.length ["banana", "apple", "chocolate"])
  "chocolate"