From a39aea354b071612c071d98125e879fe14c76a54 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Mon, 13 Apr 2015 15:21:21 +0800 Subject: +61 +62 +63 --- H62.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 H62.hs (limited to 'H62.hs') diff --git a/H62.hs b/H62.hs new file mode 100644 index 0000000..b835b20 --- /dev/null +++ b/H62.hs @@ -0,0 +1,14 @@ +import Tree +-- import Tree4 + +leaves Empty = [] +leaves (Branch x Empty Empty) = [x] +leaves (Branch x t1 t2) = leaves t1 ++ leaves t2 + +internals Empty = [] +internals (Branch x Empty Empty) = [] +internals (Branch x t1 t2) = [x] : internals t1 ++ internals t2 + +atLevel Empty _ = [] +atLevel (Branch x _ _) 1 = [x] +atLevel (Branch _ t1 t2) n = atLevel t1 (n-1) ++ atLevel t2 (n-1) -- cgit v1.2.3-70-g09d2