From a4957f2f4b6717d66d0e60cd3d3f811f55df61fe Mon Sep 17 00:00:00 2001 From: pingu Date: Tue, 14 Oct 2025 11:42:23 +0200 Subject: [PATCH] aahhhh --- sudoku.lispbm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/sudoku.lispbm b/sudoku.lispbm index f2a337a..33eb997 100644 --- a/sudoku.lispbm +++ b/sudoku.lispbm @@ -4,10 +4,12 @@ (lambda (x) (foldr (lambda (y z) - (match (filter (lambda (q) (= q y)) nums) - (((? r) . nil) (match (filter (lambda (q) (= r q)) x) - (((? _)) z) - (_ nil))) - (_ nil))) + (match y + (nil z) + (_ (match (filter (lambda (q) (= q y)) nums) + (((? r) . nil) (match (filter (lambda (q) (eq r q)) x) + (((? _)) z) + (_ nil))) + (_ nil))))) t x)))