Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Is Preorder BST
--ghc 7.10 runTree :: [Int] -> Int -> Int -> [Int] runTree [] _ _ = [] runTree tree@(x : xs) low high | low <= x && x < high = right | otherwise = tree where left = runTree xs low x right = runTree left x high isBST tree = null $ runTree tree (-1000) 1000 main = print $ isBST [100,50,40,30,60,200,150,300]
run
|
edit
|
history
|
help
0
equiv_strings
tried some polynoms 2: now with some `*` and foldr(-p)
znajdywacz trojkatow prostokatnych
project euler 9, haskell
Token
Znajdz trójkąty prostokątne
(⁄⁄>⁄▽⁄<⁄⁄)
ex3
boolean functions of zero arguments in haskell
Kleinste