William James
8/21/2015 11:02:00 AM
Paul Foley wrote:
> Forget epsilon; just look to see whether tmp changed at all. When you
> run out of bits, it won't change:
>
> (defun heron-sqrt (x)
> (let ((val 1l0))
> (loop
> (let ((next (* 0.5l0 (+ val (/ x val)))))
> (if (= next val)
> (return val)
> (setq val next))))))
Gauche Scheme:
(define (heron-sqrt x)
(let go ((val 1.0))
(let1 next (* 0.5 (+ val (/ x val)))
(if (= next val)
val
(go next)))))
(map heron-sqrt '(2 3 999888 10e10))
===>
(1.414213562373095 1.7320508075688772 999.9439984319122 316227.7660168379)
--
The Authoritarian Personality extends beyond the attempt to pathologize
cohesive gentile groups to pathologizing adaptive gentile behavior in general.
The principal intellectual difficulty is that behavior that is critical to
Judaism as a successful group evolutionary strategy is conceptualized as
pathological in gentiles. --- Dr. Kevin MacDonald; "The Frankfurt School of
Social Research and the Pathologization of Gentile Group Allegiances"