From 235086b82832cba2b88fa74fadef8b5ee08fe089 Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 20 Jul 2025 19:22:20 +0200 Subject: Create 330_p1.lua --- challenge-330/hvukman/lua/330_p1.lua | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 challenge-330/hvukman/lua/330_p1.lua diff --git a/challenge-330/hvukman/lua/330_p1.lua b/challenge-330/hvukman/lua/330_p1.lua new file mode 100644 index 0000000000..52efc57e23 --- /dev/null +++ b/challenge-330/hvukman/lua/330_p1.lua @@ -0,0 +1,23 @@ +function Nice (a) + local not_good = false + local new + for i = 1, string.len(a) do + local char = string.sub(a, i, i) + if string.match(char, "%d") then + new= string.sub(a, 1, i-2) .. string.sub(a, i+1, string.len(a)) + not_good= true + break + end + + end + if not_good==true then + return Nice(new) + end + print(a) + return a +end + +Nice("cab12") +Nice("xy99") +Nice("pa1erl") + -- cgit From ab3b9ec0bf298bdcc3b0f43f76dc38d5dfa40761 Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 20 Jul 2025 19:22:35 +0200 Subject: Add files via upload --- challenge-330/hvukman/lua/330_p2.lua | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 challenge-330/hvukman/lua/330_p2.lua 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 -- cgit From 2f8695675a48f5552e48b8b3d6430d1baf3873a9 Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 20 Jul 2025 19:23:45 +0200 Subject: Create 330_p1.fs --- challenge-330/hvukman/F#/330_p1.fs | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 challenge-330/hvukman/F#/330_p1.fs diff --git a/challenge-330/hvukman/F#/330_p1.fs b/challenge-330/hvukman/F#/330_p1.fs new file mode 100644 index 0000000000..3963f7d97d --- /dev/null +++ b/challenge-330/hvukman/F#/330_p1.fs @@ -0,0 +1,7 @@ +let str = "cab12" +let pat = "[A-Za-z]\d" +[] +let rec rec_repl n = if Regex.Match(n,pat).Success=true then rec_repl (Regex.Replace(n,pat,"")) else printf "%s\n" n +rec_repl "cab12" +rec_repl "xy99" +rec_repl "pa1erl" -- cgit 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