BinRoot/Haskell-Data-Analysis-Cookbook
1
1
Fork 0
mirror of https://github.com/BinRoot/Haskell-Data-Analysis-Cookbook.git synced 2024-10-03 17:29:49 +03:00
Code Issues Projects Releases Wiki Activity

Modified code to accommodate 'Null' trees

Browse Source
This commit is contained in:
Tong-Kiat Tan 2014-08-10 09:20:00 +08:00
parent f810b17aff
commit 3500c3cfb2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Ch05/Code08_valid/Main.hs
View File

@ -21,3 +21,4 @@ valid (Node v l r) = leftValid && rightValid
where leftValid = if notNull l then valid l && value l <= v else True
rightValid = if notNull r then valid r && v <= value r else True
notNull t = t/=Null
valid Null = True