!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!")]])