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

factor: cleaning up last foo: words.

locals-and-roots
Doug Coleman 2016-06-22 14:02:54 -07:00
parent 693d9ecef8
commit 4a273ba95e
107 changed files with 111 additions and 396 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
benchmarks/benchmark/regex-dna/regex-dna-tests.factor
View File

@ -3,8 +3,8 @@ io.streams.string kernel tools.test splitting ;
IN: benchmark.regex-dna.tests IN: benchmark.regex-dna.tests
{ t } [ { 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 [ 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 = ascii file-contents =
] unit-test ] unit-test

177
core-locals.factor
View File

@ -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

16
core/modern/out/out.factor
View File

@ -3,7 +3,7 @@
USING: accessors arrays combinators combinators.short-circuit USING: accessors arrays combinators combinators.short-circuit
combinators.smart continuations fry io io.encodings.utf8 combinators.smart continuations fry io io.encodings.utf8
io.files io.streams.string kernel modern modern.paths 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 sequences.extras sets splitting splitting.monotonic strings
unicode ; unicode ;
IN: modern.out IN: modern.out
@ -213,18 +213,6 @@ M: compound-sequence-literal write-literal
: rewrite-paths ( seq quot -- ) '[ _ rewrite-path ] each ; inline : 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' ) : paren-word>tick-word ( string -- string' )
dup [ "(" ?head drop ")" ?tail drop "'" append ] [ ] if ; dup [ "(" ?head drop ")" ?tail drop "'" append ] [ ] if ;
@ -246,5 +234,3 @@ M: compound-sequence-literal write-literal
: transform-source ( quot -- ) : transform-source ( quot -- )
all-paths swap rewrite-paths ; inline all-paths swap rewrite-paths ; inline
! : transform-core ( quot -- ) lexable-core-paths swap rewrite-paths ; inline

2
demos/project-euler/001/001.factor
View File

@ -66,4 +66,4 @@ PRIVATE>
! [ euler001d ] 100 ave-time ! [ euler001d ] 100 ave-time
! 0 ms ave run time - 0.08 SD (100 trials) ! 0 ms ave run time - 0.08 SD (100 trials)
solution: euler001 SOLUTION: euler001

2
demos/project-euler/002/002.factor
View File

@ -77,4 +77,4 @@ PRIVATE>
! [ euler002b ] 100 ave-time ! [ euler002b ] 100 ave-time
! 0 ms ave run time - 0.0 SD (100 trials) ! 0 ms ave run time - 0.0 SD (100 trials)
solution: euler002b SOLUTION: euler002b

2
demos/project-euler/003/003.factor
View File

@ -22,4 +22,4 @@ IN: project-euler.003
! [ euler003 ] 100 ave-time ! [ euler003 ] 100 ave-time
! 1 ms ave run time - 0.49 SD (100 trials) ! 1 ms ave run time - 0.49 SD (100 trials)
solution: euler003 SOLUTION: euler003

2
demos/project-euler/004/004.factor
View File

@ -34,4 +34,4 @@ PRIVATE>
! [ euler004 ] 100 ave-time ! [ euler004 ] 100 ave-time
! 1164 ms ave run time - 39.35 SD (100 trials) ! 1164 ms ave run time - 39.35 SD (100 trials)
solution: euler004 SOLUTION: euler004

2
demos/project-euler/005/005.factor
View File

@ -23,4 +23,4 @@ IN: project-euler.005
! [ euler005 ] 100 ave-time ! [ euler005 ] 100 ave-time
! 0 ms ave run time - 0.14 SD (100 trials) ! 0 ms ave run time - 0.14 SD (100 trials)
solution: euler005 SOLUTION: euler005

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

@ -40,4 +40,4 @@ PRIVATE>
! [ euler006 ] 100 ave-time ! [ euler006 ] 100 ave-time
! 0 ms ave run time - 0.24 SD (100 trials) ! 0 ms ave run time - 0.24 SD (100 trials)
solution: euler006 SOLUTION: euler006

2
demos/project-euler/007/007.factor
View File

@ -23,4 +23,4 @@ IN: project-euler.007
! [ euler007 ] 100 ave-time ! [ euler007 ] 100 ave-time
! 5 ms ave run time - 1.13 SD (100 trials) ! 5 ms ave run time - 1.13 SD (100 trials)
solution: euler007 SOLUTION: euler007

2
demos/project-euler/008/008.factor
View File

@ -69,4 +69,4 @@ PRIVATE>
! [ euler008 ] 100 ave-time ! [ euler008 ] 100 ave-time
! 2 ms ave run time - 0.79 SD (100 trials) ! 2 ms ave run time - 0.79 SD (100 trials)
solution: euler008 SOLUTION: euler008

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

@ -50,4 +50,4 @@ PRIVATE>
! [ euler009 ] 100 ave-time ! [ euler009 ] 100 ave-time
! 1 ms ave run time - 0.73 SD (100 trials) ! 1 ms ave run time - 0.73 SD (100 trials)
solution: euler009 SOLUTION: euler009

2
demos/project-euler/010/010.factor
View File

@ -22,4 +22,4 @@ IN: project-euler.010
! [ euler010 ] 100 ave-time ! [ euler010 ] 100 ave-time
! 15 ms ave run time - 0.41 SD (100 trials) ! 15 ms ave run time - 0.41 SD (100 trials)
solution: euler010 SOLUTION: euler010

2
demos/project-euler/011/011.factor
View File

@ -101,4 +101,4 @@ PRIVATE>
! [ euler011 ] 100 ave-time ! [ euler011 ] 100 ave-time
! 3 ms ave run time - 0.77 SD (100 trials) ! 3 ms ave run time - 0.77 SD (100 trials)
solution: euler011 SOLUTION: euler011

2
demos/project-euler/012/012.factor
View File

@ -39,4 +39,4 @@ IN: project-euler.012
! [ euler012 ] 10 ave-time ! [ euler012 ] 10 ave-time
! 6573 ms ave run time - 346.27 SD (10 trials) ! 6573 ms ave run time - 346.27 SD (10 trials)
solution: euler012 SOLUTION: euler012

2
demos/project-euler/013/013.factor
View File

@ -230,4 +230,4 @@ PRIVATE>
! [ euler013 ] 100 ave-time ! [ euler013 ] 100 ave-time
! 0 ms ave run time - 0.31 SD (100 trials) ! 0 ms ave run time - 0.31 SD (100 trials)
solution: euler013 SOLUTION: euler013

2
demos/project-euler/014/014.factor
View File

@ -70,4 +70,4 @@ PRIVATE>
! TODO: try using memoization ! TODO: try using memoization
solution: euler014a SOLUTION: euler014a

2
demos/project-euler/015/015.factor
View File

@ -30,4 +30,4 @@ PRIVATE>
! [ euler015 ] 100 ave-time ! [ euler015 ] 100 ave-time
! 0 ms ave run time - 0.2 SD (100 trials) ! 0 ms ave run time - 0.2 SD (100 trials)
solution: euler015 SOLUTION: euler015

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

@ -22,4 +22,4 @@ IN: project-euler.016
! [ euler016 ] 100 ave-time ! [ euler016 ] 100 ave-time
! 0 ms ave run time - 0.67 SD (100 trials) ! 0 ms ave run time - 0.67 SD (100 trials)
solution: euler016 SOLUTION: euler016

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

@ -29,4 +29,4 @@ IN: project-euler.017
! [ euler017 ] 100 ave-time ! [ euler017 ] 100 ave-time
! 15 ms ave run time - 1.71 SD (100 trials) ! 15 ms ave run time - 1.71 SD (100 trials)
solution: euler017 SOLUTION: euler017

2
demos/project-euler/018/018.factor
View File

@ -90,4 +90,4 @@ PRIVATE>
! [ euler018a ] 100 ave-time ! [ euler018a ] 100 ave-time
! 0 ms ave run time - 0.39 SD (100 trials) ! 0 ms ave run time - 0.39 SD (100 trials)
solution: euler018a SOLUTION: euler018a

2
demos/project-euler/019/019.factor
View File

@ -63,4 +63,4 @@ PRIVATE>
! [ euler019a ] 100 ave-time ! [ euler019a ] 100 ave-time
! 17 ms ave run time - 2.13 SD (100 trials) ! 17 ms ave run time - 2.13 SD (100 trials)
solution: euler019 SOLUTION: euler019

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

@ -22,4 +22,4 @@ IN: project-euler.020
! [ euler020 ] 100 ave-time ! [ euler020 ] 100 ave-time
! 0 ms ave run time - 0.55 (100 trials) ! 0 ms ave run time - 0.55 (100 trials)
solution: euler020 SOLUTION: euler020

2
demos/project-euler/021/021.factor
View File

@ -35,4 +35,4 @@ IN: project-euler.021
! [ euler021 ] 100 ave-time ! [ euler021 ] 100 ave-time
! 335 ms ave run time - 18.63 SD (100 trials) ! 335 ms ave run time - 18.63 SD (100 trials)
solution: euler021 SOLUTION: euler021

2
demos/project-euler/022/022.factor
View File

@ -42,4 +42,4 @@ PRIVATE>
! [ euler022 ] 100 ave-time ! [ euler022 ] 100 ave-time
! 74 ms ave run time - 5.13 SD (100 trials) ! 74 ms ave run time - 5.13 SD (100 trials)
solution: euler022 SOLUTION: euler022

2
demos/project-euler/023/023.factor
View File

@ -55,4 +55,4 @@ PRIVATE>
! [ euler023 ] time ! [ euler023 ] time
! 2.15542 seconds ! 2.15542 seconds
solution: euler023 SOLUTION: euler023

2
demos/project-euler/024/024.factor
View File

@ -29,4 +29,4 @@ IN: project-euler.024
! [ euler024 ] 100 ave-time ! [ euler024 ] 100 ave-time
! 0 ms ave run time - 0.27 SD (100 trials) ! 0 ms ave run time - 0.27 SD (100 trials)
solution: euler024 SOLUTION: euler024

2
demos/project-euler/025/025.factor
View File

@ -78,4 +78,4 @@ PRIVATE>
! [ euler025a ] 100 ave-time ! [ euler025a ] 100 ave-time
! 0 ms ave run time - 0.17 SD (100 trials) ! 0 ms ave run time - 0.17 SD (100 trials)
solution: euler025a SOLUTION: euler025a

2
demos/project-euler/026/026.factor
View File

@ -65,4 +65,4 @@ PRIVATE>
! [ euler026 ] 100 ave-time ! [ euler026 ] 100 ave-time
! 290 ms ave run time - 19.2 SD (100 trials) ! 290 ms ave run time - 19.2 SD (100 trials)
solution: euler026 SOLUTION: euler026

2
demos/project-euler/027/027.factor
View File

@ -72,4 +72,4 @@ PRIVATE>
! TODO: generalize max-consecutive/max-product (from #26) into a new word ! TODO: generalize max-consecutive/max-product (from #26) into a new word
solution: euler027 SOLUTION: euler027

2
demos/project-euler/028/028.factor
View File

@ -43,4 +43,4 @@ PRIVATE>
! [ euler028 ] 100 ave-time ! [ euler028 ] 100 ave-time
! 0 ms ave run time - 0.39 SD (100 trials) ! 0 ms ave run time - 0.39 SD (100 trials)
solution: euler028 SOLUTION: euler028

2
demos/project-euler/029/029.factor
View File

@ -34,4 +34,4 @@ IN: project-euler.029
! [ euler029 ] 100 ave-time ! [ euler029 ] 100 ave-time
! 704 ms ave run time - 28.07 SD (100 trials) ! 704 ms ave run time - 28.07 SD (100 trials)
solution: euler029 SOLUTION: euler029

2
demos/project-euler/030/030.factor
View File

@ -43,4 +43,4 @@ PRIVATE>
! [ euler030 ] 100 ave-time ! [ euler030 ] 100 ave-time
! 1700 ms ave run time - 64.84 SD (100 trials) ! 1700 ms ave run time - 64.84 SD (100 trials)
solution: euler030 SOLUTION: euler030

2
demos/project-euler/031/031.factor
View File

@ -60,4 +60,4 @@ PRIVATE>
! TODO: generalize to eliminate duplication; use a sequence to specify denominations? ! TODO: generalize to eliminate duplication; use a sequence to specify denominations?
solution: euler031 SOLUTION: euler031

2
demos/project-euler/032/032.factor
View File

@ -77,4 +77,4 @@ PRIVATE>
! [ euler032a ] 10 ave-time ! [ euler032a ] 10 ave-time
! 2624 ms ave run time - 131.91 SD (10 trials) ! 2624 ms ave run time - 131.91 SD (10 trials)
solution: euler032a SOLUTION: euler032a

2
demos/project-euler/033/033.factor
View File

@ -52,4 +52,4 @@ PRIVATE>
! [ euler033 ] 100 ave-time ! [ euler033 ] 100 ave-time
! 7 ms ave run time - 1.31 SD (100 trials) ! 7 ms ave run time - 1.31 SD (100 trials)
solution: euler033 SOLUTION: euler033

2
demos/project-euler/034/034.factor
View File

@ -44,4 +44,4 @@ PRIVATE>
! [ euler034 ] 10 ave-time ! [ euler034 ] 10 ave-time
! 5506 ms ave run time - 144.0 SD (10 trials) ! 5506 ms ave run time - 144.0 SD (10 trials)
solution: euler034 SOLUTION: euler034

2
demos/project-euler/035/035.factor
View File

@ -58,4 +58,4 @@ PRIVATE>
! TODO: try using bit arrays or other methods outlined here: ! TODO: try using bit arrays or other methods outlined here:
! http://home.comcast.net/~babdulbaki/Circular_Primes.html ! http://home.comcast.net/~babdulbaki/Circular_Primes.html
solution: euler035 SOLUTION: euler035

2
demos/project-euler/036/036.factor
View File

@ -36,4 +36,4 @@ PRIVATE>
! [ euler036 ] 100 ave-time ! [ euler036 ] 100 ave-time
! 1703 ms ave run time - 96.6 SD (100 trials) ! 1703 ms ave run time - 96.6 SD (100 trials)
solution: euler036 SOLUTION: euler036

2
demos/project-euler/037/037.factor
View File

@ -49,4 +49,4 @@ PRIVATE>
! [ euler037 ] 100 ave-time ! [ euler037 ] 100 ave-time
! 130 ms ave run time - 6.27 SD (100 trials) ! 130 ms ave run time - 6.27 SD (100 trials)
solution: euler037 SOLUTION: euler037

2
demos/project-euler/038/038.factor
View File

@ -53,4 +53,4 @@ PRIVATE>
! [ euler038 ] 100 ave-time ! [ euler038 ] 100 ave-time
! 11 ms ave run time - 1.5 SD (100 trials) ! 11 ms ave run time - 1.5 SD (100 trials)
solution: euler038 SOLUTION: euler038

2
demos/project-euler/039/039.factor
View File

@ -62,4 +62,4 @@ PRIVATE>
! [ euler039 ] 100 ave-time ! [ euler039 ] 100 ave-time
! 1 ms ave run time - 0.37 SD (100 trials) ! 1 ms ave run time - 0.37 SD (100 trials)
solution: euler039 SOLUTION: euler039

2
demos/project-euler/040/040.factor
View File

@ -48,4 +48,4 @@ PRIVATE>
! [ euler040 ] 100 ave-time ! [ euler040 ] 100 ave-time
! 444 ms ave run time - 23.64 SD (100 trials) ! 444 ms ave run time - 23.64 SD (100 trials)
solution: euler040 SOLUTION: euler040

2
demos/project-euler/041/041.factor
View File

@ -37,4 +37,4 @@ IN: project-euler.041
! [ euler041 ] 100 ave-time ! [ euler041 ] 100 ave-time
! 64 ms ave run time - 4.22 SD (100 trials) ! 64 ms ave run time - 4.22 SD (100 trials)
solution: euler041 SOLUTION: euler041

2
demos/project-euler/042/042.factor
View File

@ -71,4 +71,4 @@ PRIVATE>
! [ euler042a ] 100 ave-time ! [ euler042a ] 100 ave-time
! 21 ms ave run time - 2.2 SD (100 trials) ! 21 ms ave run time - 2.2 SD (100 trials)
solution: euler042a SOLUTION: euler042a

2
demos/project-euler/043/043.factor
View File

@ -98,4 +98,4 @@ PRIVATE>
! [ euler043a ] 100 ave-time ! [ euler043a ] 100 ave-time
! 10 ms ave run time - 1.37 SD (100 trials) ! 10 ms ave run time - 1.37 SD (100 trials)
solution: euler043a SOLUTION: euler043a

2
demos/project-euler/044/044.factor
View File

@ -51,4 +51,4 @@ PRIVATE>
! [ euler044 ] 10 ave-time ! [ euler044 ] 10 ave-time
! 289 ms ave run time - 0.27 SD (10 trials) ! 289 ms ave run time - 0.27 SD (10 trials)
solution: euler044 SOLUTION: euler044

2
demos/project-euler/045/045.factor
View File

@ -46,4 +46,4 @@ PRIVATE>
! [ euler045 ] 100 ave-time ! [ euler045 ] 100 ave-time
! 12 ms ave run time - 1.71 SD (100 trials) ! 12 ms ave run time - 1.71 SD (100 trials)
solution: euler045 SOLUTION: euler045

2
demos/project-euler/046/046.factor
View File

@ -50,4 +50,4 @@ PRIVATE>
! [ euler046 ] 100 ave-time ! [ euler046 ] 100 ave-time
! 37 ms ave run time - 3.39 SD (100 trials) ! 37 ms ave run time - 3.39 SD (100 trials)
solution: euler046 SOLUTION: euler046

2
demos/project-euler/047/047.factor
View File

@ -93,4 +93,4 @@ PRIVATE>
! TODO: I don't like that you have to specify the upper bound, maybe try making ! 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? ! this lazy so it could also short-circuit when it finds the answer?
solution: euler047a SOLUTION: euler047a

2
demos/project-euler/048/048.factor
View File

@ -23,4 +23,4 @@ IN: project-euler.048
! [ euler048 ] 100 ave-time ! [ euler048 ] 100 ave-time
! 276 ms run / 1 ms GC ave time - 100 trials ! 276 ms run / 1 ms GC ave time - 100 trials
solution: euler048 SOLUTION: euler048

2
demos/project-euler/049/049.factor
View File

@ -62,4 +62,4 @@ PRIVATE>
! [ euler049 ] 100 ave-time ! [ euler049 ] 100 ave-time
! 206 ms ave run time - 10.25 SD (100 trials) ! 206 ms ave run time - 10.25 SD (100 trials)
solution: euler049 SOLUTION: euler049

2
demos/project-euler/050/050.factor
View File

@ -85,4 +85,4 @@ PRIVATE>
! [ euler050 ] 100 ave-time ! [ euler050 ] 100 ave-time
! 291 ms run / 20.6 ms GC ave time - 100 trials ! 291 ms run / 20.6 ms GC ave time - 100 trials
solution: euler050 SOLUTION: euler050

2
demos/project-euler/051/051.factor
View File

@ -81,4 +81,4 @@ PRIVATE>
: euler051 ( -- answer ) : euler051 ( -- answer )
2 (euler051) ; 2 (euler051) ;
solution: euler051 SOLUTION: euler051

2
demos/project-euler/052/052.factor
View File

@ -48,4 +48,4 @@ PRIVATE>
! [ euler052 ] 100 ave-time ! [ euler052 ] 100 ave-time
! 92 ms ave run time - 6.29 SD (100 trials) ! 92 ms ave run time - 6.29 SD (100 trials)
solution: euler052 SOLUTION: euler052

2
demos/project-euler/053/053.factor
View File

@ -32,4 +32,4 @@ IN: project-euler.053
! [ euler053 ] 100 ave-time ! [ euler053 ] 100 ave-time
! 52 ms ave run time - 4.44 SD (100 trials) ! 52 ms ave run time - 4.44 SD (100 trials)
solution: euler053 SOLUTION: euler053

2
demos/project-euler/054/054.factor
View File

@ -81,4 +81,4 @@ PRIVATE>
! [ euler054 ] 100 ave-time ! [ euler054 ] 100 ave-time
! 34 ms ave run time - 2.65 SD (100 trials) ! 34 ms ave run time - 2.65 SD (100 trials)
solution: euler054 SOLUTION: euler054

2
demos/project-euler/055/055.factor
View File

@ -66,4 +66,4 @@ PRIVATE>
! [ euler055 ] 100 ave-time ! [ euler055 ] 100 ave-time
! 478 ms ave run time - 30.63 SD (100 trials) ! 478 ms ave run time - 30.63 SD (100 trials)
solution: euler055 SOLUTION: euler055

2
demos/project-euler/056/056.factor
View File

@ -29,4 +29,4 @@ IN: project-euler.056
! [ euler056 ] 100 ave-time ! [ euler056 ] 100 ave-time
! 22 ms ave run time - 2.13 SD (100 trials) ! 22 ms ave run time - 2.13 SD (100 trials)
solution: euler056 SOLUTION: euler056

2
demos/project-euler/057/057.factor
View File

@ -41,4 +41,4 @@ IN: project-euler.057
! [ euler057 ] 100 ave-time ! [ euler057 ] 100 ave-time
! 1728 ms ave run time - 80.81 SD (100 trials) ! 1728 ms ave run time - 80.81 SD (100 trials)
solution: euler057 SOLUTION: euler057

2
demos/project-euler/058/058.factor
View File

@ -65,4 +65,4 @@ PRIVATE>
! [ euler058 ] 10 ave-time ! [ euler058 ] 10 ave-time
! 12974 ms ave run time - 284.46 SD (10 trials) ! 12974 ms ave run time - 284.46 SD (10 trials)
solution: euler058 SOLUTION: euler058

2
demos/project-euler/059/059.factor
View File

@ -89,4 +89,4 @@ PRIVATE>
! [ euler059 ] 100 ave-time ! [ euler059 ] 100 ave-time
! 8 ms ave run time - 1.4 SD (100 trials) ! 8 ms ave run time - 1.4 SD (100 trials)
solution: euler059 SOLUTION: euler059

2
demos/project-euler/062/062.factor
View File

@ -51,4 +51,4 @@ PRIVATE>
! [ euler062 ] 100 ave-time ! [ euler062 ] 100 ave-time
! 78 ms ave run time - 0.9 SD (100 trials) ! 78 ms ave run time - 0.9 SD (100 trials)
solution: euler062 SOLUTION: euler062

2
demos/project-euler/063/063.factor
View File

@ -34,4 +34,4 @@ IN: project-euler.063
! [ euler063 ] 100 ave-time ! [ euler063 ] 100 ave-time
! 0 ms ave run time - 0.0 SD (100 trials) ! 0 ms ave run time - 0.0 SD (100 trials)
solution: euler063 SOLUTION: euler063

2
demos/project-euler/065/065.factor
View File

@ -74,4 +74,4 @@ PRIVATE>
! [ euler065 ] 100 ave-time ! [ euler065 ] 100 ave-time
! 4 ms ave run time - 0.33 SD (100 trials) ! 4 ms ave run time - 0.33 SD (100 trials)
solution: euler065 SOLUTION: euler065

2
demos/project-euler/067/067.factor
View File

@ -59,4 +59,4 @@ PRIVATE>
! [ euler067a ] 100 ave-time ! [ euler067a ] 100 ave-time
! 21 ms ave run time - 2.65 SD (100 trials) ! 21 ms ave run time - 2.65 SD (100 trials)
solution: euler067a SOLUTION: euler067a

2
demos/project-euler/069/069.factor
View File

@ -81,4 +81,4 @@ PRIVATE>
! [ euler069a ] 100 ave-time ! [ euler069a ] 100 ave-time
! 0 ms ave run time - 0.01 SD (100 trials) ! 0 ms ave run time - 0.01 SD (100 trials)
solution: euler069a SOLUTION: euler069a

2
demos/project-euler/070/070.factor
View File

@ -65,4 +65,4 @@ PRIVATE>
! [ euler070 ] 100 ave-time ! [ euler070 ] 100 ave-time
! 379 ms ave run time - 1.15 SD (100 trials) ! 379 ms ave run time - 1.15 SD (100 trials)
solution: euler070 SOLUTION: euler070

2
demos/project-euler/071/071.factor
View File

@ -39,4 +39,4 @@ IN: project-euler.071
! [ euler071 ] 100 ave-time ! [ euler071 ] 100 ave-time
! 155 ms ave run time - 6.95 SD (100 trials) ! 155 ms ave run time - 6.95 SD (100 trials)
solution: euler071 SOLUTION: euler071

2
demos/project-euler/072/072.factor
View File

@ -35,4 +35,4 @@ IN: project-euler.072
! [ euler072 ] 100 ave-time ! [ euler072 ] 100 ave-time
! 5274 ms ave run time - 102.7 SD (100 trials) ! 5274 ms ave run time - 102.7 SD (100 trials)
solution: euler072 SOLUTION: euler072

2
demos/project-euler/073/073.factor
View File

@ -48,4 +48,4 @@ PRIVATE>
! [ euler073 ] 10 ave-time ! [ euler073 ] 10 ave-time
! 20506 ms ave run time - 937.07 SD (10 trials) ! 20506 ms ave run time - 937.07 SD (10 trials)
solution: euler073 SOLUTION: euler073

2
demos/project-euler/074/074.factor
View File

@ -64,4 +64,4 @@ PRIVATE>
! [ euler074 ] 10 ave-time ! [ euler074 ] 10 ave-time
! 25134 ms ave run time - 31.96 SD (10 trials) ! 25134 ms ave run time - 31.96 SD (10 trials)
solution: euler074 SOLUTION: euler074

2
demos/project-euler/075/075.factor
View File

@ -75,4 +75,4 @@ PRIVATE>
! [ euler075 ] 10 ave-time ! [ euler075 ] 10 ave-time
! 3341 ms ave run timen - 157.77 SD (10 trials) ! 3341 ms ave run timen - 157.77 SD (10 trials)
solution: euler075 SOLUTION: euler075

2
demos/project-euler/076/076.factor
View File

@ -56,4 +56,4 @@ PRIVATE>
! [ euler076 ] 100 ave-time ! [ euler076 ] 100 ave-time
! 560 ms ave run time - 17.74 SD (100 trials) ! 560 ms ave run time - 17.74 SD (100 trials)
solution: euler076 SOLUTION: euler076

2
demos/project-euler/079/079.factor
View File

@ -63,4 +63,4 @@ PRIVATE>
! TODO: set words on sequences are relatively slow; topological sort could be ! TODO: set words on sequences are relatively slow; topological sort could be
! cleaned up and generalized much better, but it works for this problem ! cleaned up and generalized much better, but it works for this problem
solution: euler079 SOLUTION: euler079

2
demos/project-euler/081/081.factor
View File

@ -72,4 +72,4 @@ PRIVATE>
! [ euler081 ] 100 ave-time ! [ euler081 ] 100 ave-time
! 9 ms ave run time - 0.39 SD (100 trials) ! 9 ms ave run time - 0.39 SD (100 trials)
solution: euler081 SOLUTION: euler081

2
demos/project-euler/085/085.factor
View File

@ -58,4 +58,4 @@ PRIVATE>
! [ euler085 ] 100 ave-time ! [ euler085 ] 100 ave-time
! 791 ms ave run time - 17.15 SD (100 trials) ! 791 ms ave run time - 17.15 SD (100 trials)
solution: euler085 SOLUTION: euler085

2
demos/project-euler/089/089.factor
View File

@ -45,4 +45,4 @@ IN: project-euler.089
! [ euler089 ] 100 ave-time ! [ euler089 ] 100 ave-time
! 14 ms ave run time - 0.27 SD (100 trials) ! 14 ms ave run time - 0.27 SD (100 trials)
solution: euler089 SOLUTION: euler089

2
demos/project-euler/092/092.factor
View File

@ -50,4 +50,4 @@ PRIVATE>
! TODO: this solution is not very efficient, much better optimizations exist ! TODO: this solution is not very efficient, much better optimizations exist
solution: euler092 SOLUTION: euler092

2
demos/project-euler/097/097.factor
View File

@ -28,4 +28,4 @@ IN: project-euler.097
! [ euler097 ] 100 ave-time ! [ euler097 ] 100 ave-time
! 0 ms ave run timen - 0.22 SD (100 trials) ! 0 ms ave run timen - 0.22 SD (100 trials)
solution: euler097 SOLUTION: euler097

2
demos/project-euler/099/099.factor
View File

@ -49,4 +49,4 @@ PRIVATE>
! [ euler099 ] 100 ave-time ! [ euler099 ] 100 ave-time
! 16 ms ave run timen - 1.67 SD (100 trials) ! 16 ms ave run timen - 1.67 SD (100 trials)
solution: euler099 SOLUTION: euler099

2
demos/project-euler/100/100.factor
View File

@ -32,4 +32,4 @@ IN: project-euler.100
! [ euler100 ] 100 ave-time ! [ euler100 ] 100 ave-time
! 0 ms ave run time - 0.14 SD (100 trials) ! 0 ms ave run time - 0.14 SD (100 trials)
solution: euler100 SOLUTION: euler100

2
demos/project-euler/102/102.factor
View File

@ -61,4 +61,4 @@ PRIVATE>
! [ euler102 ] 100 ave-time ! [ euler102 ] 100 ave-time
! 12 ms ave run time - 0.92 SD (100 trials) ! 12 ms ave run time - 0.92 SD (100 trials)
solution: euler102 SOLUTION: euler102

2
demos/project-euler/112/112.factor
View File

@ -49,4 +49,4 @@ PRIVATE>
! [ euler112 ] 100 ave-time ! [ euler112 ] 100 ave-time
! 2749 ms ave run time - 33.76 SD (100 trials) ! 2749 ms ave run time - 33.76 SD (100 trials)
solution: euler112 SOLUTION: euler112

2
demos/project-euler/116/116.factor
View File

@ -57,4 +57,4 @@ PRIVATE>
! [ euler116 ] 100 ave-time ! [ euler116 ] 100 ave-time
! 0 ms ave run time - 0.34 SD (100 trials) ! 0 ms ave run time - 0.34 SD (100 trials)
solution: euler116 SOLUTION: euler116

2
demos/project-euler/117/117.factor
View File

@ -41,4 +41,4 @@ PRIVATE>
! [ euler117 ] 100 ave-time ! [ euler117 ] 100 ave-time
! 0 ms ave run time - 0.29 SD (100 trials) ! 0 ms ave run time - 0.29 SD (100 trials)
solution: euler117 SOLUTION: euler117

2
demos/project-euler/124/124.factor
View File

@ -60,4 +60,4 @@ PRIVATE>
! array in the way of the sieve of eratosthene would scale ! array in the way of the sieve of eratosthene would scale
! better on bigger values. ! better on bigger values.
solution: euler124 SOLUTION: euler124

2
demos/project-euler/134/134.factor
View File

@ -45,4 +45,4 @@ PRIVATE>
! [ euler134 ] 10 ave-time ! [ euler134 ] 10 ave-time
! 933 ms ave run timen - 19.58 SD (10 trials) ! 933 ms ave run timen - 19.58 SD (10 trials)
solution: euler134 SOLUTION: euler134

2
demos/project-euler/148/148.factor
View File

@ -51,4 +51,4 @@ PRIVATE>
! [ euler148 ] 100 ave-time ! [ euler148 ] 100 ave-time
! 0 ms ave run time - 0.17 SD (100 trials) ! 0 ms ave run time - 0.17 SD (100 trials)
solution: euler148 SOLUTION: euler148

2
demos/project-euler/150/150.factor
View File

@ -70,4 +70,4 @@ PRIVATE>
! [ euler150 ] 10 ave-time ! [ euler150 ] 10 ave-time
! 30208 ms ave run time - 593.45 SD (10 trials) ! 30208 ms ave run time - 593.45 SD (10 trials)
solution: euler150 SOLUTION: euler150

2
demos/project-euler/151/151.factor
View File

@ -74,4 +74,4 @@ DEFER: (euler151)
! [ euler151 ] 100 ave-time ! [ euler151 ] 100 ave-time
! ? ms run time - 100 trials ! ? ms run time - 100 trials
solution: euler151 SOLUTION: euler151

2
demos/project-euler/164/164.factor
View File

@ -35,4 +35,4 @@ PRIVATE>
! [ euler164 ] 100 ave-time ! [ euler164 ] 100 ave-time
! 7 ms ave run time - 1.23 SD (100 trials) ! 7 ms ave run time - 1.23 SD (100 trials)
solution: euler164 SOLUTION: euler164

2
demos/project-euler/169/169.factor
View File

@ -39,4 +39,4 @@ MEMO: fn ( n -- x )
! [ euler169 ] 100 ave-time ! [ euler169 ] 100 ave-time
! 0 ms ave run time - 0.2 SD (100 trials) ! 0 ms ave run time - 0.2 SD (100 trials)
solution: euler169 SOLUTION: euler169

2
demos/project-euler/173/173.factor
View File

@ -35,4 +35,4 @@ PRIVATE>
! [ euler173 ] 100 ave-time ! [ euler173 ] 100 ave-time
! 0 ms ave run time - 0.35 SD (100 trials) ! 0 ms ave run time - 0.35 SD (100 trials)
solution: euler173 SOLUTION: euler173

2
demos/project-euler/175/175.factor
View File

@ -55,4 +55,4 @@ PRIVATE>
! [ euler175 ] 100 ave-time ! [ euler175 ] 100 ave-time
! 0 ms ave run time - 0.31 SD (100 trials) ! 0 ms ave run time - 0.31 SD (100 trials)
solution: euler175 SOLUTION: euler175

2
demos/project-euler/186/186.factor
View File

@ -73,4 +73,4 @@ IN: project-euler.186
! [ euler186 ] 10 ave-time ! [ euler186 ] 10 ave-time
! 18572 ms ave run time - 796.87 SD (10 trials) ! 18572 ms ave run time - 796.87 SD (10 trials)
solution: euler186 SOLUTION: euler186

2
demos/project-euler/188/188.factor
View File

@ -40,4 +40,4 @@ PRIVATE>
! [ euler188 ] 100 ave-time ! [ euler188 ] 100 ave-time
! 4 ms ave run time - 0.05 SD (100 trials) ! 4 ms ave run time - 0.05 SD (100 trials)
solution: euler188 SOLUTION: euler188

2
demos/project-euler/190/190.factor
View File

@ -51,4 +51,4 @@ PRIVATE>
! [ euler150 ] 100 ave-time ! [ euler150 ] 100 ave-time
! 5 ms ave run time - 1.01 SD (100 trials) ! 5 ms ave run time - 1.01 SD (100 trials)
solution: euler190 SOLUTION: euler190

2
demos/project-euler/203/203.factor
View File

@ -62,4 +62,4 @@ PRIVATE>
! [ euler203 ] 100 ave-time ! [ euler203 ] 100 ave-time
! 12 ms ave run time - 1.6 SD (100 trials) ! 12 ms ave run time - 1.6 SD (100 trials)
solution: euler203 SOLUTION: euler203

2
demos/project-euler/206/206.factor
View File

@ -44,4 +44,4 @@ PRIVATE>
! [ euler206 ] 100 ave-time ! [ euler206 ] 100 ave-time
! 321 ms ave run time - 8.33 SD (100 trials) ! 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