A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Multiplication-tables/Forth/multiplication-tables.fth
+++ b/Task/Multiplication-tables/Forth/multiplication-tables.fth
@ -0,0 +1,9 @@
+: multiplication-table
+  cr 2 spaces  13 2 do i 4 u.r loop
+  cr
+  13 2 do
+    cr i 2 u.r
+    13 2 do
+      i j < if 4 spaces else i j * 4 u.r then
+    loop
+  loop ;