diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-07-27 21:34:59 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-27 21:34:59 +0200 |
| commit | fd2713a5711e415bbb037b910c9701ea9b3ae7cd (patch) | |
| tree | 3750496353024f2364150b8da750e3b2f4e59fae | |
| parent | cef2285d1233ea2771095fc2b19aa620ebff9f34 (diff) | |
| download | perlweeklychallenge-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.lua | 39 |
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") |
