6 lines
168 B
Text
6 lines
168 B
Text
let match1 s1 s2 =
|
|
let len1 = String.length s1
|
|
and len2 = String.length s2 in
|
|
if len1 < len2 then false else
|
|
let sub = String.sub s1 0 len2 in
|
|
(sub = s2)
|