aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHVukman <peterslopp@googlemail.com>2025-07-20 19:22:35 +0200
committerGitHub <noreply@github.com>2025-07-20 19:22:35 +0200
commitab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761 (patch)
tree570ec3ce1365eea99b6e6fe2457e6e0cb12581d6
parent235086b82832cba2b88fa74fadef8b5ee08fe089 (diff)
downloadperlweeklychallenge-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.lua25
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