2015/01: Add solution for stage 1

.gitattributes

@@ -0,0 +1 @@
+input linguist-vendored=true

2015/day-01/lib.fs

@@ -0,0 +1,40 @@
+: parse-instructions ( ulen addr  -- )
+    0 >r
+    0 u+do
+        c@+
+        dup 40 = if
+            r> r> r>
+            1 +
+            >r >r >r
+        then
+        41 = if
+            r> r> r>
+            1 -
+            >r >r >r
+        then
+    loop
+    drop
+    r>
+;
+
+256 Constant max-line
+Create line-buffer max-line 2 + allot
+0 Value fd-in
+
+: open-input ( addr u -- )
+    r/o open-file throw to fd-in
+;
+
+: close-input ( -- )
+    fd-in close-file throw
+;
+
+: parse-file ( -- u )
+    0
+    begin
+        line-buffer max-line fd-in read-line throw
+    while
+            line-buffer swap parse-instructions +
+    repeat
+    drop
+;

2015/day-01/main.fs

@@ -1,56 +0,0 @@
-#! /usr/bin/env gforth
-
-: parse-instructions ( ulen addr  -- )
-    0 >r
-    0 u+do
-        c@+
-        dup 40 = if
-            r> r> r>
-            1 +
-            >r >r >r
-        then
-        41 = if
-            r> r> r>
-            1 -
-            >r >r >r
-        then
-    loop
-    r> ;
-
-s" (())"
-parse-instructions
-." return: " . cr drop
-
-s" ()()"
-parse-instructions
-." return: " . cr drop
-
-s" ((("
-parse-instructions
-." return: " . cr drop
-
-s" (()(()("
-parse-instructions
-." return: " . cr drop
-
-s" ))((((("
-parse-instructions
-." return: " . cr drop
-
-s" ())"
-parse-instructions
-." return: " . cr drop
-
-s" ))("
-parse-instructions
-." return: " . cr drop
-
-s" )))"
-parse-instructions
-." return: " . cr drop
-
-s" )())())"
-parse-instructions
-." return: " . cr drop
-
-bye

2015/day-01/stage-1.fs

@@ -0,0 +1,9 @@
+#! /usr/bin/env gforth
+
+require lib.fs
+
+s" input" open-input
+parse-file . cr
+close-input
+
+bye

2015/day-01/test.fs

@@ -0,0 +1,18 @@
+#! /usr/bin/env gforth
+
+require lib.fs
+require ../../lib/tap.fs
+
+8 plan
+
+s" (())" parse-instructions 0 = ok
+s" ()()" parse-instructions 0 = ok
+s" (((" parse-instructions 3 = ok
+s" (()(()(" parse-instructions 3 = ok
+s" ))(((((" parse-instructions 3 = ok
+s" ())" parse-instructions -1 = ok
+s" ))(" parse-instructions -1 = ok
+s" )))" parse-instructions -3 = ok
+s" )())())" parse-instructions -3 = ok
+
+bye

lib/tap.fs

@@ -0,0 +1,12 @@
+Variable test#
+
+: plan ( n -- )
+    ." 1.." . cr
+;
+
+: ok ( f -- )
+    0= if ." not " then
+    ." ok "
+    test# dup @ 1+ dup . swap !
+    cr
+;