project-euler.186: fix, I guess it's been broken for awhile.

windows-high-dpi
John Benediktsson 2018-02-14 17:15:43 -08:00
parent 6890ec3fe4
commit 8a3cf4eefa
1 changed files with 1 additions and 1 deletions

View File

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