;; 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-vanilla-reader.ss” “deinprogramm”)((modname tupper) (read-case-sensitive #f) (teachpacks ((lib “image2.rkt” “teachpack” “deinprogramm”))) (deinprogramm-settings #(#f write repeating-decimal #f #t none explicit #f ((lib “image2.rkt” “teachpack” “deinprogramm”)))))
; Like (modulo p q), but works with non-integer numbers
(: mod (number number -> number))
(define mod
(lambda (p q)
(- p (* q (floor (/ p q))))))
; Build a list of increasing numbers from s to e
(: from-to (number number -> (list-of number)))
(define from-to
(lambda (s e)
(if (> s e)
empty
(make-pair s (from-to (+ s 1) e)))))
; Beispielwerte für sehr große natürliche Zahlen
(: k1 natural)
(define k1 960939379918958884971672962127852754715004339660129306651505519271702802395266424689642842174350718121267153782770623355993237280874144307891325963941337723487857735749823926629715517173716995165232890538221612403238855866184013235585136048828693337902491454229288667081096184496091705183454067827731551705405381627380967602565625016981482083418783163849115590225610003652351370343874461848378737238198224849863465033159410054974700593138339226497249461751545728366702369745461014655997933798537483143786841806593422227898388722980000748404719)
(: k2 natural)
(define k2 65944592387981541956676123332284473980981045371341965297525083632781549005389762370439021727984508583760329559277544393587345973719316673229330416050373338469643795220970664577500516413642217385682107391320338367720818421031427739453156814034910080305890516376387263754670581039423292399596637445884472574858098186443767931923118682087258949697366929524095735325261824)