〓Mathematica〓
at MATH
440:１３２人目の素数さん
03/05/15 01:19
>>437
こんなのとか。
Shuffle[x_List] :=
Prepend[Shuffle[Rest[#]], First[#]] &@
RotateLeft[x, Random[Integer, Length[x] - 1]]
Shuffle[{}] = {}
Shuffle[Range[52]]
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5174日前に更新/264 KB
担当:undef