2004-08-23 23:27:55 -04:00
|
|
|
IN: scratchpad
|
|
|
|
USE: lists
|
2004-12-10 19:29:07 -05:00
|
|
|
USE: kernel
|
2004-08-26 22:21:17 -04:00
|
|
|
USE: math
|
2005-01-13 19:49:47 -05:00
|
|
|
USE: namespaces
|
2004-08-23 23:27:55 -04:00
|
|
|
USE: random
|
|
|
|
USE: test
|
2004-12-17 21:46:19 -05:00
|
|
|
USE: compiler
|
2004-08-23 23:27:55 -04:00
|
|
|
|
2004-12-17 21:46:19 -05:00
|
|
|
: sort-benchmark
|
|
|
|
[ 100000 [ 0 10000 random-int , ] times ] make-list [ > ] sort drop ; compiled
|
|
|
|
|
|
|
|
[ ] [ sort-benchmark ] unit-test
|