From 25d3900950fe8ec6675a008257222a7cb7813f09 Mon Sep 17 00:00:00 2001 From: pingu Date: Tue, 14 Oct 2025 12:28:54 +0200 Subject: [PATCH] Tehee --- sudoku.lispbm | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/sudoku.lispbm b/sudoku.lispbm index 614e981..c42eebc 100644 --- a/sudoku.lispbm +++ b/sudoku.lispbm @@ -8,5 +8,19 @@ (foldr (lambda (y z) (if (<= y 1) z nil)) t (map (lambda (y) (amount y x)) nums)) - nil - )) + nil)) + +(defun getRow (grid x) (ix grid x)) + +(defun transpose (grid) + (match grid + (nil nil) + (((? x)) + (map (lambda (y) (list y)) x)) + (((? x) . (? xs)) + (zipWith + cons + x + (transpose xs))))) + +(defun getCol (grid x) (getRow (transpose grid) x))