Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (6 sloc) 220 Bytes
open Regexp
let re () = Re.from_string "(0*)http://(([0-9a-zA-Z.\\-])+)((/.*)?)"
let m r s = match Re.match_string r s 0 with
| None -> false
| Some e -> e = String.length s
let f r us = List.for_all (m r) us