diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-07-20 19:24:07 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-20 19:24:07 +0200 |
| commit | 1492116ef153836e6fa155eef2080f8fa7fb9da5 (patch) | |
| tree | 6cc2b47e355a65b94b66577a4dd1dd2d27e88c4a | |
| parent | 2f8695675a48f5552e48b8b3d6430d1baf3873a9 (diff) | |
| download | perlweeklychallenge-club-1492116ef153836e6fa155eef2080f8fa7fb9da5.tar.gz perlweeklychallenge-club-1492116ef153836e6fa155eef2080f8fa7fb9da5.tar.bz2 perlweeklychallenge-club-1492116ef153836e6fa155eef2080f8fa7fb9da5.zip | |
Create 330_p2.fs
| -rw-r--r-- | challenge-330/hvukman/F#/330_p2.fs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-330/hvukman/F#/330_p2.fs b/challenge-330/hvukman/F#/330_p2.fs new file mode 100644 index 0000000000..ef8abf5b81 --- /dev/null +++ b/challenge-330/hvukman/F#/330_p2.fs @@ -0,0 +1,13 @@ +// Part 2 +let words = "PERL IS gREAT".Split(" ") + +let print_right n = if Seq.length(n)>2 then printf "%c" (Char.ToUpper(Seq.head(n))) else printf "%c" (Char.ToLower(Seq.head(n))) + for p in (Seq.tail(n)) do printf "%c" (Char.ToLower(p)) + printf " " + + +for m in "PERL IS gREAT".Split(" ") do print_right m +printf "\n" +for m in "THE weekly challenge".Split(" ") do print_right m +printf "\n" +for m in "YoU ARE A stAR".Split(" ") do print_right m |