Fix sorting string equality issue in Project Euler

diff --git a/extra/project-euler/006/006.factor b/extra/project-euler/006/006.factor
index 3e2bf19f4a15268f78ce837a99f458fabae0c064..21493536583ae4a4287c602adde37f9e645e78df 100644 (file)
--- a/extra/project-euler/006/006.factor
+++ b/extra/project-euler/006/006.factor
@@ -1,4 +1,4 @@
-! Copyright (c) 2007-2008 Aaron Schaefer.
+! Copyright (c) 2007, 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel math math.ranges sequences ;
 IN: project-euler.006

diff --git a/extra/project-euler/009/009.factor b/extra/project-euler/009/009.factor
index 2578808926e4359c3889b79b10aea7d80231de26..a1040d2bf2687a6a5f4c33008fada47acd97619e 100644 (file)
--- a/extra/project-euler/009/009.factor
+++ b/extra/project-euler/009/009.factor
@@ -1,4 +1,4 @@
-! Copyright (c) 2007-2008 Aaron Schaefer.
+! Copyright (c) 2007, 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel make math sequences sorting ;
 IN: project-euler.009

diff --git a/extra/project-euler/016/016.factor b/extra/project-euler/016/016.factor
index 80bbbbaec37f6ffb7374822b7af46718bfb395be..216fcb3523382cd33d62ffd72f7ad1911aafbaa2 100644 (file)
--- a/extra/project-euler/016/016.factor
+++ b/extra/project-euler/016/016.factor
@@ -1,4 +1,4 @@
-! Copyright (c) 2007-2008 Aaron Schaefer.
+! Copyright (c) 2007, 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: math.functions project-euler.common sequences ;
 IN: project-euler.016

diff --git a/extra/project-euler/017/017.factor b/extra/project-euler/017/017.factor
index b47e2429f2677a197852e66827ddaa2498973453..21e277da00455db69539965a2a0b1d6969288d45 100644 (file)
--- a/extra/project-euler/017/017.factor
+++ b/extra/project-euler/017/017.factor
@@ -1,4 +1,4 @@
-! Copyright (c) 2007-2008 Aaron Schaefer.
+! Copyright (c) 2007, 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: ascii kernel math.ranges math.text.english sequences ;
 IN: project-euler.017

diff --git a/extra/project-euler/020/020.factor b/extra/project-euler/020/020.factor
index 42d352858ce78124ac93c3a1ebac2d849e5cdb3c..e75747b57c80dd3d70a5e68015c615e76ff31c31 100644 (file)
--- a/extra/project-euler/020/020.factor
+++ b/extra/project-euler/020/020.factor
@@ -1,4 +1,4 @@
-! Copyright (c) 2007-2008 Aaron Schaefer.
+! Copyright (c) 2007, 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: math.combinatorics project-euler.common sequences ;
 IN: project-euler.020

diff --git a/extra/project-euler/038/038.factor b/extra/project-euler/038/038.factor
index 78e3848a337a2723317a5f8a9a50973fb047b744..05bab5fc366b9a07a844b77a42317382d3c2819e 100755 (executable)
--- a/extra/project-euler/038/038.factor
+++ b/extra/project-euler/038/038.factor
@@ -1,6 +1,7 @@
 ! Copyright (c) 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.parser math.ranges project-euler.common sequences ;
+USING: kernel math math.parser math.ranges project-euler.common sequences
+    strings ;
 IN: project-euler.038
 
 ! http://projecteuler.net/index.php?section=problems&id=38

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 5d1aa16a32a9cf642a05c3a9b1417d183fc66071..c609d82747b15292aa0ebd019b418cbe91048bb9 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -77,7 +77,7 @@ PRIVATE>
     number>string dup reverse = ;
 
 : pandigital? ( n -- ? )
-    number>string natural-sort "123456789" = ;
+    number>string natural-sort >string "123456789" = ;
 
 : pentagonal? ( n -- ? )
     dup 0 > [ 24 * 1+ sqrt 1+ 6 / 1 mod zero? ] [ drop f ] if ;