Sha256: 7dbc506745c351e08d336bf1b536345bf186ac7c7166acae43b34ccb8ea5b0ee

Contents?: true

Size: 716 Bytes

Versions: 312

Compression:

Stored size: 716 Bytes

Contents

module SecretHandshake (handshake) where

import Data.Bits (testBit)

data Action = Wink
            | DoubleBlink
            | CloseYourEyes
            | Jump
            | Reverse
            deriving (Show, Eq, Enum, Bounded)

handshake :: Int -> [String]
handshake = foldr f [] . toActions
  where f Reverse acc = reverse acc
        f action acc = toString action:acc
        toString action = case action of
          Wink          -> "wink"
          DoubleBlink   -> "double blink"
          CloseYourEyes -> "close your eyes"
          Jump          -> "jump"
          Reverse       -> undefined

toActions :: Int -> [Action]
toActions n = [act | act <- Reverse:[Wink .. Jump], n `testBit` fromEnum act]

Version data entries

312 entries across 312 versions & 1 rubygems

Version Path
trackler-2.0.6.40 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.39 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.38 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.37 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.36 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.35 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.34 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.33 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.32 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.31 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.30 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs
trackler-2.0.6.29 tracks/haskell/exercises/secret-handshake/examples/success-standard/src/SecretHandshake.hs