乱数私は成るのOCamlで行列を構築しようとしています

Question

だけの1と0の私の現在のコードは

let myArray = Array.make_matrix num num2 (Random.int 2) in 
    print myArray 

は、しかし、これが唯一の0かで配列全体をいっぱいにあります1つしかありませんが、組み合わせではなく、私が望むことをやるための方法はありますか？

Answer 1

はい、Array.make_matrixは、指定した単一の値でマトリックスを塗りつぶします。

あなたはこの書くことができます。

let myArray = 
    Array.init num 
     (fun _ -> Array.init num2 (fun _ -> Random.int 2)) 

はここにそれがどのように見えるかです：

# let num = 2;; 
val num : int = 2 
# let num2 = 3;; 
val num2 : int = 3 
# let myArray = 
    Array.init num 
     (fun _ -> Array.init num2 (fun _ -> Random.int 2));; 
val myArray : int array array = [|[|0; 1; 0|]; [|1; 1; 0|]|] 
# 

更新

あなたは異なる番号を毎回たい場合は、乱数を初期化する必要があります毎回違う種子を持つジェネレーター。これを行う簡単な方法は次のとおりです。

Random.self_init() 

あなたはプログラムの起動時に一度これを呼び出すことができ、あなたがプログラムを実行するたびに異なる乱数を取得します。