Haskellで1つのランダム変数を複数回使用する

Question

これは、中括弧を開き、中括弧で囲んでいるシーケンスをランダムにしたいと考えています。ここに私の（部分）コードです：

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 

それは、各シャッフルのための新しいordを生成するのでそれは動作しません。 ordを覚えて両方のシャッフルに使用するにはどうしたらいいですか？

Answer 1

別々にシャッフルしないでください。

完了したらzipペダルシーケンスとunzipをシャッフルします。

Answer 2

OlegのProvably perfect shuffle algorithmsまたはSystem.Random.Shuffleの実装を見たことがありますか？

（非常に不完全な）コードを再読み込みすると、はとなる可能性があり、周囲のコードについていくつかの前提があります。私たちが何が間違っているのかを判断するために、もっと多くを示してください。

脇に、map fst . sortBy (comparing `on` fst) . zip xsまたはmap fst . sortWith fst . zip xsを使用すると、1つのリストを別のリストで注文することがより明確に表現されます。