wangbj/showIntBase2.hs

Created January 20, 2016 23:43

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/wangbj/c5cc58bd3e5a62b37119.js"></script>
Save wangbj/c5cc58bd3e5a62b37119 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

showIntBase2.hs

	showIntBase2 = reverse . concatMap show . un
	where un = unfoldr go
	go = uncurry (*>) . (&&&) (guard . (>0)) (Just . swap . (`quotRem` 2))

	-- > showIntBase2 12
	-- "1100"

Author

wangbj commented Jan 20, 2016

apply2 f g h x = f (g x) (h x) ==>
apply2' f g h = uncurry f . (&&&) g h

sequenceT2 (a, b) = a >> b ~=
uncurry (>>)
or
uncurry (*>)

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