Merge pull request tsoding#104 from tsoding/seq

Proper seq implementation

Author: rexim

examples/.gitignore

@@ -1,7 +1,7 @@
 hello-world
 rule110
-seq100
 name
 reverse-linked-list
 cat
-rot13
+rot13
+seq

examples/seq.porth

@@ -0,0 +1,31 @@
+include "std.porth"
+
+macro limit mem end
+
+argc 2 < if
+  "Usage: seq <limit>\n" stderr write drop
+  "ERROR: no limit is provided\n" stderr write drop
+  1 exit
+end
+
+1 nth_argv
+while dup , 0 != do
+  dup , '0' < over , '9' > bor if
+    "ERROR: `" stderr write drop
+    1 nth_argv strlen 1 nth_argv stderr write drop
+    "` is not a correct integer\n" stderr write drop
+    1 exit
+  end
+
+  limit ,64 10 *
+  over , '0' -
+  +
+  limit swap .64
+
+  1 +
+end drop
+
+0 while dup limit ,64 < do
+  dup print
+  1 +
+end drop

examples/seq100.txt examples/seq.txtexamples/seq100.txt renamed to examples/seq.txt

@@ -1,8 +1,10 @@
-:i argc 0
+:i argc 1
+:b arg0 2
+69
 :b stdin 0
 
 :i returncode 0
-:b stdout 290
+:b stdout 197
 0
 1
 2
@@ -72,37 +74,6 @@
 66
 67
 68
-69
-70
-71
-72
-73
-74
-75
-76
-77
-78
-79
-80
-81
-82
-83
-84
-85
-86
-87
-88
-89
-90
-91
-92
-93
-94
-95
-96
-97
-98
-99
 
 :b stderr 0