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)
September Morn Update 2019-09-12 10:33:56 -07:00			`knuthShuffleProcess :: (Show a) => [a] -> IO ()`
			`knuthShuffleProcess =`
			`(mapM_ print. reverse =<<). ap (fmap. (. zip [1..]). scanr swapElems) (mkRands. length)`