factor: trim using lists

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

diff --git a/extra/project-euler/073/073.factor b/extra/project-euler/073/073.factor
index 8ab0b171904a2018028cca711e23847fe9fca93b..658b141cb9d0ce77d2b1a5a2bdadee7207949d96 100644 (file)
--- a/extra/project-euler/073/073.factor
+++ b/extra/project-euler/073/073.factor
@@ -1,6 +1,6 @@
 ! Copyright (c) 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel locals math project-euler.common sequences ;
+USING: kernel math project-euler.common ;
 IN: project-euler.073
 
 ! http://projecteuler.net/index.php?section=problems&id=73
@@ -33,13 +33,12 @@ IN: project-euler.073
 <PRIVATE
 
 :: (euler073) ( counter limit lo hi -- counter' )
-    [let | m [ lo hi mediant ] |
-        m denominator limit <= [
-            counter 1 +
-            limit lo m (euler073)
-            limit m hi (euler073)
-        ] [ counter ] if
-    ] ;
+    lo hi mediant :> m
+    m denominator limit <= [
+        counter 1 +
+        limit lo m (euler073)
+        limit m hi (euler073)
+    ] [ counter ] if ;
 
 PRIVATE>