AphonicChaos/bad_map.hs

Created February 8, 2016 19:15

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

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

Download ZIP

Raw

	module Main where

	g :: (a -> b) -> [a] -> [b]
	g f (x:xs) = [f x]

	main = print $ g (+1) [1, 2, 3]

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