Sha256: 8be6349601b0d8d6f291e16459172c085e1276b62b92fad284a27b02bbc1325d
Contents?: true
Size: 415 Bytes
Versions: 395
Compression:
Stored size: 415 Bytes
Contents
module CryptoSquare (encode) where
import Data.Char (isAlphaNum, toLower)
import Data.List (transpose)
import Data.List.Split (chunksOf)
encode :: String -> String
encode = unwords
. transpose
. (squareSize >>= chunksOf)
. map toLower
. filter isAlphaNum
where
squareSize :: String -> Int
squareSize = ceiling . (sqrt :: Double -> Double) . fromIntegral . length
Version data entries
395 entries across 395 versions & 1 rubygems