RosettaCodeData/Task/Knuth-shuffle/Haskell/knuth-shuffle-3.hs

knuthShuffleProcess :: (Show a) => [a] -> IO ()
knuthShuffleProcess =
   (mapM_ print. reverse =<<). ap (fmap. (. zip [1..]). scanr swapElems) (mkRands. length)