Fix amicable-pair? false positives

extra/project-euler/021/021.factor

@@ -32,13 +32,13 @@ IN: project-euler.021
         [ 2dup divisor? [ 2dup / + , ] [ drop ] if ] each drop
     ] { } make sum 1+ ;
 
-: amicable-pair? ( n m -- ? )
-    { [ 2dup = not ] [ 2dup d = ] } && 2nip ;
-
 PRIVATE>
 
+: amicable? ( n -- ? )
+    dup d { [ 2dup = not ] [ 2dup d = ] } && 2nip ;
+
 : euler021 ( -- answer )
-    10000 [1,b] [ dup dup d amicable-pair? [ drop 0 ] unless ] sigma ;
+    10000 [1,b] [ dup amicable? [ drop 0 ] unless ] sigma ;
 
 ! [ euler021 ] 100 ave-time
 ! 328 ms run / 10 ms GC ave time - 100 trials

extra/project-euler/067/067.factor

@@ -55,4 +55,7 @@ PRIVATE>
 ! [ euler067 ] 100 ave-time
 ! 15 ms run / 0 ms GC ave time - 100 trials
 
+! source-067 [ max-path ] curry 100 ave-time
+! 3 ms run / 0 ms GC ave time - 100 trials
+
 MAIN: euler067