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

Version	Path
trackler-2.0.0.5	tracks/haskell/exercises/crypto-square/examples/success-standard/src/CryptoSquare.hs
trackler-2.0.0.4	tracks/haskell/exercises/crypto-square/examples/success-standard/src/CryptoSquare.hs
trackler-2.0.0.3	tracks/haskell/exercises/crypto-square/examples/success-standard/src/CryptoSquare.hs
trackler-2.0.0.2	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-2.0.0.1	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-2.0.0.0	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.4.1	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.4.0	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.3.0	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.2.1	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.2.0	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.1.2	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.1.1	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.1.0	tracks/haskell/exercises/crypto-square/src/Example.hs
trackler-1.0.0.1	tracks/haskell/exercises/crypto-square/src/Example.hs