home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Leave DOT output on disk
[tiger.ml.git]
/
exercises
/
ch01
/
tree.ml
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
~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 ^ "}"
)
in
"digraph G {" ^ edges ^ "}"
This page took
0.024475 seconds
and
4
git commands to generate.