Modified random distribution: Difference between revisions

(→‎{{header|Haskell}}: added Haskell solution)
(→‎{{header|Haskell}}: minor details)
Line 455:
import Text.Printf
 
modify :: (Random a, RandomGen g, Ord a) => (a -> a) -> g[a] -> [a]
modify f = foldMap test . pairs . randoms
where
pairs lst = zip lst (tail lst)
Anonymous user