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

Update project-euler.186 for disjoint-sets API change

db4
Slava Pestov 2008-07-20 04:05:00 -05:00
parent bbb5d7365c
commit 71638e6340
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,10 @@ IN: project-euler.186
drop nip drop nip
] if ; ] if ;
: <relation> ( n -- unionfind )
<disjoint-set> [ [ add-atom ] curry each ] keep ;
: euler186 ( -- n ) : euler186 ( -- n )
<generator> 0 1000000 <disjoint-set> (p186) ; <generator> 0 1000000 <relation> (p186) ;
MAIN: euler186 MAIN: euler186