repo.or.cz
/
factor
/
jcg.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
remove math.blas.syntax and merge parsing words into math.blas.vectors/matrices
[factor/jcg.git]
/
extra
/
wordtimer
/
wordtimer-tests.factor
blob
47287179ce648f7c1d4fed9592cb3922f3ec7d27
1
USING: tools.test wordtimer math kernel tools.annotations prettyprint ;
2
IN: wordtimer.tests
3
4
: testfn ( a b c d -- a+b c+d )
5
+ [ + ] dip ;
6
7
[ 3 7 ]
8
[ reset-word-timer
9
\ testfn [ reset ] [ add-timer ] bi
10
1 2 3 4 testfn ] unit-test