lang_2023/tests/match.lang

def fruit_cost : fruit = {
  return (match fruit with
      | $Banana -> 11
      | $Apple | $Orange -> 7)
}

def amount_to_string : x is_zero_separated = {
  const ans = match x with
    | 0 ? is_zero_separated -> "Zero"
    | 0 | 1 | 2 | 3 | 4 -> "Few"
    | x ? (5..9).contains x -> "Several"
    | x ? (10..19).contains x -> "Pack"
    | _ -> "Lots"
  return ans
}