Mathematicaプログラミング 質問箱 その1
■ このスレッドは過去ログ倉庫に格納されています
0116デフォルトの名無しさん
2006/10/16(月) 17:38:18超初心者ですが一応目的は達成できていると思います
Clear[a, b, c]; b = {};
For[i = 1, Length[b] < 10, i++, a[i] = Random[Integer, {1, 10}];
c = Position[b, a[i]];
If[c == {}, AppendTo[b, a[i]]];
]
bが１〜１０のランダムなリストになってるはずです
■ このスレッドは過去ログ倉庫に格納されています