;;;; (module bigO (;export bigO bigO= bigO< bigO> bigO-compare) (import scheme) ;;; ;from mathh.scm (define (log-with-base b) (let ((lnb (log b))) (lambda (n) (/ (log n) lnb) ) ) ) (define log10 (log-with-base 10)) ;;; ;; (define (bigO a) (floor (log10 a))) (define (bigO< a b) (< (bigO a) (bigO b))) (define (bigO= a b) (= (bigO a) (bigO b))) (define (bigO> a b) (bigO< b a)) (define (bigO-compare a b) (cond ((bigO< a b) -1) ((bigO= a b) 0) (else 1))) ) ;module bigO