■

127問. Repunit系は129だけ残ってしまった. 位数を求めるのは面倒臭いなぁ.

PROB119はこっちの方向が良いんだな. num->digitsは各桁にばらす関数

(use srfi-42)
(list-ref
 (sort
  (list-ec
   (: b 2 1000)
   (: e 1 50)
   (if (and (> (expt b e) 10)
            (= b (apply + (num->digits (expt b e))))))
   (list (expt b e) b e))
  (lambda (x y) (< (car x) (car y))))
 29)

Problem 122は加法鎖の問題か. 小さいところについては上手くやれば求められるはず.
Shortest Addition Chainsで, D. Bleichenbacher and A. Flammenkampに最短鎖と最短長を調べるアルゴリズムがある.