Long multiplication: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,778: / Line 4,778: @@
   [ reverse behead
     swap witheach
-      [ swap 10 * + ] ]                  is long->num  (     L --> n    )
+      [ swap 10 * + ] ]                  is long->num  (     L --> n   )
   [ reverse
@@ Line 4,883: / Line 4,883: @@
         rot longadd swap
         timesten ]
-        separator
+    drop
+    separator
-        swap showlong
-        separator
+    showlong
+    separator
-    drop linelength release ]            is workings   (   L L -->     )
+    linelength release ]                 is workings   (   L L -->     )
+( --------------------------- demonstration -------------------------- )
 say "Using long multiplication: "