calc v d = calc' 1 where calc' x | v < (d * 10 + x) * x = x - 1 | otherwise = calc' (x + 1) root v d | v == 0 = [] | otherwise = x : root ((v - p) * 100) (d * 10 + x * 2) where x = calc v d p = (d * 10 + x) * x root n 0 でsqrt(n)の無限リス…

http://www.acm.inf.ethz.ch/ProblemSetArchive.html アーカイブを発見。sample inputとoutputをゲットしてデバッグ完了！1000000000*3は負になっちゃいますよね／(^o^)＼ それだけでした／(^o^)＼

例のめんどくさい問題をそろそろ解こうかと思って実装してみた。だけど、ランダムでデータを生成したりしながら、正解のプログラムと答えを比較して全部一致したのにWA…。一番厄介なパターン。だるくなったので終了。また今度1から組み直してみる。なんか条…