factor: cleaning up last foo: words.
Doug Coleman
parent
693d9ecef8
commit
4a273ba95e
|
|
@ -3,8 +3,8 @@ io.streams.string kernel tools.test splitting ;
|
|||
IN: benchmark.regex-dna.tests
|
||||
|
||||
{ t } [
|
||||
"resource:extra/benchmark/regex-dna/regex-dna-test-in.txt"
|
||||
"vocab:benchmark/regex-dna/regex-dna-test-in.txt"
|
||||
[ regex-dna ] with-string-writer
|
||||
"resource:extra/benchmark/regex-dna/regex-dna-test-out.txt"
|
||||
"vocab:benchmark/regex-dna/regex-dna-test-out.txt"
|
||||
ascii file-contents =
|
||||
] unit-test
|
||||
|
|
|
|||
|
|
@ -1,177 +0,0 @@
|
|||
auto-use
|
||||
IN: syntax
|
||||
USE: delegate.private
|
||||
|
||||
COMPILE< FORGET: \ MACRO: COMPILE>
|
||||
COMPILE< FORGET: \ MACRO:: COMPILE>
|
||||
COMPILE< FORGET: \ MEMO: COMPILE>
|
||||
COMPILE< FORGET: \ MEMO:: COMPILE>
|
||||
COMPILE< FORGET: \ M:: COMPILE>
|
||||
COMPILE< FORGET: \ IDENTITY-MEMO: COMPILE>
|
||||
COMPILE< FORGET: \ IDENTITY-MEMO:: COMPILE>
|
||||
COMPILE< FORGET: \ TYPED: COMPILE>
|
||||
COMPILE< FORGET: \ TYPED:: COMPILE>
|
||||
|
||||
COMPILE< FORGET: \ '[ COMPILE>
|
||||
COMPILE< FORGET: \ :: COMPILE>
|
||||
COMPILE< FORGET: \ :> COMPILE>
|
||||
COMPILE< FORGET: _ COMPILE>
|
||||
COMPILE< FORGET: @ COMPILE>
|
||||
COMPILE< FORGET: \ |[ COMPILE>
|
||||
COMPILE< FORGET: \ let[ COMPILE>
|
||||
COMPILE< FORGET: \ IH{ COMPILE>
|
||||
COMPILE< FORGET: \ PROTOCOL: COMPILE>
|
||||
COMPILE< FORGET: \ CONSULT: COMPILE>
|
||||
COMPILE< FORGET: \ BROADCAST: COMPILE>
|
||||
COMPILE< FORGET: \ SLOT-PROTOCOL: COMPILE>
|
||||
COMPILE< FORGET: \ HINTS: COMPILE>
|
||||
|
||||
|
||||
|
||||
SYNTAX: :: (::) define-declared ;
|
||||
SYNTAX: M:: (M::) define ;
|
||||
SYNTAX: MEMO: (:) define-memoized ;
|
||||
SYNTAX: MEMO:: (::) define-memoized ;
|
||||
SYNTAX: MACRO: (:) define-macro ;
|
||||
SYNTAX: MACRO:: (::) define-macro ;
|
||||
|
||||
SYNTAX: IDENTITY-MEMO: (:) define-identity-memoized ;
|
||||
SYNTAX: IDENTITY-MEMO:: (::) define-identity-memoized ;
|
||||
|
||||
SYNTAX: TYPED: (:) define-typed ;
|
||||
SYNTAX: TYPED:: (::) define-typed ;
|
||||
|
||||
SYNTAX: :>
|
||||
in-lambda? get [ :>-outside-lambda-error ] unless
|
||||
scan-token parse-def suffix! ;
|
||||
|
||||
SYNTAX: |[ parse-lambda append! ;
|
||||
|
||||
SYNTAX: let[ parse-let append! ;
|
||||
|
||||
SYNTAX: MEMO[ parse-quotation dup infer memoize-quot suffix! ;
|
||||
|
||||
SYNTAX: '[ parse-quotation fry append! ;
|
||||
: _ ( -- * ) "Only valid inside a fry" throw ;
|
||||
: @ ( -- * ) "Only valid inside a fry" throw ;
|
||||
PREDICATE: fry-specifier < word { _ @ } member-eq? ;
|
||||
|
||||
SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;
|
||||
|
||||
|
||||
SYNTAX: PROTOCOL:
|
||||
scan-new-word parse-definition define-protocol ;
|
||||
|
||||
SYNTAX: CONSULT:
|
||||
scan-word scan-word parse-definition <consultation>
|
||||
[ save-location ] [ define-consult ] bi ;
|
||||
|
||||
SYNTAX: BROADCAST:
|
||||
scan-word scan-word parse-definition <broadcast>
|
||||
[ save-location ] [ define-consult ] bi ;
|
||||
|
||||
|
||||
SYNTAX: SLOT-PROTOCOL:
|
||||
scan-new-word ";"
|
||||
[ [ reader-word ] [ writer-word ] bi 2array ]
|
||||
map-tokens concat define-protocol ;
|
||||
|
||||
|
||||
SYNTAX: HINTS:
|
||||
scan-object dup wrapper? [ wrapped>> ] when
|
||||
[ changed-definition ]
|
||||
[ subwords [ changed-definition ] each ]
|
||||
[ parse-definition { } like set-specializer ] tri ;
|
||||
|
||||
|
||||
|
||||
|
||||
H{ } clone root-cache set-global
|
||||
|
||||
use: io.directories.search
|
||||
"/Users/erg/factor/core/locals" t recursive-directory-files
|
||||
[ "/Users/erg/factor/core/" ?head drop ] map
|
||||
[ "." swap subseq? ] reject
|
||||
[ H{ { char: / char: . } } substitute ] map
|
||||
[ vocab-exists? ] filter
|
||||
[ reload ] each
|
||||
|
||||
|
||||
use: io.directories.search
|
||||
use: ui.tools.listener
|
||||
"/Users/erg/factor/core/stack-checker" t recursive-directory-files
|
||||
[ "/Users/erg/factor/core/" ?head drop ] map
|
||||
[ "." swap subseq? ] reject
|
||||
[ H{ { char: / char: . } } substitute ] map
|
||||
[ vocab-exists? ] filter
|
||||
[ reload ] each
|
||||
|
||||
|
||||
|
||||
"fry" reload
|
||||
"bootstrap.image" reload
|
||||
|
||||
|
||||
! load somewhere!
|
||||
{
|
||||
{ [ os windows? ] [ "alien.libraries.windows" ] }
|
||||
{ [ os unix? ] [ "alien.libraries.unix" ] }
|
||||
} cond require
|
||||
|
||||
|
||||
! bug in locals with current approach...
|
||||
"compiler.cfg.parallel-copy" reload
|
||||
|
||||
|
||||
MD5 (boot.unix-x86.64.image) = 9fa82ffeeb8eebf763327205a78c4597
|
||||
|
||||
|
||||
|
||||
"/Users/erg/factor/core/" t recursive-directory-files
|
||||
[ "/Users/erg/factor/core/" ?head drop ] map
|
||||
[ "." swap subseq? ] reject
|
||||
[ H{ { char: / char: . } } substitute ] map
|
||||
[ vocab-exists? ] filter
|
||||
|
||||
|
||||
|
||||
string-lines
|
||||
[ " " split1 nip ] map
|
||||
[ "resource:core/" ?head drop ] map
|
||||
[ H{ { char: / char: . } } substitute ] map
|
||||
[ "." split but-last but-last "." join ] map
|
||||
|
||||
2dup diff
|
||||
|
||||
|
||||
"compiler"
|
||||
"command-line.debugger"
|
||||
"command-line.startup"
|
||||
"delegate.protocols"
|
||||
"locals.definitions"
|
||||
"memoize.syntax"
|
||||
"typed.debugger"
|
||||
"typed.namespaces"
|
||||
"hashtables.identity.mirrors"
|
||||
"vocabs.loader.test.a"
|
||||
"vocabs.loader.test.b"
|
||||
"vocabs.loader.test.c"
|
||||
"vocabs.loader.test.d"
|
||||
"vocabs.loader.test.e"
|
||||
"vocabs.loader.test.f"
|
||||
"vocabs.loader.test.g"
|
||||
"vocabs.loader.test.h"
|
||||
"vocabs.loader.test.i"
|
||||
"vocabs.loader.test.j"
|
||||
"vocabs.loader.test.k"
|
||||
"vocabs.loader.test.l"
|
||||
"vocabs.loader.test.m"
|
||||
"vocabs.loader.test.n"
|
||||
"vocabs.loader.test.o"
|
||||
"vocabs.loader.test.p"
|
||||
|
||||
|
||||
disable-optimizer
|
||||
enable-optimizer
|
||||
|
||||
IN: scratchpad 1 1 - restarts [ nth f ] change-global "peg.ebnf" reload continue-restart
|
||||
|
|
@ -3,7 +3,7 @@
|
|||
USING: accessors arrays combinators combinators.short-circuit
|
||||
combinators.smart continuations fry io io.encodings.utf8
|
||||
io.files io.streams.string kernel modern modern.paths
|
||||
modern.slices multiline namespaces prettyprint sequences
|
||||
modern.slices namespaces prettyprint sequences
|
||||
sequences.extras sets splitting splitting.monotonic strings
|
||||
unicode ;
|
||||
IN: modern.out
|
||||
|
|
@ -213,18 +213,6 @@ M: compound-sequence-literal write-literal
|
|||
: rewrite-paths ( seq quot -- ) '[ _ rewrite-path ] each ; inline
|
||||
|
||||
|
||||
/*
|
||||
! These work except they use pegs/ebnf, grep for [[ ]]
|
||||
modified: basis/db/sqlite/errors/errors.factor
|
||||
modified: basis/formatting/formatting.factor
|
||||
modified: basis/globs/globs.factor
|
||||
modified: extra/alien/fortran/fortran.factor
|
||||
modified: extra/cpu/8080/emulator/emulator.factor
|
||||
modified: extra/peg/expr/expr.factor
|
||||
modified: extra/rosetta-code/arithmetic-evaluation/arithmetic-evaluation.factor
|
||||
modified: extra/shell/parser/parser.factor
|
||||
*/
|
||||
|
||||
: paren-word>tick-word ( string -- string' )
|
||||
dup [ "(" ?head drop ")" ?tail drop "'" append ] [ ] if ;
|
||||
|
||||
|
|
@ -246,5 +234,3 @@ M: compound-sequence-literal write-literal
|
|||
|
||||
: transform-source ( quot -- )
|
||||
all-paths swap rewrite-paths ; inline
|
||||
|
||||
! : transform-core ( quot -- ) lexable-core-paths swap rewrite-paths ; inline
|
||||
|
|
|
|||
|
|
@ -66,4 +66,4 @@ PRIVATE>
|
|||
! [ euler001d ] 100 ave-time
|
||||
! 0 ms ave run time - 0.08 SD (100 trials)
|
||||
|
||||
solution: euler001
|
||||
SOLUTION: euler001
|
||||
|
|
|
|||
|
|
@ -77,4 +77,4 @@ PRIVATE>
|
|||
! [ euler002b ] 100 ave-time
|
||||
! 0 ms ave run time - 0.0 SD (100 trials)
|
||||
|
||||
solution: euler002b
|
||||
SOLUTION: euler002b
|
||||
|
|
|
|||
|
|
@ -22,4 +22,4 @@ IN: project-euler.003
|
|||
! [ euler003 ] 100 ave-time
|
||||
! 1 ms ave run time - 0.49 SD (100 trials)
|
||||
|
||||
solution: euler003
|
||||
SOLUTION: euler003
|
||||
|
|
|
|||
|
|
@ -34,4 +34,4 @@ PRIVATE>
|
|||
! [ euler004 ] 100 ave-time
|
||||
! 1164 ms ave run time - 39.35 SD (100 trials)
|
||||
|
||||
solution: euler004
|
||||
SOLUTION: euler004
|
||||
|
|
|
|||
|
|
@ -23,4 +23,4 @@ IN: project-euler.005
|
|||
! [ euler005 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.14 SD (100 trials)
|
||||
|
||||
solution: euler005
|
||||
SOLUTION: euler005
|
||||
|
|
|
|||
|
|
@ -40,4 +40,4 @@ PRIVATE>
|
|||
! [ euler006 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.24 SD (100 trials)
|
||||
|
||||
solution: euler006
|
||||
SOLUTION: euler006
|
||||
|
|
|
|||
|
|
@ -23,4 +23,4 @@ IN: project-euler.007
|
|||
! [ euler007 ] 100 ave-time
|
||||
! 5 ms ave run time - 1.13 SD (100 trials)
|
||||
|
||||
solution: euler007
|
||||
SOLUTION: euler007
|
||||
|
|
|
|||
|
|
@ -69,4 +69,4 @@ PRIVATE>
|
|||
! [ euler008 ] 100 ave-time
|
||||
! 2 ms ave run time - 0.79 SD (100 trials)
|
||||
|
||||
solution: euler008
|
||||
SOLUTION: euler008
|
||||
|
|
|
|||
|
|
@ -50,4 +50,4 @@ PRIVATE>
|
|||
! [ euler009 ] 100 ave-time
|
||||
! 1 ms ave run time - 0.73 SD (100 trials)
|
||||
|
||||
solution: euler009
|
||||
SOLUTION: euler009
|
||||
|
|
|
|||
|
|
@ -22,4 +22,4 @@ IN: project-euler.010
|
|||
! [ euler010 ] 100 ave-time
|
||||
! 15 ms ave run time - 0.41 SD (100 trials)
|
||||
|
||||
solution: euler010
|
||||
SOLUTION: euler010
|
||||
|
|
|
|||
|
|
@ -101,4 +101,4 @@ PRIVATE>
|
|||
! [ euler011 ] 100 ave-time
|
||||
! 3 ms ave run time - 0.77 SD (100 trials)
|
||||
|
||||
solution: euler011
|
||||
SOLUTION: euler011
|
||||
|
|
|
|||
|
|
@ -39,4 +39,4 @@ IN: project-euler.012
|
|||
! [ euler012 ] 10 ave-time
|
||||
! 6573 ms ave run time - 346.27 SD (10 trials)
|
||||
|
||||
solution: euler012
|
||||
SOLUTION: euler012
|
||||
|
|
|
|||
|
|
@ -230,4 +230,4 @@ PRIVATE>
|
|||
! [ euler013 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.31 SD (100 trials)
|
||||
|
||||
solution: euler013
|
||||
SOLUTION: euler013
|
||||
|
|
|
|||
|
|
@ -70,4 +70,4 @@ PRIVATE>
|
|||
|
||||
! TODO: try using memoization
|
||||
|
||||
solution: euler014a
|
||||
SOLUTION: euler014a
|
||||
|
|
|
|||
|
|
@ -30,4 +30,4 @@ PRIVATE>
|
|||
! [ euler015 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.2 SD (100 trials)
|
||||
|
||||
solution: euler015
|
||||
SOLUTION: euler015
|
||||
|
|
|
|||
|
|
@ -22,4 +22,4 @@ IN: project-euler.016
|
|||
! [ euler016 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.67 SD (100 trials)
|
||||
|
||||
solution: euler016
|
||||
SOLUTION: euler016
|
||||
|
|
|
|||
|
|
@ -29,4 +29,4 @@ IN: project-euler.017
|
|||
! [ euler017 ] 100 ave-time
|
||||
! 15 ms ave run time - 1.71 SD (100 trials)
|
||||
|
||||
solution: euler017
|
||||
SOLUTION: euler017
|
||||
|
|
|
|||
|
|
@ -90,4 +90,4 @@ PRIVATE>
|
|||
! [ euler018a ] 100 ave-time
|
||||
! 0 ms ave run time - 0.39 SD (100 trials)
|
||||
|
||||
solution: euler018a
|
||||
SOLUTION: euler018a
|
||||
|
|
|
|||
|
|
@ -63,4 +63,4 @@ PRIVATE>
|
|||
! [ euler019a ] 100 ave-time
|
||||
! 17 ms ave run time - 2.13 SD (100 trials)
|
||||
|
||||
solution: euler019
|
||||
SOLUTION: euler019
|
||||
|
|
|
|||
|
|
@ -22,4 +22,4 @@ IN: project-euler.020
|
|||
! [ euler020 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.55 (100 trials)
|
||||
|
||||
solution: euler020
|
||||
SOLUTION: euler020
|
||||
|
|
|
|||
|
|
@ -35,4 +35,4 @@ IN: project-euler.021
|
|||
! [ euler021 ] 100 ave-time
|
||||
! 335 ms ave run time - 18.63 SD (100 trials)
|
||||
|
||||
solution: euler021
|
||||
SOLUTION: euler021
|
||||
|
|
|
|||
|
|
@ -42,4 +42,4 @@ PRIVATE>
|
|||
! [ euler022 ] 100 ave-time
|
||||
! 74 ms ave run time - 5.13 SD (100 trials)
|
||||
|
||||
solution: euler022
|
||||
SOLUTION: euler022
|
||||
|
|
|
|||
|
|
@ -55,4 +55,4 @@ PRIVATE>
|
|||
! [ euler023 ] time
|
||||
! 2.15542 seconds
|
||||
|
||||
solution: euler023
|
||||
SOLUTION: euler023
|
||||
|
|
|
|||
|
|
@ -29,4 +29,4 @@ IN: project-euler.024
|
|||
! [ euler024 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.27 SD (100 trials)
|
||||
|
||||
solution: euler024
|
||||
SOLUTION: euler024
|
||||
|
|
|
|||
|
|
@ -78,4 +78,4 @@ PRIVATE>
|
|||
! [ euler025a ] 100 ave-time
|
||||
! 0 ms ave run time - 0.17 SD (100 trials)
|
||||
|
||||
solution: euler025a
|
||||
SOLUTION: euler025a
|
||||
|
|
|
|||
|
|
@ -65,4 +65,4 @@ PRIVATE>
|
|||
! [ euler026 ] 100 ave-time
|
||||
! 290 ms ave run time - 19.2 SD (100 trials)
|
||||
|
||||
solution: euler026
|
||||
SOLUTION: euler026
|
||||
|
|
|
|||
|
|
@ -72,4 +72,4 @@ PRIVATE>
|
|||
|
||||
! TODO: generalize max-consecutive/max-product (from #26) into a new word
|
||||
|
||||
solution: euler027
|
||||
SOLUTION: euler027
|
||||
|
|
|
|||
|
|
@ -43,4 +43,4 @@ PRIVATE>
|
|||
! [ euler028 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.39 SD (100 trials)
|
||||
|
||||
solution: euler028
|
||||
SOLUTION: euler028
|
||||
|
|
|
|||
|
|
@ -34,4 +34,4 @@ IN: project-euler.029
|
|||
! [ euler029 ] 100 ave-time
|
||||
! 704 ms ave run time - 28.07 SD (100 trials)
|
||||
|
||||
solution: euler029
|
||||
SOLUTION: euler029
|
||||
|
|
|
|||
|
|
@ -43,4 +43,4 @@ PRIVATE>
|
|||
! [ euler030 ] 100 ave-time
|
||||
! 1700 ms ave run time - 64.84 SD (100 trials)
|
||||
|
||||
solution: euler030
|
||||
SOLUTION: euler030
|
||||
|
|
|
|||
|
|
@ -60,4 +60,4 @@ PRIVATE>
|
|||
|
||||
! TODO: generalize to eliminate duplication; use a sequence to specify denominations?
|
||||
|
||||
solution: euler031
|
||||
SOLUTION: euler031
|
||||
|
|
|
|||
|
|
@ -77,4 +77,4 @@ PRIVATE>
|
|||
! [ euler032a ] 10 ave-time
|
||||
! 2624 ms ave run time - 131.91 SD (10 trials)
|
||||
|
||||
solution: euler032a
|
||||
SOLUTION: euler032a
|
||||
|
|
|
|||
|
|
@ -52,4 +52,4 @@ PRIVATE>
|
|||
! [ euler033 ] 100 ave-time
|
||||
! 7 ms ave run time - 1.31 SD (100 trials)
|
||||
|
||||
solution: euler033
|
||||
SOLUTION: euler033
|
||||
|
|
|
|||
|
|
@ -44,4 +44,4 @@ PRIVATE>
|
|||
! [ euler034 ] 10 ave-time
|
||||
! 5506 ms ave run time - 144.0 SD (10 trials)
|
||||
|
||||
solution: euler034
|
||||
SOLUTION: euler034
|
||||
|
|
|
|||
|
|
@ -58,4 +58,4 @@ PRIVATE>
|
|||
! TODO: try using bit arrays or other methods outlined here:
|
||||
! http://home.comcast.net/~babdulbaki/Circular_Primes.html
|
||||
|
||||
solution: euler035
|
||||
SOLUTION: euler035
|
||||
|
|
|
|||
|
|
@ -36,4 +36,4 @@ PRIVATE>
|
|||
! [ euler036 ] 100 ave-time
|
||||
! 1703 ms ave run time - 96.6 SD (100 trials)
|
||||
|
||||
solution: euler036
|
||||
SOLUTION: euler036
|
||||
|
|
|
|||
|
|
@ -49,4 +49,4 @@ PRIVATE>
|
|||
! [ euler037 ] 100 ave-time
|
||||
! 130 ms ave run time - 6.27 SD (100 trials)
|
||||
|
||||
solution: euler037
|
||||
SOLUTION: euler037
|
||||
|
|
|
|||
|
|
@ -53,4 +53,4 @@ PRIVATE>
|
|||
! [ euler038 ] 100 ave-time
|
||||
! 11 ms ave run time - 1.5 SD (100 trials)
|
||||
|
||||
solution: euler038
|
||||
SOLUTION: euler038
|
||||
|
|
|
|||
|
|
@ -62,4 +62,4 @@ PRIVATE>
|
|||
! [ euler039 ] 100 ave-time
|
||||
! 1 ms ave run time - 0.37 SD (100 trials)
|
||||
|
||||
solution: euler039
|
||||
SOLUTION: euler039
|
||||
|
|
|
|||
|
|
@ -48,4 +48,4 @@ PRIVATE>
|
|||
! [ euler040 ] 100 ave-time
|
||||
! 444 ms ave run time - 23.64 SD (100 trials)
|
||||
|
||||
solution: euler040
|
||||
SOLUTION: euler040
|
||||
|
|
|
|||
|
|
@ -37,4 +37,4 @@ IN: project-euler.041
|
|||
! [ euler041 ] 100 ave-time
|
||||
! 64 ms ave run time - 4.22 SD (100 trials)
|
||||
|
||||
solution: euler041
|
||||
SOLUTION: euler041
|
||||
|
|
|
|||
|
|
@ -71,4 +71,4 @@ PRIVATE>
|
|||
! [ euler042a ] 100 ave-time
|
||||
! 21 ms ave run time - 2.2 SD (100 trials)
|
||||
|
||||
solution: euler042a
|
||||
SOLUTION: euler042a
|
||||
|
|
|
|||
|
|
@ -98,4 +98,4 @@ PRIVATE>
|
|||
! [ euler043a ] 100 ave-time
|
||||
! 10 ms ave run time - 1.37 SD (100 trials)
|
||||
|
||||
solution: euler043a
|
||||
SOLUTION: euler043a
|
||||
|
|
|
|||
|
|
@ -51,4 +51,4 @@ PRIVATE>
|
|||
! [ euler044 ] 10 ave-time
|
||||
! 289 ms ave run time - 0.27 SD (10 trials)
|
||||
|
||||
solution: euler044
|
||||
SOLUTION: euler044
|
||||
|
|
|
|||
|
|
@ -46,4 +46,4 @@ PRIVATE>
|
|||
! [ euler045 ] 100 ave-time
|
||||
! 12 ms ave run time - 1.71 SD (100 trials)
|
||||
|
||||
solution: euler045
|
||||
SOLUTION: euler045
|
||||
|
|
|
|||
|
|
@ -50,4 +50,4 @@ PRIVATE>
|
|||
! [ euler046 ] 100 ave-time
|
||||
! 37 ms ave run time - 3.39 SD (100 trials)
|
||||
|
||||
solution: euler046
|
||||
SOLUTION: euler046
|
||||
|
|
|
|||
|
|
@ -93,4 +93,4 @@ PRIVATE>
|
|||
! TODO: I don't like that you have to specify the upper bound, maybe try making
|
||||
! this lazy so it could also short-circuit when it finds the answer?
|
||||
|
||||
solution: euler047a
|
||||
SOLUTION: euler047a
|
||||
|
|
|
|||
|
|
@ -23,4 +23,4 @@ IN: project-euler.048
|
|||
! [ euler048 ] 100 ave-time
|
||||
! 276 ms run / 1 ms GC ave time - 100 trials
|
||||
|
||||
solution: euler048
|
||||
SOLUTION: euler048
|
||||
|
|
|
|||
|
|
@ -62,4 +62,4 @@ PRIVATE>
|
|||
! [ euler049 ] 100 ave-time
|
||||
! 206 ms ave run time - 10.25 SD (100 trials)
|
||||
|
||||
solution: euler049
|
||||
SOLUTION: euler049
|
||||
|
|
|
|||
|
|
@ -85,4 +85,4 @@ PRIVATE>
|
|||
! [ euler050 ] 100 ave-time
|
||||
! 291 ms run / 20.6 ms GC ave time - 100 trials
|
||||
|
||||
solution: euler050
|
||||
SOLUTION: euler050
|
||||
|
|
|
|||
|
|
@ -81,4 +81,4 @@ PRIVATE>
|
|||
: euler051 ( -- answer )
|
||||
2 (euler051) ;
|
||||
|
||||
solution: euler051
|
||||
SOLUTION: euler051
|
||||
|
|
|
|||
|
|
@ -48,4 +48,4 @@ PRIVATE>
|
|||
! [ euler052 ] 100 ave-time
|
||||
! 92 ms ave run time - 6.29 SD (100 trials)
|
||||
|
||||
solution: euler052
|
||||
SOLUTION: euler052
|
||||
|
|
|
|||
|
|
@ -32,4 +32,4 @@ IN: project-euler.053
|
|||
! [ euler053 ] 100 ave-time
|
||||
! 52 ms ave run time - 4.44 SD (100 trials)
|
||||
|
||||
solution: euler053
|
||||
SOLUTION: euler053
|
||||
|
|
|
|||
|
|
@ -81,4 +81,4 @@ PRIVATE>
|
|||
! [ euler054 ] 100 ave-time
|
||||
! 34 ms ave run time - 2.65 SD (100 trials)
|
||||
|
||||
solution: euler054
|
||||
SOLUTION: euler054
|
||||
|
|
|
|||
|
|
@ -66,4 +66,4 @@ PRIVATE>
|
|||
! [ euler055 ] 100 ave-time
|
||||
! 478 ms ave run time - 30.63 SD (100 trials)
|
||||
|
||||
solution: euler055
|
||||
SOLUTION: euler055
|
||||
|
|
|
|||
|
|
@ -29,4 +29,4 @@ IN: project-euler.056
|
|||
! [ euler056 ] 100 ave-time
|
||||
! 22 ms ave run time - 2.13 SD (100 trials)
|
||||
|
||||
solution: euler056
|
||||
SOLUTION: euler056
|
||||
|
|
|
|||
|
|
@ -41,4 +41,4 @@ IN: project-euler.057
|
|||
! [ euler057 ] 100 ave-time
|
||||
! 1728 ms ave run time - 80.81 SD (100 trials)
|
||||
|
||||
solution: euler057
|
||||
SOLUTION: euler057
|
||||
|
|
|
|||
|
|
@ -65,4 +65,4 @@ PRIVATE>
|
|||
! [ euler058 ] 10 ave-time
|
||||
! 12974 ms ave run time - 284.46 SD (10 trials)
|
||||
|
||||
solution: euler058
|
||||
SOLUTION: euler058
|
||||
|
|
|
|||
|
|
@ -89,4 +89,4 @@ PRIVATE>
|
|||
! [ euler059 ] 100 ave-time
|
||||
! 8 ms ave run time - 1.4 SD (100 trials)
|
||||
|
||||
solution: euler059
|
||||
SOLUTION: euler059
|
||||
|
|
|
|||
|
|
@ -51,4 +51,4 @@ PRIVATE>
|
|||
! [ euler062 ] 100 ave-time
|
||||
! 78 ms ave run time - 0.9 SD (100 trials)
|
||||
|
||||
solution: euler062
|
||||
SOLUTION: euler062
|
||||
|
|
|
|||
|
|
@ -34,4 +34,4 @@ IN: project-euler.063
|
|||
! [ euler063 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.0 SD (100 trials)
|
||||
|
||||
solution: euler063
|
||||
SOLUTION: euler063
|
||||
|
|
|
|||
|
|
@ -74,4 +74,4 @@ PRIVATE>
|
|||
! [ euler065 ] 100 ave-time
|
||||
! 4 ms ave run time - 0.33 SD (100 trials)
|
||||
|
||||
solution: euler065
|
||||
SOLUTION: euler065
|
||||
|
|
|
|||
|
|
@ -59,4 +59,4 @@ PRIVATE>
|
|||
! [ euler067a ] 100 ave-time
|
||||
! 21 ms ave run time - 2.65 SD (100 trials)
|
||||
|
||||
solution: euler067a
|
||||
SOLUTION: euler067a
|
||||
|
|
|
|||
|
|
@ -81,4 +81,4 @@ PRIVATE>
|
|||
! [ euler069a ] 100 ave-time
|
||||
! 0 ms ave run time - 0.01 SD (100 trials)
|
||||
|
||||
solution: euler069a
|
||||
SOLUTION: euler069a
|
||||
|
|
|
|||
|
|
@ -65,4 +65,4 @@ PRIVATE>
|
|||
! [ euler070 ] 100 ave-time
|
||||
! 379 ms ave run time - 1.15 SD (100 trials)
|
||||
|
||||
solution: euler070
|
||||
SOLUTION: euler070
|
||||
|
|
|
|||
|
|
@ -39,4 +39,4 @@ IN: project-euler.071
|
|||
! [ euler071 ] 100 ave-time
|
||||
! 155 ms ave run time - 6.95 SD (100 trials)
|
||||
|
||||
solution: euler071
|
||||
SOLUTION: euler071
|
||||
|
|
|
|||
|
|
@ -35,4 +35,4 @@ IN: project-euler.072
|
|||
! [ euler072 ] 100 ave-time
|
||||
! 5274 ms ave run time - 102.7 SD (100 trials)
|
||||
|
||||
solution: euler072
|
||||
SOLUTION: euler072
|
||||
|
|
|
|||
|
|
@ -48,4 +48,4 @@ PRIVATE>
|
|||
! [ euler073 ] 10 ave-time
|
||||
! 20506 ms ave run time - 937.07 SD (10 trials)
|
||||
|
||||
solution: euler073
|
||||
SOLUTION: euler073
|
||||
|
|
|
|||
|
|
@ -64,4 +64,4 @@ PRIVATE>
|
|||
! [ euler074 ] 10 ave-time
|
||||
! 25134 ms ave run time - 31.96 SD (10 trials)
|
||||
|
||||
solution: euler074
|
||||
SOLUTION: euler074
|
||||
|
|
|
|||
|
|
@ -75,4 +75,4 @@ PRIVATE>
|
|||
! [ euler075 ] 10 ave-time
|
||||
! 3341 ms ave run timen - 157.77 SD (10 trials)
|
||||
|
||||
solution: euler075
|
||||
SOLUTION: euler075
|
||||
|
|
|
|||
|
|
@ -56,4 +56,4 @@ PRIVATE>
|
|||
! [ euler076 ] 100 ave-time
|
||||
! 560 ms ave run time - 17.74 SD (100 trials)
|
||||
|
||||
solution: euler076
|
||||
SOLUTION: euler076
|
||||
|
|
|
|||
|
|
@ -63,4 +63,4 @@ PRIVATE>
|
|||
! TODO: set words on sequences are relatively slow; topological sort could be
|
||||
! cleaned up and generalized much better, but it works for this problem
|
||||
|
||||
solution: euler079
|
||||
SOLUTION: euler079
|
||||
|
|
|
|||
|
|
@ -72,4 +72,4 @@ PRIVATE>
|
|||
! [ euler081 ] 100 ave-time
|
||||
! 9 ms ave run time - 0.39 SD (100 trials)
|
||||
|
||||
solution: euler081
|
||||
SOLUTION: euler081
|
||||
|
|
|
|||
|
|
@ -58,4 +58,4 @@ PRIVATE>
|
|||
! [ euler085 ] 100 ave-time
|
||||
! 791 ms ave run time - 17.15 SD (100 trials)
|
||||
|
||||
solution: euler085
|
||||
SOLUTION: euler085
|
||||
|
|
|
|||
|
|
@ -45,4 +45,4 @@ IN: project-euler.089
|
|||
! [ euler089 ] 100 ave-time
|
||||
! 14 ms ave run time - 0.27 SD (100 trials)
|
||||
|
||||
solution: euler089
|
||||
SOLUTION: euler089
|
||||
|
|
|
|||
|
|
@ -50,4 +50,4 @@ PRIVATE>
|
|||
|
||||
! TODO: this solution is not very efficient, much better optimizations exist
|
||||
|
||||
solution: euler092
|
||||
SOLUTION: euler092
|
||||
|
|
|
|||
|
|
@ -28,4 +28,4 @@ IN: project-euler.097
|
|||
! [ euler097 ] 100 ave-time
|
||||
! 0 ms ave run timen - 0.22 SD (100 trials)
|
||||
|
||||
solution: euler097
|
||||
SOLUTION: euler097
|
||||
|
|
|
|||
|
|
@ -49,4 +49,4 @@ PRIVATE>
|
|||
! [ euler099 ] 100 ave-time
|
||||
! 16 ms ave run timen - 1.67 SD (100 trials)
|
||||
|
||||
solution: euler099
|
||||
SOLUTION: euler099
|
||||
|
|
|
|||
|
|
@ -32,4 +32,4 @@ IN: project-euler.100
|
|||
! [ euler100 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.14 SD (100 trials)
|
||||
|
||||
solution: euler100
|
||||
SOLUTION: euler100
|
||||
|
|
|
|||
|
|
@ -61,4 +61,4 @@ PRIVATE>
|
|||
! [ euler102 ] 100 ave-time
|
||||
! 12 ms ave run time - 0.92 SD (100 trials)
|
||||
|
||||
solution: euler102
|
||||
SOLUTION: euler102
|
||||
|
|
|
|||
|
|
@ -49,4 +49,4 @@ PRIVATE>
|
|||
! [ euler112 ] 100 ave-time
|
||||
! 2749 ms ave run time - 33.76 SD (100 trials)
|
||||
|
||||
solution: euler112
|
||||
SOLUTION: euler112
|
||||
|
|
|
|||
|
|
@ -57,4 +57,4 @@ PRIVATE>
|
|||
! [ euler116 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.34 SD (100 trials)
|
||||
|
||||
solution: euler116
|
||||
SOLUTION: euler116
|
||||
|
|
|
|||
|
|
@ -41,4 +41,4 @@ PRIVATE>
|
|||
! [ euler117 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.29 SD (100 trials)
|
||||
|
||||
solution: euler117
|
||||
SOLUTION: euler117
|
||||
|
|
|
|||
|
|
@ -60,4 +60,4 @@ PRIVATE>
|
|||
! array in the way of the sieve of eratosthene would scale
|
||||
! better on bigger values.
|
||||
|
||||
solution: euler124
|
||||
SOLUTION: euler124
|
||||
|
|
|
|||
|
|
@ -45,4 +45,4 @@ PRIVATE>
|
|||
! [ euler134 ] 10 ave-time
|
||||
! 933 ms ave run timen - 19.58 SD (10 trials)
|
||||
|
||||
solution: euler134
|
||||
SOLUTION: euler134
|
||||
|
|
|
|||
|
|
@ -51,4 +51,4 @@ PRIVATE>
|
|||
! [ euler148 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.17 SD (100 trials)
|
||||
|
||||
solution: euler148
|
||||
SOLUTION: euler148
|
||||
|
|
|
|||
|
|
@ -70,4 +70,4 @@ PRIVATE>
|
|||
! [ euler150 ] 10 ave-time
|
||||
! 30208 ms ave run time - 593.45 SD (10 trials)
|
||||
|
||||
solution: euler150
|
||||
SOLUTION: euler150
|
||||
|
|
|
|||
|
|
@ -74,4 +74,4 @@ DEFER: (euler151)
|
|||
! [ euler151 ] 100 ave-time
|
||||
! ? ms run time - 100 trials
|
||||
|
||||
solution: euler151
|
||||
SOLUTION: euler151
|
||||
|
|
|
|||
|
|
@ -35,4 +35,4 @@ PRIVATE>
|
|||
! [ euler164 ] 100 ave-time
|
||||
! 7 ms ave run time - 1.23 SD (100 trials)
|
||||
|
||||
solution: euler164
|
||||
SOLUTION: euler164
|
||||
|
|
|
|||
|
|
@ -39,4 +39,4 @@ MEMO: fn ( n -- x )
|
|||
! [ euler169 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.2 SD (100 trials)
|
||||
|
||||
solution: euler169
|
||||
SOLUTION: euler169
|
||||
|
|
|
|||
|
|
@ -35,4 +35,4 @@ PRIVATE>
|
|||
! [ euler173 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.35 SD (100 trials)
|
||||
|
||||
solution: euler173
|
||||
SOLUTION: euler173
|
||||
|
|
|
|||
|
|
@ -55,4 +55,4 @@ PRIVATE>
|
|||
! [ euler175 ] 100 ave-time
|
||||
! 0 ms ave run time - 0.31 SD (100 trials)
|
||||
|
||||
solution: euler175
|
||||
SOLUTION: euler175
|
||||
|
|
|
|||
|
|
@ -73,4 +73,4 @@ IN: project-euler.186
|
|||
! [ euler186 ] 10 ave-time
|
||||
! 18572 ms ave run time - 796.87 SD (10 trials)
|
||||
|
||||
solution: euler186
|
||||
SOLUTION: euler186
|
||||
|
|
|
|||
|
|
@ -40,4 +40,4 @@ PRIVATE>
|
|||
! [ euler188 ] 100 ave-time
|
||||
! 4 ms ave run time - 0.05 SD (100 trials)
|
||||
|
||||
solution: euler188
|
||||
SOLUTION: euler188
|
||||
|
|
|
|||
|
|
@ -51,4 +51,4 @@ PRIVATE>
|
|||
! [ euler150 ] 100 ave-time
|
||||
! 5 ms ave run time - 1.01 SD (100 trials)
|
||||
|
||||
solution: euler190
|
||||
SOLUTION: euler190
|
||||
|
|
|
|||
|
|
@ -62,4 +62,4 @@ PRIVATE>
|
|||
! [ euler203 ] 100 ave-time
|
||||
! 12 ms ave run time - 1.6 SD (100 trials)
|
||||
|
||||
solution: euler203
|
||||
SOLUTION: euler203
|
||||
|
|
|
|||
|
|
@ -44,4 +44,4 @@ PRIVATE>
|
|||
! [ euler206 ] 100 ave-time
|
||||
! 321 ms ave run time - 8.33 SD (100 trials)
|
||||
|
||||
solution: euler206
|
||||
SOLUTION: euler206
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue