http://projecteuler.net/index.php?section=problems&id=98 ペアを作って、桁数が合う平方数すべてについてマッチするか調べる。

ジェネレータの次があるかをexists_next()で問い合わせるようにした。ちょっとコードが煩雑になった。filterとtakewhileはコードがかなり重複しているような気がする。なんとかならないだろうか。 itertools.hを変えただけで、非常に速くなった。Haskellより…

Haskellで import Data.List digits 0 = [] digits n = (digits (div n 10)) ++ [mod n 10] is_palindromic n = n == (foldr (\x y -> x + y * 10) 0 (digits n)) main = print (foldl1' max (filter is_palindromic [ x * y | x <- [100..999], y <- [100..…

VC10 β2にmake_tupleがあるんだ。調べようと調べようと思って忘れていた。 #include <iostream> #include <tuple> using namespace std; int main() { auto t = make_tuple(1, 2, 3); cout << get<0>(t) << " " << get<1>(t) << " " << get<2>(t) << endl; } >cl /EHsc tuple.</tuple></iostream>…