Verwenden Sie eine zufällige Variable mehrmals in Haskell

Question

Es würde eine zufällige Reihenfolge der öffnenden geschweiften Klammern und eine passende Folge von schließenden Klammern machen. Hier ist meine (Teil-) Code:

shuffle :: [a] -> IO [a] 
ps xs ys = map snd . sort $ zip xs ys 

opens = "[{(" 
closes = "]})" 

parens = do 
ord <- shuffle [0..length opens] 
    let os = ps ord opens 
     cs = reverse $ ps ord closes 

Es funktioniert nicht, da es eine neue ord für jeden Shuffle erzeugt. Wie kann ich es an die ord erinnern und es für beide Shuffle verwenden?

Answer 1

Mischen Sie sie nicht getrennt.

Mischen Sie die zip ped-Sequenz und unzip, wenn Sie fertig sind.

Answer 2

Haben Sie Olegs Provably perfect shuffle algorithms oder die System.Random.Shuffle Implementierung gesehen?

Nach erneutem Lesen Ihres (sehr unvollständigen) Codes scheint es, dass korrekt sein könnte, was einige Annahmen über den umgebenden Code macht. Bitte zeigen Sie mehr, damit wir feststellen können, was falsch ist.

Nebenbei, mit map fst . sortBy (comparing `on` fst) . zip xs oder map fst . sortWith fst . zip xs würde deutlicher zum Ausdruck bringen, dass Ihre Absicht ist, eine Liste von einem anderen zu bestellen.