From 741d3df68a3fe662ca1f72e7eb72bcd2204462b8 Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Thu, 7 Feb 2008 20:25:03 -0500
Subject: [PATCH] Fix PE solutions using old math.parser

---
 extra/project-euler/041/041.factor | 2 +-
 extra/project-euler/043/043.factor | 6 +++---
 extra/project-euler/079/079.factor | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/extra/project-euler/041/041.factor b/extra/project-euler/041/041.factor
index 60017f39a1..14084cc01d 100644
--- a/extra/project-euler/041/041.factor
+++ b/extra/project-euler/041/041.factor
@@ -32,7 +32,7 @@ IN: project-euler.041
 
 : euler041 ( -- answer )
     { 7 6 5 4 3 2 1 } all-permutations
-    [ 10 swap digits>integer ] map [ prime? ] find nip ;
+    [ 10 digits>integer ] map [ prime? ] find nip ;
 
 ! [ euler041 ] 100 ave-time
 ! 107 ms run / 7 ms GC ave time - 100 trials
diff --git a/extra/project-euler/043/043.factor b/extra/project-euler/043/043.factor
index abe455e273..54d75c6980 100644
--- a/extra/project-euler/043/043.factor
+++ b/extra/project-euler/043/043.factor
@@ -36,7 +36,7 @@ IN: project-euler.043
 <PRIVATE
 
 : subseq-divisible? ( n index seq -- ? )
-    [ 1- dup 3 + ] dip subseq 10 swap digits>integer swap mod zero? ;
+    [ 1- dup 3 + ] dip subseq 10 digits>integer swap mod zero? ;
 
 : interesting? ( seq -- ? )
     {
@@ -53,7 +53,7 @@ PRIVATE>
 
 : euler043 ( -- answer )
     1234567890 number>digits all-permutations
-    [ interesting? ] subset [ 10 swap digits>integer ] map sum ;
+    [ interesting? ] subset [ 10 digits>integer ] map sum ;
 
 ! [ euler043 ] time
 ! 125196 ms run / 19548 ms GC time
@@ -89,7 +89,7 @@ PRIVATE>
 PRIVATE>
 
 : euler043a ( -- answer )
-    interesting-pandigitals [ 10 swap digits>integer ] sigma ;
+    interesting-pandigitals [ 10 digits>integer ] sigma ;
 
 ! [ euler043a ] 100 ave-time
 ! 19 ms run / 1 ms GC ave time - 100 trials
diff --git a/extra/project-euler/079/079.factor b/extra/project-euler/079/079.factor
index d28484c881..f068db77ec 100644
--- a/extra/project-euler/079/079.factor
+++ b/extra/project-euler/079/079.factor
@@ -54,7 +54,7 @@ PRIVATE>
     concat prune dupd seq-diff append ;
 
 : euler079 ( -- answer )
-    source-079 >edges topological-sort 10 swap digits>integer ;
+    source-079 >edges topological-sort 10 digits>integer ;
 
 ! [ euler079 ] 100 ave-time
 ! 2 ms run / 0 ms GC ave time - 100 trials