ピタゴラスの三つ組(ピタゴラスの定理を満たす整数)とはa Haskell main=print $ head [a*b*(1000-a-b)|a<-[1..(floor $ 1000/3)],b<-[a..1000],a^2+b^2==(1000-a-b)^2]C #include<stdio.h> int main(void){ int a,b,c; for(a=1;a<1000/3;a++){ for(b=a;b<=1000;b++){ </stdio.h>…

以下の1000桁の数字から5つの連続する数字を取り出してその積を計算する。そのような積の中で最大のものの値はいくらか73167176531330624919225119674426574742355349194934 96983520312774506326239578318016984801869478851843 85861560789112949495459501…

素数を小さい方から6つ並べると 2, 3, 5, 7, 11, 13 であり、6番目の素数は 13 である。10001 番目の素数を求めよ。 Problem3のid:smlyの素数列生成コードがあまりに美しかったのでまるまる借りてしまった・・・ http://codepad.org/OlhYJKCl Haskell main =…

最初の10個の自然数について、その和の二乗と、二乗数の和は以下の通り。 1² + 2² + ... + 10² = 385 (1 + 2 + ... + 10)² = 3025これらの数の差は 3025 - 385 = 2640 となる。同様にして、最初の100個の自然数について和の二乗と二乗の和の差を求めよ。 Has…

Project Euler http://odz.sakura.ne.jp/projecteuler/index.php?Project%20Euler 1-10 Problem Answer 1 C,Haskell 2 C,Haskell 3 Haskell 4 C,Haskell 5 Haskell 6 C,Haskell 7 Haskell 8 C,Haskell 9 C,Haskell 10 Haskell 11-20 13 Haskell 16 Haskell 1…

13195 の素因数は 5、7、13、29 である。600851475143 の素因数のうち最大のものを求めよ。 最初に書いたのがこれ。「素数列を出してから計算」したら9桁くらいから計算時間が急激に伸び、結局12時間かかっても終わらなかった。しかも最大素因数求めてないこ…