26 lines
746 B
OCaml
26 lines
746 B
OCaml
|
type tree =
|
||
|
|
| Leaf of int
|
||
|
|
| Node of tree * tree
|
||
|
|
|
||
|
|
let int_value = 13
|
||
|
|
let float_value = 42.0
|
||
|
|
let list_value = [ 1; 2; 3 ]
|
||
|
|
let array_value = [| "a"; "b"; "c" |]
|
||
|
|
let float_array = [| 1.0; 2.0; 3.0 |]
|
||
|
|
let shared = Leaf 7
|
||
|
|
let tree = Node (shared, shared)
|
||
|
|
let rec cycle = 1 :: 2 :: 3 :: cycle
|
||
|
|
|
||
|
|
let () =
|
||
|
|
Graphis.context (fun ctx ->
|
||
|
|
Graphis.print_dot Format.std_formatter
|
||
|
|
[
|
||
|
|
"cycle", Graphis.capture ctx cycle;
|
||
|
|
"tree", Graphis.capture ctx tree;
|
||
|
|
"float_array", Graphis.capture ctx float_array;
|
||
|
|
"array", Graphis.capture ctx array_value;
|
||
|
|
"list", Graphis.capture ctx list_value;
|
||
|
|
"float", Graphis.capture ctx float_value;
|
||
|
|
"int", Graphis.capture ctx int_value;
|
||
|
|
])
|