14.25 - instance Show NTree where--show :: NTree...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
--14.25 import List data NTree = NilT | Node Int NTree NTree collapse :: NTree -> [Int] collapse NilT = [] collapse (Node x left right) = collapse left ++ [x] ++ collapse right sort :: NTree -> [Int] sort = (List.sort).collapse
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: instance Show NTree where--show :: NTree -> String show NilT = "" show (Node value left right) = "(" ++ show value ++ "(" ++ show left ++ show right ++ ")" ++ ")"...
View Full Document

This note was uploaded on 11/10/2010 for the course CS 332F taught by Professor Russel during the Spring '10 term at California State University Los Angeles .

Ask a homework question - tutors are online