2011-11-01から1ヶ月間の記事一覧

Project Euler - 0008

ゴリ押ししました。掛け算何回もやっているので無駄が多いと思います。 #include <iostream> #include <algorithm> int ctoi(char c){ return (int)c - '0'; } int main(){ std::string n = "7316717653133062491922511967442657474235534919493496983520312774506326239578318016</algorithm></iostream>…

LispでAOJ0000を解く

まだあまりやっていないのでよく分からなかった。 (dotimes (y 9) (dotimes (x 9) (format t "~Ax~A=~A~%" (1+ y) (1+ x) (* (1+ x) (1+ y))) ) ) 次の0001で積みました。いつか解きたい

Project Euler - Program 5

ユークリッドの互除法を使って解いてみた。 完全にダメなコード例です。 #include <iostream> long long int eucalgo(int a,int b){ long long int res = a % b; if(!res)return b; else{eucalgo(b,res);} } int main(){ long long res = 1; for(int i=2;i<=20;i++){ r</iostream>…