Harmonize spelling

[factor.git] / extra / rosetta-code / multiplication-tables / multiplication-tables.factor

diff --git a/extra/rosetta-code/multiplication-tables/multiplication-tables.factor b/extra/rosetta-code/multiplication-tables/multiplication-tables.factor
index 6b8b56325902f0697ea04b119bdcb311c7494604..7116597377e3b24eddf911fd2fdc4687b5c91f3f 100644 (file)
--- a/extra/rosetta-code/multiplication-tables/multiplication-tables.factor
+++ b/extra/rosetta-code/multiplication-tables/multiplication-tables.factor
@@ -1,12 +1,12 @@
 ! Copyright (c) 2012 Anonymous
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io kernel math math.parser math.ranges sequences ;
+USING: io kernel math math.parser ranges sequences ;
 IN: rosetta-code.multiplication-tables
 
 ! http://rosettacode.org/wiki/Multiplication_tables
 
 ! Produce a formatted 12×12 multiplication table of the kind
-! memorised by rote when in primary school.
+! memorized by rote when in primary school.
 
 ! Only print the top half triangle of products.
 
@@ -14,13 +14,13 @@ IN: rosetta-code.multiplication-tables
     [ number>string 2 CHAR: space pad-head write " |" write ]
     [ 1 - [ "    " write ] times ]
     [
-        dup 12 [a,b]
+        dup 12 [a..b]
         [ * number>string 4 CHAR: space pad-head write ] with each
     ] tri nl ;
 
 : print-table ( -- )
     "    " write
-    1 12 [a,b] [ number>string 4 CHAR: space pad-head write ] each nl
+    1 12 [a..b] [ number>string 4 CHAR: space pad-head write ] each nl
     "   +" write
     12 [ "----" write ] times nl
-    1 12 [a,b] [ print-row ] each ;
+    1 12 [a..b] [ print-row ] each ;