8 Mar
2006
8 Mar
'06
13:09
I'm just going through the O(N^2) parts of my image smoothing codes and listing the things that come up.
Brad
1. (sqrt x)
=>
(if (and (##flonum? x) (##flonum.<= 0. x)) ;; OK for infinities and NaNs (##flonum.sqrt x) (sqrt x))
2. (max x y)
=>
(cond ((and (##fixnum? x) (##fixnum? y)) (##fixnum.max x y)) ((and (##flonum? x) (##flonum? y)) (##flonum.max x y)) (else (max x y)))
3. Same for min.