r/dailyprogrammer #175

175.hs

import System.Environment (getArgs)
import System.Random
import Data.List (permutations)

shuffle :: String -> IO String
shuffle xs = do
  gen <- newStdGen
  let (randIndex, _) = randomR (0, length ys - 1) gen
  return $ ys !! randIndex
  where
    ys = permutations xs
  

bogo :: String -> String -> Int -> IO String
bogo str sorted acc = case str == sorted of
  True -> return $ show acc ++ " iterations"
  False -> do 
    newStr <- shuffle str
    bogo newStr sorted (acc+1)


main = do
  args <- getArgs
  case args of
    [str, sorted] -> do
      answer <- bogo str sorted 0
      putStrLn answer
    _ -> do
      putStrLn "need two arguments"