PageRenderTime 23ms CodeModel.GetById 12ms app.highlight 9ms RepoModel.GetById 1ms app.codeStats 0ms

/extra/sequences/repeating/repeating-tests.factor

http://github.com/abeaumont/factor
Unknown | 11 lines | 9 code | 2 blank | 0 comment | 0 complexity | a12db741b9602f372f0897fc02c24318 MD5 | raw file
 1USING: sequences.repeating tools.test ;
 2IN: sequences.repeating.tests
 3
 4[ { 1 2 3 1 2 } ] [ { 1 2 3 } 5 cycle ] unit-test
 5[ { 1 2 3 1 2 3 1 2 3 } ] [ { 1 2 3 } 9 cycle ] unit-test
 6
 7[ { } ] [ { 1 2 3 } 0 repeat ] unit-test
 8[ { 1 2 3 } ] [ { 1 2 3 } 1 repeat ] unit-test
 9[ { 1 1 2 2 3 3 } ] [ { 1 2 3 } 2 repeat ] unit-test
10[ { 1 1 1 2 2 2 3 3 3 } ] [ { 1 2 3 } 3 repeat ] unit-test
11[ { 1 1 1 1 2 2 2 2 3 3 3 3 } ] [ { 1 2 3 } 4 repeat ] unit-test