Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Matrix-transposition/LFE/matrix-transposition-1.lfe
+++ b/Task/Matrix-transposition/LFE/matrix-transposition-1.lfe
@ -0,0 +1,13 @@
+(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)))))))