Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- isOrd :: [Int] -> Bool
- isOrd li | ((length li) == 1) = True
- | ((length li) == 2) = (head li) < (head (tail li))
- | otherwise = ((head li) < (head (tail li))) && (isOrd (tail li))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement