smoking186 https://blog.hatena.ne.jp/smoking186/ 186 @ hatenablog https://186.hatenablog.com/ gauche そんなに大きい整数を相手にする気も無いのだが. 2^{20000}辺りを引数にすると差が出た. ;(define (nu_2 a) ; (cond [(zero? a) "infty"] ; [else (the number of consecutive zeros inthe LSBs of the binary representation of a)])) (define (nu-div a) (if (integer? a) (let loop [(c a) (i 0)] (cond [(zero? a) #f] [(odd? c) i] [else (loop (/ c 2) (+… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2F186.hatenablog.com%2Fentry%2F20080102%2F1199208363" title=" 測定 - 186 @ hatenablog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-01-02 02:26:03 rich https://186.hatenablog.com/entry/20080102/1199208363 1.0 100%