Data update

Task/Lah-numbers/EasyLang/lah-numbers.easy

@@ -0,0 +1,16 @@
+func fac n .
+   r = 1
+   for i = 2 to n
+      r *= i
+   .
+   return r
+.
+print 0
+print "0 1"
+for n = 2 to 12
+   write 0 & " " & fac n & " "
+   for k = 2 to n - 1
+      write fac n * fac (n - 1) / (fac k * fac (k - 1)) / fac (n - k) & " "
+   .
+   print 1 & " "
+.

Task/Lah-numbers/Maxima/lah-numbers-1.maxima

@@ -0,0 +1,5 @@
+/* Function that returns a row of Lah triangle */
+lah(n):=append([0],makelist((binomial(n,k)*(n-1)!)/(k-1)!,k,1,n))$
+
+/* Test cases */
+block(makelist(lah(i),i,0,12),table_form(%%));

Task/Lah-numbers/Maxima/lah-numbers-2.maxima

@@ -0,0 +1 @@
+lmax(lah(100));