Skip to content

Instantly share code, notes, and snippets.

@appositum

appositum/satanas.hs

Created March 18, 2019 03:39
Show Gist options
  • Save appositum/83b8ad53d892af599bee5c726bf4bc5c to your computer and use it in GitHub Desktop.
Save appositum/83b8ad53d892af599bee5c726bf4bc5c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
satanas.hs
import Data.Bifunctor
import Data.Char
(😈) = (\x -> chr <$> id x) =<< zipWith ($) [unpack <$> id, unpack <$> first (succ :: Int -> Int), unpack <$> first (subtract 5), pure . fst] (replicate 8 (115,97)) where unpack (a,b) = [a,b]
(🙏) s = (s ++ " " ++ fmap chr [101,115,116,97,32,110,111,32,99,111,109,97,110,100,111])
main = print $ (🙏) (😈)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment