20 Mar
2010
20 Mar
'10
6:12 p.m.
boblettoj
shuffle i cards = do gen <- mkStdGen 10 return ([(cards!!i) : (shuffle (randomR (0, ((length cards)-2)) gen) (delete (cards!!i) cards))])
Thta last line doesn't make sense; should it be on the line above? -- Ivan Lazar Miljenovic Ivan.Miljenovic@gmail.com IvanMiljenovic.wordpress.com