!import "list.tri" !Local

match_ = y (\self value patterns :
  triage
    t
    (\_ : t)
    (\pattern rest :
      triage
        t
        (\_ : t)
        (\test result :
          if (test value)
             (result value)
             (self value rest))
        pattern)
    patterns)

match = (\value patterns :
  match_ value (map (\sublist :
    pair (head sublist) (head (tail sublist)))
    patterns))

otherwise = const (t t)

matchExample = (\x : match x
  [[(equal? 1)  (\_ : "one")]
  [(equal? 2)  (\_ : "two")]
  [(equal? 3)  (\_ : "three")]
  [(equal? 4)  (\_ : "four")]
  [(equal? 5)  (\_ : "five")]
  [(equal? 6)  (\_ : "six")]
  [(equal? 7)  (\_ : "seven")]
  [(equal? 8)  (\_ : "eight")]
  [(equal? 9)  (\_ : "nine")]
  [(equal? 10) (\_ : "ten")]
  [ otherwise  (\_ : "I ran out of fingers!")]])