cd70055bc7
Renamed files: constanten→constants, adt-positie→adt-position, adt-doolhof→adt-maze, adt-sleutel→adt-key, adt-tijdslimiet→adt-timer, adt-teken→adt-draw, adt-spel→adt-game. All message names, variables, comments, and tests converted to English. Also fixed counter location bug (time-label x/y were swapped). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
77 lines
3.3 KiB
Racket
77 lines
3.3 KiB
Racket
#lang r7rs
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Slang ADT ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define-library ()
|
|
(import (scheme base)
|
|
(snake-wpo adt-slang-stuk))
|
|
(export maak-slang)
|
|
|
|
(begin
|
|
|
|
(define (maak-slang start-positie)
|
|
(let ((stukken (list (maak-slang-stuk start-positie)))
|
|
(richting 'omhoog))
|
|
|
|
;; Deze procedure voegt een stuk toe aan de slang. Namelijk aan de
|
|
;; voorkant van de slang. Dit doen we om twee redenen. Enerzijds omdat
|
|
;; `cons` de snelste manier is om dit te doen, maar anderzijds ook omdat
|
|
;; dit het updaten van de slang gemakkelijker maakt. Alle andere stukken
|
|
;; mogen blijven staan. Dit zal duidelijk worden bij het updaten van de
|
|
;; positie.
|
|
|
|
;; maak-langer! :: / -> /
|
|
(define (maak-langer!)
|
|
(let* ((hoofd (car stukken))
|
|
(nieuwe-positie (((hoofd 'positie) 'beweeg) richting))
|
|
(nieuw-stuk (maak-slang-stuk nieuwe-positie)))
|
|
(set! stukken (cons nieuw-stuk stukken))))
|
|
|
|
;; Deze procedure laat de slang bewegen. Dit doet hij door de positie van
|
|
;; het hoofd-object te nemen, en aan de hand van de huidige richting een
|
|
;; nieuwe positie te berekenen. Daarna wordt de positie van elk deeltje één
|
|
;; plaats opgeschoven zodanig dat het eerste deeltje op de nieuwe positie
|
|
;; staat, en het tweede deeltje op de oude positie van het eerste deeltje
|
|
;; en zo verder...
|
|
|
|
;; beweeg! :: / -> /
|
|
(define (beweeg!)
|
|
(define (iter lst new-pos)
|
|
(let* ((first (car lst))
|
|
(rest (cdr lst))
|
|
(old-pos (first 'positie)))
|
|
((first 'positie!) new-pos)
|
|
(if (not (null? rest))
|
|
(iter rest old-pos))))
|
|
(let* ((hoofd (car stukken))
|
|
(volgende-positie (((hoofd 'positie) 'beweeg) richting)))
|
|
(iter stukken volgende-positie)))
|
|
|
|
;; set-richting! :: symbol -> /
|
|
(define (set-richting! r)
|
|
(set! richting r))
|
|
|
|
;; voor-alle-stukken :: (slang-stuk -> any) -> list
|
|
(define (voor-alle-stukken f)
|
|
(map f stukken))
|
|
|
|
|
|
;; Merk op dat het signatuur van de `voor-alle-stukken` procedure een
|
|
;; genest signatuur bevat: dat is namelijk het signatuur van de procedure
|
|
;; die aan de `voor-alle-stukken` procedure zelf meegegeven wordt.
|
|
;; Het signatuur zegt dus dat de `voor-alle-stukken` procedure zelf een
|
|
;; procedure binnenneemt en een lijst teruggeeft, en dat die procedure een
|
|
;; procedure moet zijn die van een slang-stuk objectje naar eender welke
|
|
;; andere waarde gaat.
|
|
|
|
|
|
(define (dispatch-slang msg)
|
|
(cond ((eq? msg 'verleng!) (maak-langer!))
|
|
((eq? msg 'richting!) set-richting!)
|
|
((eq? msg 'beweeg!) (beweeg!))
|
|
((eq? msg 'voor-alle-stukken) voor-alle-stukken)
|
|
(else (error "Slang ADT -- Onbekend bericht:" msg))))
|
|
|
|
dispatch-slang)))) |