このシリーズって海外にもあるんだね。 ニコニコにいるヒトラーはダメ人間ばっかだけどw

http://projecteuler.net/index.php?section=problems&id=9合計が1000になるピタゴラス数の積 main = print $ (\(a,b,c) -> a * b * c) $ head $ filter isPythagoreanTriplet [(x,y,1000-x-y) | x <- [1..1000], y <- [1..x]] where isPythagoreanTriplet (…

英語をやっていて、本当によかった。―吉越流ビジネスマンのための英語塾 (WAC BUNKO)作者: 吉越浩一郎出版社/メーカー: ワック発売日: 2009/04/14メディア: 新書購入: 1人 クリック: 9回この商品を含むブログ (18件) を見る英語モチベーション上げるために読…

http://projecteuler.net/index.php?section=problems&id=8以下の数値の連続する5つの数値のうち、積が最大になるもの 73167176531330624919225119674426574742355349194934 96983520312774506326239578318016984801869478851843 85861560789112949495459501…

Python ポケットリファレンス (Pocket Reference)作者: 柏野雄太出版社/メーカー: 技術評論社発売日: 2009/03/28メディア: 単行本（ソフトカバー）購入: 2人 クリック: 97回この商品を含むブログ (29件) を見る読みました。 ほぼ全てのトピックにインタラク…

http://projecteuler.net/index.php?section=problems&id=7 10001番目の素数を求める。nextPrime,isPrimeはProblem3から --時間かかりすぎ main = print $ ((primeList 1) !! 10000) primeList :: Integer -> [Integer] primeList n = [nextPrime n] ++ (pri…

人月の神話―狼人間を撃つ銀の弾はない (Professional Computing Series)作者: フレデリック・P,Jr.ブルックス,Frederick Phillips,Jr. Brooks,滝沢徹,富沢昇,牧野祐子出版社/メーカー: アジソンウェスレイパブリッシャーズジャパン発売日: 1996/02/01メディ…

ふつうのHaskellプログラミング ふつうのプログラマのための関数型言語入門作者: 青木峰郎,山下伸夫出版社/メーカー: ソフトバンククリエイティブ発売日: 2006/06/01メディア: 単行本購入: 25人 クリック: 314回この商品を含むブログ (320件) を見る以下適当…

http://projecteuler.net/index.php?section=problems&id=61から100の和の2乗と2乗の和の差 main = print $ ((sum [1..100]) ^ 2) - (sum $ map (^ 2) [1..100])

--リストから重複削除 uniqList :: [Integer] -> [Integer] uniqList [] = [] uniqList (x:xs) = (if x `elem` xs then [] else [x]) ++ (uniqList xs) --多相型に uniqList :: Eq a => [a] -> [a] uniqList [] = [] uniqList (x:xs) = (if x `elem` xs then…

http://projecteuler.net/index.php?section=problems&id=5 1から20全てで割り切れる最小の数 --時間かかりすぎ main = print $ head $ filter (isCommonMultiples [1..20]) [21..] isCommonMultiples :: [Int] -> Int -> Bool isCommonMultiples [] _ = Tru…

ローマ人の物語 (3) ― ハンニバル戦記(上) (新潮文庫)作者: 塩野七生出版社/メーカー: 新潮社発売日: 2002/07/01メディア: 文庫購入: 8人 クリック: 34回この商品を含むブログ (152件) を見る第1次ポエニ戦役。地上戦から海戦へ。 しかし歩哨中に少しでも居…

Prelude> take 10 [2,2..] [2,2,2,2,2,2,2,2,2,2]

年収200万円からの貯金生活宣言作者: 横山光昭出版社/メーカー: ディスカヴァー・トゥエンティワン発売日: 2009/04/15メディア: 単行本（ソフトカバー）購入: 39人 クリック: 716回この商品を含むブログ (113件) を見るやっぱ収支を具体的に把握する(家計簿)…

http://projecteuler.net/index.php?section=problems&id=43桁の数の積である回文数のうち最大のもの main = print $ euler4 euler4 = maximum $ filter isPalindromic [x*y| x <- [100..999], y <- [100..999]] isPalindromic :: Int -> Bool isPalindromic…

辞書で調べて記憶してるのは For Crisake shurugged bureau sexpot しかしサンドイッチとドーナッツばっか食ってんなスペンサー。アメリカでは普通？ それからSusanはハーバード卒を自慢し過ぎだろwスペンサーから話振ってるのがほとんどだけど。Cold Servic…

リファクタリング・ウェットウェア ―達人プログラマーの思考法と学習法作者: Andy Hunt,武舎広幸,武舎るみ出版社/メーカー: オライリージャパン発売日: 2009/04/27メディア: 単行本（ソフトカバー）購入: 25人 クリック: 475回この商品を含むブログ (151件) …

プロダクティブ・プログラマ -プログラマのための生産性向上術 (THEORY/IN/PRACTICE)作者: Neal Ford,島田浩二(監訳),夏目大出版社/メーカー: オライリージャパン発売日: 2009/04/27メディア: 単行本（ソフトカバー）購入: 14人 クリック: 242回この商品を含…

http://projecteuler.net/index.php?section=problems&id=3 600851475143の素因数のうち最大のもの main = print $ last $ primeFactors 600851475143 2 primeFactors :: Integer -> Integer -> [Integer] primeFactors x y | x > y = if (x `mod` y == 0) t…

http://projecteuler.net/index.php?section=problems&id=2400万を超えない範囲のフィボナッチ数列で値が偶数である項の総和。 main = print $ foldl (+) 0 $ evenNumbers $ fib 1 2 evenNumbers :: [Int] -> [Int] evenNumbers xs = [x | x <- xs, x `mod` …

Haskellをちょっと勉強したので、練習がてらProject Eulerを始めてみる。まず1問目。 http://projecteuler.net/index.php?section=problems&id=1 1から999のうち、3または5の倍数の総和。FizzBuzzぽい。 main = print $ foldl (+) 0 [x | x <- [1..999], x `…

http://www.a-quest.com/aquestalk/saykana/ $ saykana ゆっくりしていってね $ saykana ゆっくりしていってね？ $ saykana -s 60 ゆっくりしていってね？ $ saykana -v m1 ゆっくりしていってね これで疲れたときはゆっくりに癒してもらえる。