如何使用配对列表压缩随机数列表

Question

module Meth where
import System.Random
import Data.List

type Dom = (Int,Int) 


gen :: StdGen
gen = mkStdGen 10

dominoes :: [Dom]  
dominoes = [(x, y)| x <- [0..6], y <- [x..6]]

shuffles:: StdGen->[Int] 
shuffles g = take 28 $ randoms g :: [Int]

我已经创建了一个包含28个随机数的列表，我想用我的Dom列表来压缩它，并在任何帮助下对其进行排序。我不知道如何从这一点开始

Answer 1

假设您想要根据数字对其进行排序，您可以简单地创建一个函数，该函数先使用zip，然后使用sortBy来获得结果：

result :: StdGen -> [(Dom, Int)]
result g =
    let zipped = zip dominoes (shuffles g)
    in sortBy (compare `on` snd) zipped