そーか、複数回やって平均とればいいんだよな。
つーことで clisp にこれを評価してもらった。
(time (dotimes (a 10000)
        (do ((x 0 (1+ x))
             (y (1- (expt 3 960)) (/ y 2)))
            ((not (integerp y)))
          (print x))))

Real time: 1.953125 sec.
Run time: 1.953125 sec.
Space: 59506100 Bytes
GC: 113, GC time: 0.53125 sec.

ふむ。一回だとゴミはあまり出ないとして 0.14ms?
ちなみに print しなかったら 1.11 sec ぐらいだった。
あと出力はファイルにリダイレクトしないとえらいことになるかも。

>>270
そうなの？