Seite Scheme

Aus ProgrammingWiki

Archivierte Version vom 2011-09-26T19:20:20+00:00. Aktuelle Version

(define (ringarea r1 r2)
  (define pi 3.14)
  (define (sq x) (* x x))
  (* pi (- (sq r1) (sq r2)))