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

Cleaner printing func

Browse source
This commit is contained in:
Vivianne 2023-07-02 22:59:01 -07:00
parent 3040c402b8
commit a3e2c45861
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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