Using "same?" in more places.

[factor.git] / extra / project-euler / common / common.factor

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 33bd1fd4089366729656f91d4cf82e1b643fc4c0..f72a5b96af21e7a61289f2471045e629a400ee50 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -118,7 +118,7 @@ PRIVATE>
     [ propagate dup ] map nip reverse swap suffix ;
 
 : permutations? ( n m -- ? )
-    [ count-digits ] bi@ = ;
+    [ count-digits ] same? ;
 
 : sum-divisors ( n -- sum )
     dup 4 < [ { 0 1 3 4 } nth ] [ (sum-divisors) ] if ;