From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 2 Feb 2016 19:24:50 +0100 Subject: Moved to 1415 directory --- 1415/files/practicum/GenTreePrint.icl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 1415/files/practicum/GenTreePrint.icl (limited to '1415/files/practicum/GenTreePrint.icl') diff --git a/1415/files/practicum/GenTreePrint.icl b/1415/files/practicum/GenTreePrint.icl new file mode 100644 index 0000000..09bebe7 --- /dev/null +++ b/1415/files/practicum/GenTreePrint.icl @@ -0,0 +1,21 @@ +implementation module GenTreePrint + +import StdEnv +import GenTree +import TextCompose + +instance toString (GenTree a b) | toString a & toString b where + toString tree = indentTree tree +// toString tree = tree2D tree + +/****************************************************************************************** + version with indented trees +******************************************************************************************/ +indentTree :: !(GenTree a b) -> String | toString a & toString b +indentTree tree = ... + +/****************************************************************************************** + version with TextCompose +******************************************************************************************/ +tree2D :: !(GenTree a b) -> String | toString a & toString b +tree2D tree = ... -- cgit v1.2.3