2012-03-14から1日間の記事一覧
ローカルリポジトリを掃除していたらFisher-Yates法 の実装が見つかりました。 コミットのついでに紹介します。このアルゴリズムを使うと配列が O(n)時間 でシャッフル出来ます。 local fun swap xs i j = (* swap xs[i] xs[j] *) let val tmp = A.sub (xs, …
ローカルリポジトリを掃除していたらFisher-Yates法 の実装が見つかりました。 コミットのついでに紹介します。このアルゴリズムを使うと配列が O(n)時間 でシャッフル出来ます。 local fun swap xs i j = (* swap xs[i] xs[j] *) let val tmp = A.sub (xs, …