From 1492116ef153836e6fa155eef2080f8fa7fb9da5 Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 20 Jul 2025 19:24:07 +0200 Subject: Create 330_p2.fs --- challenge-330/hvukman/F#/330_p2.fs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 challenge-330/hvukman/F#/330_p2.fs 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 -- cgit