10 lines
140 B
Text
10 lines
140 B
Text
|
def count
|
||
|
|
for drop endfor
|
||
|
|
enddef
|
||
|
|
|
||
|
|
1000000 count
|
||
|
|
msec dup var t0 print " seconds" print nl
|
||
|
|
|
||
|
|
10000000 count
|
||
|
|
msec t0 - print " seconds" print
|