http://projecteuler.net/index.php?section=problems&id=161 解けない。今の方針は ブロックに分割（e.g. 4x3 -> {1x3,3x3},{2x3,2x3}..) 各ブロックで分割不能なタイリング数をもとめる(結果を覚え、再利用） 総数を考える 計算が終わらない… とりあえず分…

http://projecteuler.net/index.php?section=problems&id=162 組み合わせの問題だが簡単でしょ。 それよりもProblem 161 が解けない。 import Numeric import Data.Char f k = 15*16^(k-1) - (15^k+2*14*15^(k-1)-(2*14^k+13*14^(k-1))+13^k) main = putStrL…