diff options
| -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 |