vv/gib-gab-gob
1
0
Fork 0
Code Issues Pull requests Activity

Cleaner and more efficient print

Browse source
This commit is contained in:
Vivianne 2023-07-03 01:26:29 -07:00
parent da663511f7
commit ddcbaa6c35
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gib-gab-gob/game.scm
View file

@ -51,13 +51,10 @@
(array-set! board val y x))) (array-set! board val y x)))
(define (board-display board) (define (board-display board)
(define (print m) (or m " "))
;; this is .. probably messy?
(array-slice-for-each-in-order (array-slice-for-each-in-order
1 1
(λ (x) (λ (row)
(map (λ (i) (format #t "[~a]" (print i))) (array-for-each (λ (x) (format #t "[~a]" (or x " "))) row)
(array->list x))
(format #t "\n")) (format #t "\n"))
board)) board))