diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-07-20 19:23:45 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-20 19:23:45 +0200 |
| commit | 2f8695675a48f5552e48b8b3d6430d1baf3873a9 (patch) | |
| tree | 08b11eaa9cc048725f36ca5ae971ca4105c16fe8 | |
| parent | ab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761 (diff) | |
| download | perlweeklychallenge-club-2f8695675a48f5552e48b8b3d6430d1baf3873a9.tar.gz perlweeklychallenge-club-2f8695675a48f5552e48b8b3d6430d1baf3873a9.tar.bz2 perlweeklychallenge-club-2f8695675a48f5552e48b8b3d6430d1baf3873a9.zip | |
Create 330_p1.fs
| -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" |