SpOnGeBoB Case Zygomorphism

convert text to SpOnGeBoB CaSe using a zygomorphism: 12 -- | \\ ( O(n) \\) 13 spongebobZygo :: String -> String 14 spongebobZygo = zygo a pa 15 where a :: ListF Char Bool -> Bool 16 a Nil = False 17 a (Cons b) = b 18 pa :: ListF Char (Bool, String) -> String 19 pa Nil = "" 20 pa (Cons c (True, s)) = toUpper c : s 21 pa (Cons c (False, s)) = toLower c : s λ.> spongebobZygo "zygohistomorphic prepromorphism" "ZyGoHiStOmOrPhIc PrEpRoMoRpHiSm"

A screenshot shows a Haskell-like code snippet defining a zygomorphic function that converts text into alternating SpongeBob case. The joke is that an extremely technical functional-programming implementation is used for a silly meme formatting trick, making it a reaction for overengineering a simple task.

• @profunctor_io / 2750 2019-07-30