エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Re: ブロックソートを Haskell で書いてみた - まめめも
ref: http://d.hatena.ne.jp/mono-hate/20081119/1227100016 おお、面白い。ブロックソートは全然知らな... ref: http://d.hatena.ne.jp/mono-hate/20081119/1227100016 おお、面白い。ブロックソートは全然知らなかったので、ぼくも書いてみた。 import Data.List (sort, tails, transpose, elemIndex) import Data.Maybe (fromJust) encode s = (succ $ fromJust $ elemIndex s t, last $ transpose t) where t = sort $ map f $ f $ tails $ cycle s f = take (length s) decode (n, s) = iterate f (repeat []) !! length s !! pred n where f = sort . zipWith (:) s あんまり
2008/11/20 リンク