factor/extra/partial-continuations/partial-continuations-tests...

USING: namespaces math partial-continuations tools.test
kernel sequences fry ;
IN: partial-continuations.tests

SYMBOL: sum

: range ( r from to -- n )
    over - 1 + rot [
        '[ over + @ drop ] each-integer drop f
    ] bshift 2nip ; inline

{ 55 } [
    0 sum set
    [ 1 10 range sum get + sum set f ] breset drop
    sum get
] unit-test
Initial import 2007-09-20 18:09:08 -04:00			`USING: namespaces math partial-continuations tools.test`
Fix some test failures 2009-11-10 17:48:06 -05:00			`kernel sequences fry ;`
New convention for unit tests 2008-03-01 17:00:45 -05:00			`IN: partial-continuations.tests`
Initial import 2007-09-20 18:09:08 -04:00
			`SYMBOL: sum`

			`: range ( r from to -- n )`
factor: clean up spaces in -tests files 2015-07-02 13:34:01 -04:00			`over - 1 + rot [`
Removing integers-as-sequences 2010-01-14 10:10:13 -05:00			`'[ over + @ drop ] each-integer drop f`
fix more compiler errors 2009-04-17 15:44:08 -04:00			`] bshift 2nip ; inline`
Initial import 2007-09-20 18:09:08 -04:00
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool! 2015-07-02 14:36:08 -04:00			`{ 55 } [`
factor: clean up spaces in -tests files 2015-07-02 13:34:01 -04:00			`0 sum set`
Initial import 2007-09-20 18:09:08 -04:00			`[ 1 10 range sum get + sum set f ] breset drop`
			`sum get`
			`] unit-test`