match.coffee

_ = require 'underscore'

any = @any = (x) -> x
none = @none = (x) -> false
gt = @gt = (n) -> (x) -> x > n
eq = @eq = (p) -> (x) -> p == x
ne = @ne = (p) -> (x) -> x != p

match = @match = (P, L) ->
  if P.length != L.length then false
  else
    _.every [pred(cand) for [pred, cand] in _.zip P, L][0], any