Browse Source

simplifying some code

master
Dustin Swan 12 months ago
parent
commit
a5ecc544ee
Signed by: dustinswan GPG Key ID: AB49BD6B2B3A6377
  1. 2
      day4.rkt

2
day4.rkt

@ -47,7 +47,7 @@
(map (λ (board) (mark-board board number)) boards))
(define (all-winners? lst) ; check if all pairs in the list are #t
(all? (λ (x) (match x ([cons _ on] on))) lst))
(all? cdr lst))
(define (is-winner? board) ; check if any row or column in the board is a winner
(let ([cols (transpose board)])

Loading…
Cancel
Save