Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

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

diff --git a/extra/project-euler/069/069.factor b/extra/project-euler/069/069.factor
index eae1d82ece729175c6e9bb45af93e313362efa5c..5094dcd674df0fd1f2544c6a59f95a38b9f508be 100644 (file)
--- a/extra/project-euler/069/069.factor
+++ b/extra/project-euler/069/069.factor
@@ -69,12 +69,9 @@ PRIVATE>
         [ nth-prime primes-upto ]
     } cond product ;
 
-: (primorial-upto) ( count limit -- m )
-    '[ dup primorial _ <= ] [ 1+ dup primorial ] produce
-    nip penultimate ;
-
 : primorial-upto ( limit -- m )
-    1 swap (primorial-upto) ;
+    1 swap '[ dup primorial _ <= ] [ 1 + dup primorial ] produce
+    nip penultimate ;
 
 PRIVATE>