Solution to Project Euler problem 23
parent
897a8ed8aa
commit
a2bcdaf696
|
@ -0,0 +1,57 @@
|
|||
! Copyright (c) 2007 Aaron Schaefer.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: hashtables kernel math math.ranges project-euler.common sequences
|
||||
sorting ;
|
||||
IN: project-euler.023
|
||||
|
||||
! http://projecteuler.net/index.php?section=problems&id=23
|
||||
|
||||
! DESCRIPTION
|
||||
! -----------
|
||||
|
||||
! A perfect number is a number for which the sum of its proper divisors is
|
||||
! exactly equal to the number. For example, the sum of the proper divisors of
|
||||
! 28 would be 1 + 2 + 4 + 7 + 14 = 28, which means that 28 is a perfect number.
|
||||
|
||||
! A number whose proper divisors are less than the number is called deficient
|
||||
! and a number whose proper divisors exceed the number is called abundant.
|
||||
|
||||
! As 12 is the smallest abundant number, 1 + 2 + 3 + 4 + 6 = 16, the smallest
|
||||
! number that can be written as the sum of two abundant numbers is 24. By
|
||||
! mathematical analysis, it can be shown that all integers greater than 28123
|
||||
! can be written as the sum of two abundant numbers. However, this upper limit
|
||||
! cannot be reduced any further by analysis even though it is known that the
|
||||
! greatest number that cannot be expressed as the sum of two abundant numbers
|
||||
! is less than this limit.
|
||||
|
||||
! Find the sum of all the positive integers which cannot be written as the sum
|
||||
! of two abundant numbers.
|
||||
|
||||
|
||||
! SOLUTION
|
||||
! --------
|
||||
|
||||
<PRIVATE
|
||||
|
||||
! The upper limit can be dropped to 20161 which reduces our search space
|
||||
! and every even number > 46 can be expressed as a sum of two abundants
|
||||
: source-023 ( -- seq )
|
||||
46 [1,b] 47 20161 2 <range> append ;
|
||||
|
||||
: abundants-below ( n -- seq )
|
||||
[1,b] [ abundant? ] subset ;
|
||||
|
||||
: possible-sums ( seq -- seq )
|
||||
dup { } -rot [
|
||||
dupd [ + ] curry map rot append prune swap 1 tail
|
||||
] each drop natural-sort ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
: euler023 ( -- answer )
|
||||
20161 abundants-below possible-sums source-023 seq-diff sum ;
|
||||
|
||||
! [ euler023 ] time
|
||||
! 52780 ms run / 3839 ms GC
|
||||
|
||||
MAIN: euler023
|
Loading…
Reference in New Issue