Skip to content

Instantly share code, notes, and snippets.

@jeremyheiler

jeremyheiler/euler1.factor

Last active August 29, 2015 13:58
Show Gist options
  • Save jeremyheiler/10015006 to your computer and use it in GitHub Desktop.
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 ;
@jeremyheiler
Copy link
Author

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