Merge pull request #4 from cgay/shared-library

Make shared library and use it for day-9

Author: Slids

day-9/day-9.dylan

@@ -3,14 +3,6 @@ Synopsis:
 Author:
 Copyright:
 
-define function get-int-vector-from-string(str :: <string>) => (ns :: <sequence>)
-  let vec = make(<stretchy-vector>);
-  for (i in str)
-    add!(vec, string-to-integer(format-to-string("%c", i)));
-  end;
-  vec;
-end;
-
 define function get-cave-map () => (map :: <sequence>)
   let cave-map = make(<stretchy-vector>);
   with-open-file(file-stream = "list.txt")

day-9/library.dylan

@@ -6,6 +6,7 @@ define library day-9
   use generic-arithmetic;
   use system;
   use strings;
+  use shared;
 end library day-9;
 
 define module day-9
@@ -16,4 +17,5 @@ define module day-9
   use format-out;
   use format;
   use streams;
+  use shared;
 end module day-9;

registry/generic/shared

@@ -0,0 +1 @@
+abstract://dylan/shared/shared.lid

shared/library.dylan

@@ -0,0 +1,16 @@
+Module: dylan-user
+
+define library shared
+  use common-dylan;
+  use io;
+
+  export shared;
+end library shared;
+
+define module shared
+  use common-dylan;
+  use format-out;
+
+  export
+    get-int-vector-from-string;
+end module shared;

shared/shared.dylan

@@ -0,0 +1,12 @@
+Module: shared
+Synopsis: Code shared between daily AOC libraries
+
+// Convert a string containing only digit chars into a vector of integers, one for each
+// digit.
+define function get-int-vector-from-string (str :: <string>) => (ns :: <sequence>)
+  map-as(<vector>,
+         method (char)
+           as(<integer>, char) - as(<integer>, '0')
+         end,
+         str)
+end function;

shared/shared.lid

@@ -0,0 +1,3 @@
+Library: shared
+Files: library
+       shared