エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Haskellでbogosortを実装してみました。 - 趣味的にっき
全く実用に値しないアホアルゴリズムbogosortを実装してみました。サルがタイプライタを打って小説を書... 全く実用に値しないアホアルゴリズムbogosortを実装してみました。サルがタイプライタを打って小説を書くのと同じようなアルゴリズムでソートします。 module Main (main) where import System.Random (RandomGen, randomR, getStdGen) bogosort :: RandomGen g => g -> [Int] -> [Int] bogosort g xs = let (g', xs') = sort g xs [] -- とりあえずランダムにソートしてみる。 in if (check xs') then xs' -- ソートできてたらそのリストを返す。 else bogosort g' xs -- ソートできてなかったら再帰して再度試みる。 where check [] = True check [_] = True c
2007/07/05 リンク