Just another update

Task/Matrix-transposition/Clojure/matrix-transposition.clj

@@ -0,0 +1,11 @@
+(defmulti matrix-transpose
+  "Switch rows with columns."
+  class)
+
+(defmethod matrix-transpose clojure.lang.PersistentList
+  [mtx]
+  (apply map list mtx))
+
+(defmethod matrix-transpose clojure.lang.PersistentVector
+  [mtx]
+  (vec (apply map vector mtx)))

Task/Matrix-transposition/HicEst/matrix-transposition.hicest

@@ -0,0 +1,7 @@
+REAL :: mtx(2, 4)
+
+mtx = 1.1 * $
+WRITE() mtx
+
+SOLVE(Matrix=mtx, Transpose=mtx)
+WRITE() mtx

Task/Matrix-transposition/Lua/matrix-transposition-2.lua

@@ -8,10 +8,10 @@ function mapn(f, ...)
   local c = {}
   local k = 1
   local aarg = {...}
-  local n = table.getn(aarg)
+  local n = #aarg
   while true do
     local a = map(function(b) return b[k] end, aarg)
-    if table.getn(a) < n then return c end
+    if #a < n then return c end
     c[k] = f(unpack(a))
     k = k + 1
   end