rnhmjoj/alea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix whitespace

Browse Source
This commit is contained in:
Michele Guerini Rocco 2014-12-13 01:06:05 +01:00
parent 7ec9fbe884
commit 366bce49a6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Alea/Diceware.hs
View File

@ -13,9 +13,9 @@ parseDiceware x = map (last . split ' ') $ lines x
-- Lookup word with dice index -- Lookup word with dice index
readDiceware :: Diceware -> Int -> String readDiceware :: Diceware -> Int -> String
readDiceware d n = show n ++ " -> " ++ readDiceware d n = show n ++ " -> " ++
case (undice n) of case (undice n) of
Just x -> d !! x Just x -> d !! x
Nothing -> "Does not exist" Nothing -> "Does not exist"
-- Lookup word with linear index -- Lookup word with linear index
readDiceware' :: Diceware -> Int -> String readDiceware' :: Diceware -> Int -> String
@ -25,4 +25,4 @@ readDiceware' d n = d !! n
-- Ex. undice 11121 == Just 6 -- Ex. undice 11121 == Just 6
undice :: Int -> Maybe Int undice :: Int -> Maybe Int
undice n = elemIndex n . filter undice n = elemIndex n . filter
(null . (intersect "0789") . show) $ [11111..66666] (null . (intersect "0789") . show) $ [11111..66666]