Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Matrix-transposition/LFE/matrix-transposition-1.lfe
+++ b/Task/Matrix-transposition/LFE/matrix-transposition-1.lfe
@ -1,13 +1,6 @@
-(defun transpose (matrix)
-  (transpose matrix '()))
-
-(defun transpose (matrix acc)
-  (cond
-    ((lists:any
-        (lambda (x) (== x '()))
-        matrix)
-     acc)
-    ('true
-      (let ((heads (lists:map #'car/1 matrix))
-            (tails (lists:map #'cdr/1 matrix)))
-        (transpose tails (++ acc `(,heads)))))))
+(defun transpose
+  ((`(() . ,_))
+   '())
+  ((matrix)
+   (cons (lists:map #'car/1 matrix)
+         (transpose (lists:map #'cdr/1 matrix)))))