remove lib usage, fix compile errors
parent
6e7aa21cb5
commit
86cdfa3a4c
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (c) 2007 Aaron Schaefer.
|
! Copyright (c) 2007 Aaron Schaefer.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel math.ranges math.text.english sequences sequences.lib strings
|
USING: kernel math.ranges math.text.english sequences strings
|
||||||
ascii combinators.short-circuit ;
|
ascii combinators.short-circuit ;
|
||||||
IN: project-euler.017
|
IN: project-euler.017
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (c) 2007 Samuel Tardieu, Aaron Schaefer.
|
! Copyright (c) 2007 Samuel Tardieu, Aaron Schaefer.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: calendar combinators kernel math math.ranges namespaces sequences
|
USING: calendar combinators kernel math math.ranges namespaces sequences
|
||||||
sequences.lib math.order ;
|
math.order ;
|
||||||
IN: project-euler.019
|
IN: project-euler.019
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=19
|
! http://projecteuler.net/index.php?section=problems&id=19
|
||||||
|
@ -32,7 +32,7 @@ IN: project-euler.019
|
||||||
|
|
||||||
: euler019 ( -- answer )
|
: euler019 ( -- answer )
|
||||||
1901 2000 [a,b] [
|
1901 2000 [a,b] [
|
||||||
12 [1,b] [ 1 zeller-congruence ] map-with
|
12 [1,b] [ 1 zeller-congruence ] with map
|
||||||
] map concat [ zero? ] count ;
|
] map concat [ zero? ] count ;
|
||||||
|
|
||||||
! [ euler019 ] 100 ave-time
|
! [ euler019 ] 100 ave-time
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (c) 2007 Aaron Schaefer.
|
! Copyright (c) 2007 Aaron Schaefer.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: ascii io.encodings.ascii io.files kernel math project-euler.common
|
USING: ascii io.encodings.ascii io.files kernel math project-euler.common
|
||||||
sequences sequences.lib sorting splitting ;
|
sequences sorting splitting ;
|
||||||
IN: project-euler.022
|
IN: project-euler.022
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=22
|
! http://projecteuler.net/index.php?section=problems&id=22
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! 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.functions project-euler.common sequences sequences.lib ;
|
USING: kernel math math.functions project-euler.common sequences ;
|
||||||
IN: project-euler.030
|
IN: project-euler.030
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=30
|
! http://projecteuler.net/index.php?section=problems&id=30
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! 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.ranges project-euler.common sequences sequences.lib ;
|
USING: kernel math.ranges project-euler.common sequences ;
|
||||||
IN: project-euler.034
|
IN: project-euler.034
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=34
|
! http://projecteuler.net/index.php?section=problems&id=34
|
||||||
|
|
|
@ -1,7 +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.combinatorics math.parser math.primes
|
USING: kernel math math.combinatorics math.parser math.primes
|
||||||
project-euler.common sequences sequences.lib sets ;
|
project-euler.common sequences sets ;
|
||||||
IN: project-euler.035
|
IN: project-euler.035
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=35
|
! http://projecteuler.net/index.php?section=problems&id=35
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! 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: arrays combinators.lib kernel math math.ranges
|
USING: arrays kernel math math.ranges
|
||||||
namespaces project-euler.common sequences ;
|
namespaces project-euler.common sequences ;
|
||||||
IN: project-euler.039
|
IN: project-euler.039
|
||||||
|
|
||||||
|
|
|
@ -1,7 +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: ascii io.files kernel math math.functions namespaces make
|
USING: ascii io.files kernel math math.functions namespaces make
|
||||||
project-euler.common sequences sequences.lib splitting io.encodings.ascii ;
|
project-euler.common sequences splitting io.encodings.ascii ;
|
||||||
IN: project-euler.042
|
IN: project-euler.042
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=42
|
! http://projecteuler.net/index.php?section=problems&id=42
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! 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 project-euler.common sequences sequences.lib ;
|
USING: kernel math math.parser project-euler.common sequences ;
|
||||||
IN: project-euler.055
|
IN: project-euler.055
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=55
|
! http://projecteuler.net/index.php?section=problems&id=55
|
||||||
|
@ -49,8 +49,8 @@ IN: project-euler.055
|
||||||
|
|
||||||
: (lychrel?) ( n iteration -- ? )
|
: (lychrel?) ( n iteration -- ? )
|
||||||
dup 50 < [
|
dup 50 < [
|
||||||
>r add-reverse dup palindrome?
|
[ add-reverse ] dip over palindrome?
|
||||||
[ r> 2drop f ] [ r> 1+ (lychrel?) ] if
|
[ 2drop f ] [ 1+ (lychrel?) ] if
|
||||||
] [
|
] [
|
||||||
2drop t
|
2drop t
|
||||||
] if ;
|
] if ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (c) 2008 Aaron Schaefer, Slava Pestov.
|
! Copyright (c) 2008 Aaron Schaefer, Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: arrays ascii assocs hashtables io.encodings.ascii io.files kernel math
|
USING: arrays ascii assocs hashtables io.encodings.ascii io.files kernel math
|
||||||
math.parser namespaces make sequences sequences.lib sequences.private sorting
|
math.parser namespaces make sequences sequences.private sorting
|
||||||
splitting grouping strings sets accessors ;
|
splitting grouping strings sets accessors ;
|
||||||
IN: project-euler.059
|
IN: project-euler.059
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (c) 2008 Eric Mertens.
|
! Copyright (c) 2008 Eric Mertens.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel math math.ranges sequences sequences.lib ;
|
USING: kernel math math.ranges sequences ;
|
||||||
IN: project-euler.116
|
IN: project-euler.116
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=116
|
! http://projecteuler.net/index.php?section=problems&id=116
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (c) 2008 Eric Mertens.
|
! Copyright (c) 2008 Eric Mertens.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel math math.functions sequences sequences.lib ;
|
USING: kernel math math.functions sequences ;
|
||||||
IN: project-euler.148
|
IN: project-euler.148
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=148
|
! http://projecteuler.net/index.php?section=problems&id=148
|
||||||
|
|
|
@ -1,7 +1,6 @@
|
||||||
! Copyright (c) 2008 Eric Mertens.
|
! Copyright (c) 2008 Eric Mertens.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: assocs combinators kernel math math.order namespaces sequences
|
USING: assocs combinators kernel math math.order namespaces sequences ;
|
||||||
sequences.lib ;
|
|
||||||
IN: project-euler.151
|
IN: project-euler.151
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=151
|
! http://projecteuler.net/index.php?section=problems&id=151
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
USING: circular disjoint-sets kernel math math.ranges
|
USING: circular disjoint-sets kernel math math.ranges
|
||||||
sequences sequences.lib ;
|
sequences ;
|
||||||
IN: project-euler.186
|
IN: project-euler.186
|
||||||
|
|
||||||
: (generator) ( k -- n )
|
: (generator) ( k -- n )
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (c) 2008 Eric Mertens.
|
! Copyright (c) 2008 Eric Mertens.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel sequences sequences.lib math math.functions math.ranges locals ;
|
USING: kernel sequences math math.functions math.ranges locals ;
|
||||||
IN: project-euler.190
|
IN: project-euler.190
|
||||||
|
|
||||||
! http://projecteuler.net/index.php?section=problems&id=190
|
! http://projecteuler.net/index.php?section=problems&id=190
|
||||||
|
|
Loading…
Reference in New Issue