jeremyheiler/euler1.factor

Last active August 29, 2015 13:58

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

Download ZIP

Raw

euler1.factor

	USING: kernel math math.functions sequences ;
	IN: euler1

	: euler1 ( x -- y )
	iota [ dup [ 3 divisor? ] [ 5 divisor? ] bi or [ drop 0 ] unless ] map-sum ;

Author

jeremyheiler commented Apr 9, 2014

Thanks again!

That's a clever way to solve the problem.

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