From a5ecc544ee69bf39cfc09ab1e148bfdeb65ace12 Mon Sep 17 00:00:00 2001 From: Dustin Swan Date: Sat, 4 Dec 2021 16:44:19 -0500 Subject: [PATCH] simplifying some code --- day4.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/day4.rkt b/day4.rkt index 6d9f446..2f577cb 100644 --- a/day4.rkt +++ b/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)])