From ddcbaa6c3534cb70b431ba6e75466b6efc3304d2 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Mon, 3 Jul 2023 01:26:29 -0700 Subject: [PATCH] Cleaner and more efficient print --- gib-gab-gob/game.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/gib-gab-gob/game.scm b/gib-gab-gob/game.scm index 9b44fd7..49aa2b4 100644 --- a/gib-gab-gob/game.scm +++ b/gib-gab-gob/game.scm @@ -51,13 +51,10 @@ (array-set! board val y x))) (define (board-display board) - (define (print m) (or m " ")) - ;; this is .. probably messy? (array-slice-for-each-in-order 1 - (λ (x) - (map (λ (i) (format #t "[~a]" (print i))) - (array->list x)) + (λ (row) + (array-for-each (λ (x) (format #t "[~a]" (or x " "))) row) (format #t "\n")) board))