我如何將隨機數列表與成對的haskell壓縮在一起

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