From ebf47cb9bf28c22405c38ce4fed331c0049d637a Mon Sep 17 00:00:00 2001 From: pingu Date: Tue, 14 Oct 2025 12:46:26 +0200 Subject: [PATCH] Format --- sudoku.lispbm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/sudoku.lispbm b/sudoku.lispbm index f10b07c..a1d2184 100644 --- a/sudoku.lispbm +++ b/sudoku.lispbm @@ -4,11 +4,12 @@ (foldr (lambda (z q) (if (eq x z) (+ q 1) q)) 0 y)) (defun valid (x) - (if (= 9 (length x)) - (foldr (lambda (y z) (if (<= y 1) z nil)) - t - (map (lambda (y) (amount y x)) nums)) - nil)) + (if (= 9 (length x)) + (foldr + (lambda (y z) (if (<= y 1) z nil)) + t + (map (lambda (y) (amount y x)) nums)) + nil)) (defun getRow (grid x) (ix grid x))