Programmation déclarative - Q2 - 08/2011

(define (egal x y)
  (< (abs (- x y)) 0.0001)
  )

(define (paire-point f x)
  (egal (f x) (f (- x)))
  )

(define (impaire-point f x)
  (egal (f x) (- (f (- x))))
  )

(define (test f tester n)
  (if (= n 0)
      #t
      (if (tester f (* n 0.5))
          (test f tester (- n 1))
          #f
          )
      )
  )

(define (test-paire f n)
  (test f paire-point n)
  )

(define (test-impaire f n)
  (test f impaire-point n)
  )