trekawek/Fold.hs

Created October 17, 2014 16:53

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/trekawek/30941c293ff6938483b0.js"></script>
Save trekawek/30941c293ff6938483b0 to your computer and use it in GitHub Desktop.

Download ZIP

Implementation of the left folding using right folding.

Raw

Fold.hs

	myFoldl :: (a -> b -> a) -> a -> [b] -> a
	myFoldl f z xs = foldr step id xs z
	where step x g a = g (f a x)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment