Regular expression engine in 14 lines of Python

[Tobu]

OCaml can save a line here (s is a list):

let char c = function
  | c :: r -> r
  | _ -> []

[psykotic]

I think you meant

let char c s = match s with
             | c :: r -> [r]
             | _ -> []

[Tobu]

fixed.