diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-07-20 19:22:35 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-20 19:22:35 +0200 |
| commit | ab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761 (patch) | |
| tree | 570ec3ce1365eea99b6e6fe2457e6e0cb12581d6 | |
| parent | 235086b82832cba2b88fa74fadef8b5ee08fe089 (diff) | |
| download | perlweeklychallenge-club-ab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761.tar.gz perlweeklychallenge-club-ab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761.tar.bz2 perlweeklychallenge-club-ab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761.zip | |
Add files via upload
| -rw-r--r-- | challenge-330/hvukman/lua/330_p2.lua | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/challenge-330/hvukman/lua/330_p2.lua b/challenge-330/hvukman/lua/330_p2.lua new file mode 100644 index 0000000000..e6e56fb801 --- /dev/null +++ b/challenge-330/hvukman/lua/330_p2.lua @@ -0,0 +1,25 @@ +function TitleCapital (a)
+ words = {}
+ for word in a:gmatch("%w+") do
+ table.insert(words, word)
+ end
+ for i,v in ipairs(words) do
+ if string.len(v)>2 then
+ local char = string.sub(v, 1, 1)
+ io.write(string.upper(char))
+ for i = 2, string.len(v) do
+ local sub_char = string.sub(v, i, i)
+ io.write(string.lower(sub_char))
+ end
+ else
+ for i = 1, string.len(v) do
+ local sub_char = string.sub(v, i, i)
+ io.write(string.lower(sub_char))
+ end
+ end
+ io.write(" ")
+ end
+
+end
+
+TitleCapital("PERL IS gREAT")
\ No newline at end of file |
