Hatena::ブログ(Diary)

趣味的にっき このページをアンテナに追加 RSSフィード

2007-08-23

[] Nothing found for 404 - エロと風俗情報満載 どう抜く? 07:17  Nothing found for 404 - エロと風俗情報満載 どう抜く?を含むブックマーク  Nothing found for 404 - エロと風俗情報満載 どう抜く?のブックマークコメント

Haskellだったら、この問題は「引数リスト引数リストを一個ずらしたリストを作って、それらの要素をひとつずつ取り出して、引き算する」と考えてそれをそのまま実装できます。とても自然。「えーと…配列インデックスが…」とか考えません。

module Main (main) where

diff :: Num a => [a] -> [a]
diff xs = zipWith (-) (tail xs) xs

main :: IO ()
main = print $ diff [3, 1, 4, 1, 5, 9, 2, 6, 5]
-- => [-2,3,-3,4,4,-7,4,-1]

フルートカルテット三宮ピアジュリア07:30 フルートカルテット@三宮ピアジュリアンを含むブックマーク フルートカルテット@三宮ピアジュリアンのブックマークコメント

れんちゃんたちのコンサートに行ってきました。皆さん、浴衣お召しでした。これはラッキーな演奏も聞けて満足。4者4様の音色だなーと思いました。

[] 07:17 を含むブックマーク のブックマークコメント

18:00ごろ帰りました。

トラックバック - http://d.hatena.ne.jp/ha-tan/20070823