Personal tools
- Log in
Navigation
Largest Languages
- Java
- C
- OCaml
- Perl
Tools

View source for Shuffle an array

From CodeCodex

← Shuffle an array

You do not have permission to edit this page, for the following reason:

You must confirm your email address before editing pages. Please set and validate your email address through your user preferences.

You can view and copy the source of this page:

===Haskell===
<pre>
import System.Random
import Data.Array.MArray

shuffle :: (MArray a t IO, Random i, Ix i) => a i t -> IO ()
shuffle arr = do
  r <- getBounds arr
  forM_ (range r) $ \i -> swap i =<< randomRIO (0,i)
  where swap i j = do
          t <- readArray arr i
          writeArray arr i =<< readArray arr j
          writeArray arr j t
</pre>

Return to Shuffle an array.

Retrieved from "http://www.codecodex.com/wiki/Shuffle_an_array"