http://projecteuler.net/index.php?section=problems&id=2フィボナッチ数列

数学のパズルを解くプロジェクト「Project Euler」。今のところ195問ある。 モチベーションの続くかぎり、Haskellで問いていく。http://projecteuler.net/index.php?section=problems&id=1

> zipWith (\a b -> if b == "" then show a else b) [1..100] $ zipWith (++) (c ycle ["", "", "Fizz"]) (cycle ["", "", "", "", "Buzz"]) ["1","2","Fizz","4","Buzz","Fizz","7","8","Fizz","Buzz","11","Fizz", "13","14","FizzBuzz","16","17","Fizz"…

import List divid :: [a] -> [([a], [a])] divid xs = zip (inits xs) (tails xs) perm :: [a] -> [[a]] perm [] = [] perm [x] = [[x]] perm xs = concat $ map (\(h, t:ts) -> map (\ys -> t : ys) $ perm ( h ++ ts)) $ init $ divid xs isSorted :: Ord…

http://www.itmedia.co.jp/bizid/articles/0611/22/news045.html 財布から硬貨を出すより片付ける方がコストかからないから、22円持ってるより77円持ってたほうが対応しやすいのね。 ならコスト計算おかしいやん。99円がベスト？そういえば小銭77円も持って…

http://ll.jus.or.jp/2006/blog/doukaku2無限リストは，それより若い位置の要素を使って求めるもんだと思ってたけど そうでもないのか．それ以前に求まっている要素ならどこでもいいのかな． zipWith' fromMaybe ... http://www.kmonos.net/wlog/63.html#_17…

ふつうのHaskellプログラミング ふつうのプログラマのための関数型言語入門 読了． 問題の答えは最後にあるのね．前ほどモナドが気にならなくなったので読んだ価値はあった． あとは，wiki のソースを読んでみなきゃな．問題やってみた↓ 02-1.countbyte.hs m…