Haskellで8-xランダム値を取得するにはどうすればよいですか？

Question

2つの整数のリストを返す関数worpを作ろうとしています。

整数の最初のリストは、入力リストの長さから8を差し引いた結果です。ダイスはスローします。

2番目のリストは入力リストです。

これは私のコードです：このエラーを取得

import System.Random 

worp :: [Int] -> [[IO Int]] 
worp d = [werpDobbelstenen (8-length d),d] 

werpDobbelstenen :: Int -> [IO Int] 
werpDobbelstenen 0 = [] 
werpDobbelstenen x = randomRIO (1,6):werpDobbelstenen x-1 

イム：あなたを定義し、今

import Control.Monad -- replicateM 
import System.Random -- randomRIO 

werpDobbelstenen :: Int -> IO [Int] 
werpDobbelstenen n = replicateM n (randomRIO (1,6)) 

：

System.IO> :load "X:\\haskell\\dobbel.hs" 
ERROR file:.\dobbel.hs:17 - Instance of Num [IO Int] required for definitio of werpDobbelstenen 

Answer 1

まず、私は簡単にするためにIO [Int]値を返しますworpより簡単には、単にのリストを取るものとして所望のリストの組を返す。

worp' :: [Int] -> ([Int], [Int]) 
worp' d = (d, map (\x -> x - length d) d) 

そして最後に、あなたは単にIO ([Int], [Int])値を取得するためにwerpDobbelstenenの結果の上にworpをマッピングすることができます。もう少し思考の後

worp :: Int -> IO ([Int], [Int]) 
worp n = fmap worp' (werpDobbelstenen n) 

---

、私はこれがあなたが望むものだと思います。この場合は

import Control.Monad -- replicateM 
import System.Random -- randomRIO 

werpDobbelstenen :: Int -> IO [Int] 
werpDobbelstenen n = replicateM n (randomRIO (1,6)) 

worp' :: [Int] -> IO ([Int], [Int]) 
worp' d = let n = 8 - length d 
      in do d' <- werpDobbelstenen n 
       return (d, d') 

worp :: Int -> IO ([Int], [Int]) 
worp n = werpDobbelstenen n >>= worp' 

>>> worp 6 
([4,1,2,5,6,4],[1,2]) 

、タプルの2番目の値は常にn >= 8のための空のリストです。値が8より大きい場合は、何か違うことをしたいかもしれません。