project-euler.186: the build bots can handle it.
parent
75c6065a14
commit
700fc0367b
|
@ -1,4 +1,3 @@
|
||||||
USING: project-euler.186 tools.test ;
|
USING: project-euler.186 tools.test ;
|
||||||
|
|
||||||
! Uses too much memory; don't want to run on build machines
|
[ 2325629 ] [ euler186 ] unit-test
|
||||||
! [ 2325629 ] [ euler186 ] unit-test
|
|
||||||
|
|
|
@ -45,7 +45,7 @@ IN: project-euler.186
|
||||||
55 [1,b] [ (generator) ] map <circular> ;
|
55 [1,b] [ (generator) ] map <circular> ;
|
||||||
|
|
||||||
: advance ( lag -- )
|
: advance ( lag -- )
|
||||||
[ { 0 31 } swap nths sum 1000000 rem ] keep circular-push ;
|
[ [ 0 swap nth ] [ 31 swap nth ] bi + 1000000 rem ] keep circular-push ;
|
||||||
|
|
||||||
: next ( lag -- n )
|
: next ( lag -- n )
|
||||||
[ first ] [ advance ] bi ;
|
[ first ] [ advance ] bi ;
|
||||||
|
|
Loading…
Reference in New Issue