diff options
| -rw-r--r-- | challenge-330/hvukman/F#/330_p1.fs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-330/hvukman/F#/330_p1.fs b/challenge-330/hvukman/F#/330_p1.fs new file mode 100644 index 0000000000..3963f7d97d --- /dev/null +++ b/challenge-330/hvukman/F#/330_p1.fs @@ -0,0 +1,7 @@ +let str = "cab12" +let pat = "[A-Za-z]\d" +[<TailCall>] +let rec rec_repl n = if Regex.Match(n,pat).Success=true then rec_repl (Regex.Replace(n,pat,"")) else printf "%s\n" n +rec_repl "cab12" +rec_repl "xy99" +rec_repl "pa1erl" |