Solution to Project Euler problem 62
parent
f1a10d2d7f
commit
0a350bbe6e
|
@ -0,0 +1,4 @@
|
|||
USING: project-euler.062 tools.test ;
|
||||
IN: project-euler.062.tests
|
||||
|
||||
[ 127035954683 ] [ euler062 ] unit-test
|
|
@ -0,0 +1,54 @@
|
|||
! Copyright (c) 2009 Guillaume Nargeot.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays assocs hashtables kernel math math.functions
|
||||
project-euler.common sequences sorting ;
|
||||
IN: project-euler.062
|
||||
|
||||
! http://projecteuler.net/index.php?section=problems&id=062
|
||||
|
||||
! DESCRIPTION
|
||||
! -----------
|
||||
|
||||
! The cube, 41063625 (345^3), can be permuted to produce two
|
||||
! other cubes: 56623104 (384^3) and 66430125 (405^3). In
|
||||
! fact, 41063625 is the smallest cube which has exactly three
|
||||
! permutations of its digits which are also cube.
|
||||
|
||||
! Find the smallest cube for which exactly five permutations of
|
||||
! its digits are cube.
|
||||
|
||||
|
||||
! SOLUTION
|
||||
! --------
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: cube ( n -- n^3 ) 3 ^ ; inline
|
||||
: >key ( n -- k ) cube number>digits natural-sort ; inline
|
||||
: has-entry? ( n assoc -- ? ) [ >key ] dip key? ; inline
|
||||
|
||||
: (euler062) ( n assoc -- n )
|
||||
2dup has-entry? [
|
||||
2dup [ >key ] dip
|
||||
[ dup 0 swap [ 1 + ] change-nth ] change-at
|
||||
2dup [ >key ] dip at first 5 =
|
||||
[
|
||||
[ >key ] dip at second
|
||||
] [
|
||||
[ 1 + ] dip (euler062)
|
||||
] if
|
||||
] [
|
||||
2dup 1 pick cube 2array -rot
|
||||
[ >key ] dip set-at [ 1 + ] dip
|
||||
(euler062)
|
||||
] if ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
: euler062 ( -- answer )
|
||||
1 1 <hashtable> (euler062) ;
|
||||
|
||||
! [ euler062 ] 100 ave-time
|
||||
! 78 ms ave run time - 0.9 SD (100 trials)
|
||||
|
||||
SOLUTION: euler062
|
|
@ -0,0 +1 @@
|
|||
Guillaume Nargeot
|
|
@ -16,16 +16,16 @@ USING: definitions io io.files io.pathnames kernel math math.parser
|
|||
project-euler.045 project-euler.046 project-euler.047 project-euler.048
|
||||
project-euler.049 project-euler.051 project-euler.052 project-euler.053
|
||||
project-euler.054 project-euler.055 project-euler.056 project-euler.057
|
||||
project-euler.058 project-euler.059 project-euler.063 project-euler.065
|
||||
project-euler.067 project-euler.069 project-euler.071 project-euler.072
|
||||
project-euler.073 project-euler.074 project-euler.075 project-euler.076
|
||||
project-euler.079 project-euler.081 project-euler.085 project-euler.092
|
||||
project-euler.097 project-euler.099 project-euler.100 project-euler.102
|
||||
project-euler.112 project-euler.116 project-euler.117 project-euler.124
|
||||
project-euler.134 project-euler.148 project-euler.150 project-euler.151
|
||||
project-euler.164 project-euler.169 project-euler.173 project-euler.175
|
||||
project-euler.186 project-euler.188 project-euler.190 project-euler.203
|
||||
project-euler.215 ;
|
||||
project-euler.058 project-euler.059 project-euler.062 project-euler.063
|
||||
project-euler.065 project-euler.067 project-euler.069 project-euler.071
|
||||
project-euler.072 project-euler.073 project-euler.074 project-euler.075
|
||||
project-euler.076 project-euler.079 project-euler.081 project-euler.085
|
||||
project-euler.092 project-euler.097 project-euler.099 project-euler.100
|
||||
project-euler.102 project-euler.112 project-euler.116 project-euler.117
|
||||
project-euler.124 project-euler.134 project-euler.148 project-euler.150
|
||||
project-euler.151 project-euler.164 project-euler.169 project-euler.173
|
||||
project-euler.175 project-euler.186 project-euler.188 project-euler.190
|
||||
project-euler.203 project-euler.215 ;
|
||||
IN: project-euler
|
||||
|
||||
<PRIVATE
|
||||
|
|
Loading…
Reference in New Issue