Comparing two numbers: `gtp'

This abstraction tests whether the first of two numbers is greater than the second.

(define gtp 
   (lambda (m n)
      (not (zerop (sub m n)))))

(bdisp! (gtp two three))
                             --> false
(bdisp! (gtp three two))
                             --> true

Georg P. Loczewski 2004-03-05

Impressum und Datenschutz