steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

project-euler.186: the build bots can handle it.

windows-high-dpi
John Benediktsson 2018-02-14 19:34:15 -08:00
parent 75c6065a14
commit 700fc0367b
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/project-euler/186/186-tests.factor
View File

@ -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

2
extra/project-euler/186/186.factor
View File

@ -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 ;