steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix sorting string equality issue in Project Euler

db4
Aaron Schaefer 2008-10-31 01:35:37 -04:00
parent 3127cfdddc
commit 852c16a79b
7 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/006/006.factor
View File

@ -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. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.ranges sequences ; USING: kernel math math.ranges sequences ;
IN: project-euler.006 IN: project-euler.006

2
extra/project-euler/009/009.factor
View File

@ -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. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel make math sequences sorting ; USING: kernel make math sequences sorting ;
IN: project-euler.009 IN: project-euler.009

2
extra/project-euler/016/016.factor
View File

@ -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. ! See http://factorcode.org/license.txt for BSD license.
USING: math.functions project-euler.common sequences ; USING: math.functions project-euler.common sequences ;
IN: project-euler.016 IN: project-euler.016

2
extra/project-euler/017/017.factor
View File

@ -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. ! See http://factorcode.org/license.txt for BSD license.
USING: ascii kernel math.ranges math.text.english sequences ; USING: ascii kernel math.ranges math.text.english sequences ;
IN: project-euler.017 IN: project-euler.017

2
extra/project-euler/020/020.factor
View File

@ -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. ! See http://factorcode.org/license.txt for BSD license.
USING: math.combinatorics project-euler.common sequences ; USING: math.combinatorics project-euler.common sequences ;
IN: project-euler.020 IN: project-euler.020

3
extra/project-euler/038/038.factor
View File

@ -1,6 +1,7 @@
! Copyright (c) 2008 Aaron Schaefer. ! Copyright (c) 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: project-euler.038
! http://projecteuler.net/index.php?section=problems&id=38 ! http://projecteuler.net/index.php?section=problems&id=38

2
extra/project-euler/common/common.factor
View File

@ -77,7 +77,7 @@ PRIVATE>
number>string dup reverse = ; number>string dup reverse = ;
: pandigital? ( n -- ? ) : pandigital? ( n -- ? )
number>string natural-sort "123456789" = ; number>string natural-sort >string "123456789" = ;
: pentagonal? ( n -- ? ) : pentagonal? ( n -- ? )
dup 0 > [ 24 * 1+ sqrt 1+ 6 / 1 mod zero? ] [ drop f ] if ; dup 0 > [ 24 * 1+ sqrt 1+ 6 / 1 mod zero? ] [ drop f ] if ;