diff options
| author | Determinant <ted.sybil@gmail.com> | 2017-05-31 00:32:37 -0400 |
|---|---|---|
| committer | Determinant <ted.sybil@gmail.com> | 2017-05-31 00:32:37 -0400 |
| commit | 34d130005be780756b9c6915a7c188a756e03882 (patch) | |
| tree | 4a5b1ca11e87086adc081e428561b3230abb38cb /70b-73/73.hs | |
| parent | e0fff7c4014512bf88b23136dbbb426d9d9b7511 (diff) | |
finish vol 8
Diffstat (limited to '70b-73/73.hs')
| -rw-r--r-- | 70b-73/73.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/70b-73/73.hs b/70b-73/73.hs new file mode 100644 index 0000000..0db324e --- /dev/null +++ b/70b-73/73.hs @@ -0,0 +1,7 @@ +import Data.List (intersperse) +data Tree a = Node a [Tree a] deriving (Eq, Show) + +display :: Tree Char -> [Char] + +display (Node v []) = [v] +display (Node v xs) = '(':v:' ':(concat $ intersperse " " $ map display xs) ++ ")" |