Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let inputProtector(s:string) =
- let seq = s |> Seq.toList
- let rec seqParse(sq:char list) =
- match sq with
- | '\\'::tail -> '\\'::'\\'::seqParse tail
- | '$'::tail -> '\\'::'$'::seqParse tail
- | '%'::tail -> '\\'::'%'::seqParse tail
- | '#'::tail -> '\\'::'#'::seqParse tail
- | '{'::tail -> '\\'::'{'::seqParse tail
- | '}'::tail -> '\\'::'}'::seqParse tail
- | head::tail -> head::seqParse tail
- | [] -> []
- let implode (xs:char list) =
- let sb = System.Text.StringBuilder(xs.Length)
- xs |> List.iter (sb.Append >> ignore)
- sb.ToString()
- implode(seqParse(seq))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement