mu suwi 🩷💛
@musuwi.mom
2.4K followers 271 following 3.6K posts
mad genius bimbo rat of many obsessions but always a drawer of female-presenting-peepees. sfw and nsfw fixations intermingle freely here. 30s, adults only pls musuwi.mom ← website #musuwi.art ← art tag
![rot13 in fennel (fixed):
#!/usr/bin/env fennel
(lambda single-rot [n c]
;; rot(n) a single ascii character
(assert (= 1 (length c)))
(let [code (string.byte c)
?case (if (< 64 code 91) 65 ; uppercase
(< 96 code 123) 97 ; lowercase
nil)]
(string.char
(if (not ?case) code
(+ ?case (% (+ n (- code ?case))
26))))))
(lambda rot13 [s]
;; rot13 a whole string, using recursion
(match (length s)
1 (single-rot 13 s)
_ (.. (single-rot 13 (string.sub s 1 1))
(rot13 (string.sub s 2 (length s))))))
(let [args [...]]
(assert (= 1 (length args)))
(print (.. "\n" (rot13 (. args 1)))))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:zunc3ki5hdrgqadatljl7znn/bafkreih2xdfdjaqb4lmnrb3blezeq34hftrdxmy4wvu7cgpf5k7poqe4ym)
![rot13 in fennel:
#!/usr/bin/env fennel
(lambda single-rot [n c]
;; rot(n) a single ascii character
(assert (= 1 (string.len c)))
(let [code (string.byte c)
?case (if (< 64 code 91) 64 ; uppercase
(< 96 code 123) 96 ; lowercase
nil)]
(string.char
(if ?case
(+ ?case (% (+ n (- code ?case))
26))
code))))
(lambda rot13 [s]
;; rot13 a whole string, using recursion
(if (= 1 (string.len s))
(single-rot 13 s)
(.. ; concatenate
(single-rot 13 (string.sub s 1 1))
(rot13 (string.sub s 2 (string.len s))))))
(let [args [...]]
(print (table.concat (rot13 (. args 1)) ",")))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:zunc3ki5hdrgqadatljl7znn/bafkreidz5iwkaix7ftfupangsqhe5zfsx5mv4eoji5o4cqekjr7rh75xli)
