Data commit

Task/Floyds-triangle/PicoLisp/floyds-triangle-1.l

@@ -0,0 +1,9 @@
+(de floyd (N)
+   (let LLC (/ (* N (dec N)) 2)
+      (for R N
+         (for C R
+            (prin
+               (align
+                  (length (+ LLC C))
+                  (+ C (/ (* R (dec R)) 2)) ) )
+            (if (= C R) (prinl) (space)) ) ) ) )

Task/Floyds-triangle/PicoLisp/floyds-triangle-2.l

@@ -0,0 +1,10 @@
+(de floyd (N)
+   (let
+      (Rows
+         (make
+            (for ((I . L) (range 1 (/ (* N (inc N)) 2))  L)
+               (link (cut I 'L)) ) )
+         Fmt (mapcar length (last Rows)) )
+      (map inc (cdr Fmt))
+      (for R Rows
+         (apply tab R Fmt) ) ) )