Refactor(English): Rename all files and identifiers from Dutch to English

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>

snake-wpo/adt-slang.rkt

@@ -0,0 +1,77 @@
+#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))))