aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHVukman <peterslopp@googlemail.com>2025-07-27 21:34:59 +0200
committerGitHub <noreply@github.com>2025-07-27 21:34:59 +0200
commitfd2713a5711e415bbb037b910c9701ea9b3ae7cd (patch)
tree3750496353024f2364150b8da750e3b2f4e59fae
parentcef2285d1233ea2771095fc2b19aa620ebff9f34 (diff)
downloadperlweeklychallenge-club-fd2713a5711e415bbb037b910c9701ea9b3ae7cd.tar.gz
perlweeklychallenge-club-fd2713a5711e415bbb037b910c9701ea9b3ae7cd.tar.bz2
perlweeklychallenge-club-fd2713a5711e415bbb037b910c9701ea9b3ae7cd.zip
Create 332_p1.lua
-rw-r--r--challenge-332/hvukman/lua/332_p1.lua39
1 files changed, 39 insertions, 0 deletions
diff --git a/challenge-332/hvukman/lua/332_p1.lua b/challenge-332/hvukman/lua/332_p1.lua
new file mode 100644
index 0000000000..35b39a5b30
--- /dev/null
+++ b/challenge-332/hvukman/lua/332_p1.lua
@@ -0,0 +1,39 @@
+
+function Split(inputstr, sep)
+ if sep == nil then
+ sep = "%s"
+ end
+ local t = {}
+ for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
+ table.insert(t, str)
+ end
+ return t
+end
+
+function Bindate(inp)
+ local newdate = Split(inp,"-")
+ for k,v in ipairs(newdate) do
+
+ local n = tonumber(v)
+ local bin = {}
+ while n>0 do
+ table.insert(bin,n&1)
+ n = n >> 1
+ end
+
+ for i=#bin, 1, -1 do
+ io.write(bin[i])
+ end
+
+ if k~=#newdate then
+ io.write("-")
+ end
+
+
+ end
+ print("")
+end
+
+Bindate("2025-07-26")
+Bindate("2000-02-02")
+Bindate("2024-12-31")