Minor Project Euler cleanup

2008-11-17 18:41:21 -05:00 · 2008-11-17 18:41:21 -05:00 · f8e86894a4
parent 000d84a871
commit f8e86894a4
1 changed files with 1 additions and 1 deletions
--- a/extra/project-euler/047/047.factor
+++ b/extra/project-euler/047/047.factor
@ -32,7 +32,7 @@ IN: project-euler.047
 <PRIVATE

 : (consecutive) ( count goal test -- n )
-    pick pick = [
+    2over = [
        swap - nip
    ] [
        dup prime? [ [ drop 0 ] 2dip ] [