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

2008-07-20 04:05:00 -05:00 · 2008-07-20 04:05:00 -05:00 · 71638e6340
parent bbb5d7365c
commit 71638e6340
1 changed files with 4 additions and 1 deletions
--- a/extra/project-euler/186/186.factor
+++ b/extra/project-euler/186/186.factor
@ -29,7 +29,10 @@ IN: project-euler.186
        drop nip
    ] if ;

+: <relation> ( n -- unionfind )
+    <disjoint-set> [ [ add-atom ] curry each ] keep ;
+
 : euler186 ( -- n )
-    <generator> 0 1000000 <disjoint-set> (p186) ;
+    <generator> 0 1000000 <relation> (p186) ;

 MAIN: euler186