project-euler.186: fix, I guess it's been broken for awhile.
parent
6890ec3fe4
commit
8a3cf4eefa
|
@ -65,7 +65,7 @@ IN: project-euler.186
|
|||
] if ;
|
||||
|
||||
: <relation> ( n -- unionfind )
|
||||
<disjoint-set> [ [ add-atom ] curry each ] keep ;
|
||||
<iota> <disjoint-set> [ [ add-atom ] curry each ] keep ;
|
||||
|
||||
: euler186 ( -- n )
|
||||
<generator> 0 1000000 <relation> (p186) ;
|
||||
|
|
Loading…
Reference in New Issue