Leave DOT output on disk

for examination

diff --git a/exercises/ch01/.gitignore b/exercises/ch01/.gitignore
index 626a10c..c79448c 100644 (file)
--- a/exercises/ch01/.gitignore
+++ b/exercises/ch01/.gitignore
@@ -1,2 +1,3 @@
 straight_line_program_interpreter
 tree
+tree.dot

diff --git a/exercises/ch01/Makefile b/exercises/ch01/Makefile
index d376e05..2912309 100644 (file)
--- a/exercises/ch01/Makefile
+++ b/exercises/ch01/Makefile
@@ -21,10 +21,13 @@ build : $(EXECUTABLES)
        $(OCAMLC_BYTE) -c $<
 
 clean:
-       rm -f $(EXECUTABLES)
+       rm -f $(EXECUTABLES) tree.dot  # There's also tree.png, but I'm keeping it.
 
-tree.png: tree
-       ./tree a b c d e f g h i j k l m n o p q r s t u v foo bar kgkvbkvg lkhjlk gfjyfjf fdtrdchfhtr trhfgfch hjlilijhl iygkyugkgkhy | neato -T png > tree.png
+tree.dot: tree
+       ./tree a b c d e f g h i j k l m n o p q r s t u v foo bar kgkvbkvg lkhjlk gfjyfjf fdtrdchfhtr trhfgfch hjlilijhl iygkyugkgkhy > tree.dot
+
+tree.png: tree.dot
+       neato -T png tree.dot > tree.png
 
 demo_unbalanced: tree.png
        sxiv ./tree.png

diff --git a/exercises/ch01/tree.ml b/exercises/ch01/tree.ml
index f150cae..195a70c 100644 (file)
--- a/exercises/ch01/tree.ml
+++ b/exercises/ch01/tree.ml
@@ -60,7 +60,7 @@ module BinaryTree : TREE = struct
         ~init:("", "\n")
         ~f:(fun (edges, sep) (k1, k2) ->
           let k1, k2 = k_to_string k1, k_to_string k2 in
-          (Printf.sprintf "%s%s%S -> %S;\n" edges sep k1 k2, "")
+          (Printf.sprintf "%s%s    %S -> %S;\n" edges sep k1 k2, "")
       )
     in
     "digraph G {" ^ edges ^ "}"