From 34d130005be780756b9c6915a7c188a756e03882 Mon Sep 17 00:00:00 2001 From: Determinant Date: Wed, 31 May 2017 00:32:37 -0400 Subject: finish vol 8 --- 70b-73/70c.hs | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 70b-73/70c.hs (limited to '70b-73/70c.hs') diff --git a/70b-73/70c.hs b/70b-73/70c.hs new file mode 100644 index 0000000..2a10432 --- /dev/null +++ b/70b-73/70c.hs @@ -0,0 +1,7 @@ +import Data.List (foldl') + +data Tree a = Node a [Tree a] deriving (Eq, Show) + +nnodes :: Tree a -> Int + +nnodes (Node _ xs) = 1 + (foldl' (+) 0 $ map nnodes xs) -- cgit v1.2.3