;; 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 ggt) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f write repeating-decimal #f #t none explicit #f ())))
; Größter gemeinsamer Teiler zweier Zahlen

(: ggt (natural natural -> natural))

(check-expect (ggt 17 0) 17)
(check-expect (ggt 0 31) 31)
(check-expect (ggt 206 40) 2)

(define ggt
  (lambda (a b)
    (if (= b 0)
        a
        (ggt b (remainder a b)))))