crislanio_macedo Posted March 13, 2015 at 11:03 PM Report Share #579364 Posted March 13, 2015 at 11:03 PM (edited) inserir :: Ord a => [a] -> a -> [a] inserir [] a = [] inserir (x:xs) a | x < a = x: inserir xs a |otherwise = a: x:xs insertSort' = foldr1 inserir [] Edited March 14, 2015 at 07:00 PM by crislanio_macedo Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now