;; Die ersten drei Zeilen dieser Datei wurden von DrRacket eingefügt. Sie enthalten Metadaten
;; über die Sprachebene dieser Datei in einer Form, die DrRacket verarbeiten kann.
#reader(lib "DMdA-beginner-reader.ss" "deinprogramm")((modname userat) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f write repeating-decimal #f #t none explicit #f ())))
; Rechnen mit rationalen Zahlen

; Importiere Modul der rationalen Zahlen
(require "rat.rkt")

(define one-third (make-rat 1 3))
(define two-third (make-rat 2 3))

; Verdopple eine rationale Zahl
(: rat-double (rat -> rat))

(check-expect (rat-double one-third) two-third)

(define rat-double
  (lambda (r) (+rat r r)))