Data update
This commit is contained in:
Ingy döt Net
parent
72eb4943cb
commit
4d5544505c
2347 changed files with 62432 additions and 16731 deletions
|
|
@ -1,27 +1,483 @@
|
|||
/*REXX program displays the elapsed time for a REXX function (or subroutine). */
|
||||
arg reps . /*obtain an optional argument from C.L.*/
|
||||
if reps=='' then reps=100000 /*Not specified? No, then use default.*/
|
||||
call time 'Reset' /*only the 1st character is examined. */
|
||||
junk = silly(reps) /*invoke the SILLY function (below). */
|
||||
/*───► CALL SILLY REPS also works.*/
|
||||
-- 22 Mar 2025
|
||||
arg count','prec
|
||||
include Settings
|
||||
|
||||
/* The E is for elapsed time.*/
|
||||
/* │ ─ */
|
||||
/* ┌────◄───┘ */
|
||||
/* │ */
|
||||
/* ↓ */
|
||||
say 'function SILLY took' format(time("E"),,2) 'seconds for' reps "iterations."
|
||||
/* ↑ */
|
||||
/* │ */
|
||||
/* ┌────────►───────┘ */
|
||||
/* │ */
|
||||
/* The above 2 for the FORMAT function displays the time with*/
|
||||
/* two decimal digits (rounded) past the decimal point). Using */
|
||||
/* a 0 (zero) would round the time to whole seconds. */
|
||||
exit /*stick a fork in it, we're all done. */
|
||||
/*────────────────────────────────────────────────────────────────────────────*/
|
||||
silly: procedure /*chew up some CPU time doing some silly stuff.*/
|
||||
do j=1 for arg(1) /*wash, apply, lather, rinse, repeat. ··· */
|
||||
@.j=random() date() time() digits() fuzz() form() xrange() queued()
|
||||
end /*j*/
|
||||
return j-1
|
||||
say 'TIME A FUNCTION'
|
||||
say version
|
||||
say
|
||||
call Parameters
|
||||
call DoLoop
|
||||
call DoForLoop
|
||||
call DoToLoop
|
||||
call DoForByLoop
|
||||
call DoToByLoop
|
||||
say
|
||||
call Tarra
|
||||
call IntegerAssign
|
||||
call IntegerAdd
|
||||
call IntegerMultiply
|
||||
call IntegerDivide1
|
||||
call IntegerDivide2
|
||||
call IntegerRemainder
|
||||
call IntegerPower
|
||||
say
|
||||
call FloatAssign
|
||||
call FloatAdd
|
||||
call FloatMultiply
|
||||
call FloatDivide1
|
||||
call FloatDivide2
|
||||
call FloatRemainder
|
||||
call FloatPower
|
||||
call FloatFormula
|
||||
say
|
||||
call StringFunctions
|
||||
call NumericFunctions
|
||||
call DateFunctions
|
||||
call TimeFunctions
|
||||
say
|
||||
call FixedParseVar
|
||||
call DynamicParseVar
|
||||
call ParseValue
|
||||
say
|
||||
call NoOperation
|
||||
say
|
||||
call IfThen
|
||||
call SelectWhen
|
||||
say
|
||||
call CallProc
|
||||
call CallProcParms
|
||||
call CallRout
|
||||
call CallRoutParms
|
||||
say
|
||||
call Interpreting
|
||||
say
|
||||
call Output
|
||||
call Input
|
||||
say
|
||||
call Stems
|
||||
say
|
||||
call Average
|
||||
return
|
||||
|
||||
Parameters:
|
||||
start = date() time()
|
||||
if count = '' then
|
||||
count = 1e6
|
||||
if prec = '' then
|
||||
prec = 9
|
||||
parse version version
|
||||
say 'Version' version
|
||||
say 'Using loop counter' count/1e6 'million and' Digits() 'digits'
|
||||
say
|
||||
numeric digits prec
|
||||
int1 = right(sqrt3(),prec%2); int2 = right(sqrt2(),prec%2)
|
||||
if int2 > int1 then
|
||||
parse value int2 int1 with int1 int2
|
||||
float1 = sqrt3()/1; float2 = sqrt2()/1
|
||||
tarra = 0; totelaps = 0; totcount = 0
|
||||
return
|
||||
|
||||
DoLoop:
|
||||
call Time('r')
|
||||
do count
|
||||
end
|
||||
call Measure 'Do',1
|
||||
return
|
||||
|
||||
DoForLoop:
|
||||
call Time('r')
|
||||
do n = 1 for count
|
||||
end
|
||||
call Measure 'Do for',1
|
||||
return
|
||||
|
||||
DoToLoop:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
end
|
||||
call Measure 'Do to',1
|
||||
return
|
||||
|
||||
DoForByLoop:
|
||||
call Time('r')
|
||||
do n = 1 for count by 1
|
||||
end
|
||||
call Measure 'Do for by',1
|
||||
return
|
||||
|
||||
DoToByLoop:
|
||||
call Time('r')
|
||||
do n = 1 to count by 1
|
||||
end
|
||||
call Measure 'Do to by',1
|
||||
return
|
||||
|
||||
Tarra:
|
||||
call Time('r')
|
||||
do n = 1 to 1e8
|
||||
end
|
||||
tarra = Time('e')*count/1e8
|
||||
return
|
||||
|
||||
IntegerAssign:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1
|
||||
end
|
||||
call Measure 'Integer assign',1
|
||||
return
|
||||
|
||||
IntegerAdd:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1+int2
|
||||
end
|
||||
call Measure 'Integer +',1
|
||||
return
|
||||
|
||||
IntegerMultiply:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1*int2
|
||||
end
|
||||
call Measure 'Integer *',1
|
||||
return
|
||||
|
||||
IntegerDivide1:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1/int2
|
||||
end
|
||||
call Measure 'Integer /',1
|
||||
return
|
||||
|
||||
IntegerDivide2:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1//int2
|
||||
end
|
||||
call Measure 'Integer //',1
|
||||
return
|
||||
|
||||
IntegerRemainder:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1%int2
|
||||
end
|
||||
call Measure 'Integer %',1
|
||||
return
|
||||
|
||||
IntegerPower:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = int1**2
|
||||
end
|
||||
call Measure 'Integer **',1
|
||||
return
|
||||
|
||||
FloatAssign:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1
|
||||
end
|
||||
call Measure 'Float assign',1
|
||||
return
|
||||
|
||||
FloatAdd:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1+float2
|
||||
end
|
||||
call Measure 'Float +',1
|
||||
return
|
||||
|
||||
FloatMultiply:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1*float2
|
||||
end
|
||||
call Measure 'Float *',1
|
||||
return
|
||||
|
||||
FloatDivide1:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1/float2
|
||||
end
|
||||
call Measure 'Float /',1
|
||||
return
|
||||
|
||||
FloatDivide2:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1//float2
|
||||
end
|
||||
call Measure 'Float //',1
|
||||
return
|
||||
|
||||
FloatRemainder:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1%float2
|
||||
end
|
||||
call Measure 'Float %',1
|
||||
return
|
||||
|
||||
FloatPower:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = float1**2
|
||||
end
|
||||
call Measure 'Float **',1
|
||||
return
|
||||
|
||||
FloatFormula:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
a = (float1+float2) + (float1*float2) + (float1/float2)
|
||||
end
|
||||
call Measure 'Float formula',1
|
||||
return
|
||||
|
||||
StringFunctions:
|
||||
a = 'This is the first text'; b = 'This is the second text'; c = float1
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
t = a||b
|
||||
t = Abbrev('text',a)
|
||||
t = Center(a,100)
|
||||
t = Compare(a,b)
|
||||
t = Copies(a,3)
|
||||
t = Delstr(a,5,10)
|
||||
t = Delword(a,2,3)
|
||||
t = Format(c,1,5)
|
||||
t = Insert(a,b,10)
|
||||
t = Lastpos('text',a)
|
||||
t = Left(a,10)
|
||||
t = Length(a)
|
||||
t = Overlay('xxx',a,3)
|
||||
t = Pos('text',a)
|
||||
t = Reverse(a)
|
||||
t = Right(a,10)
|
||||
t = Space(a)
|
||||
t = Strip(a)
|
||||
t = Substr(a,5,10)
|
||||
t = Subword(a,2,2)
|
||||
t = Translate(a,'xxx','the')
|
||||
t = Verify(a,'the')
|
||||
t = Word(a,3)
|
||||
t = Wordindex(a,3)
|
||||
t = Wordlength(a,3)
|
||||
t = Wordpos('the',a)
|
||||
t = Words(a)
|
||||
t = Xrange('a','z')
|
||||
end
|
||||
call Measure 'String functions',28
|
||||
return
|
||||
|
||||
NumericFunctions:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
t = Abs(float1)
|
||||
t = Max(float1,float2)
|
||||
t = Min(float1,float2)
|
||||
t = Random()
|
||||
t = Sign(float1)
|
||||
t = Trunc(float1)
|
||||
t = Digits()
|
||||
end
|
||||
call Measure 'Numeric functions',7
|
||||
return
|
||||
|
||||
DateFunctions:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
t = Date('b')
|
||||
t = Date('d')
|
||||
t = Date('e')
|
||||
t = Date('m')
|
||||
t = Date('n')
|
||||
t = Date('o')
|
||||
t = Date('s')
|
||||
t = Date('u')
|
||||
t = Date('w')
|
||||
end
|
||||
call Measure 'Date functions',9
|
||||
return
|
||||
|
||||
TimeFunctions:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
t = Time('c')
|
||||
t = Time('e')
|
||||
t = Time('h')
|
||||
t = Time('l')
|
||||
t = Time('m')
|
||||
t = Time('n')
|
||||
t = Time('s')
|
||||
end
|
||||
call Measure 'Time functions',7
|
||||
return
|
||||
|
||||
FixedParseVar:
|
||||
t = '1,2,3,4,5,6,7,8,9,10'
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
parse var t rec1 ',' rec2 ',' rec3 ',' rec4 ',' rec5 ',' rec6 ',' rec7 ',' rec8 ',' rec9 ',' rec10
|
||||
end
|
||||
call Measure 'Fixed parse var',1
|
||||
return
|
||||
|
||||
DynamicParseVar:
|
||||
t = '1,2,3,4,5,6,7,8,9,10'
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
do y = 1 to 10
|
||||
parse var t rec.y ',' t
|
||||
end
|
||||
end
|
||||
call Measure 'Dynamic parse var',1
|
||||
return
|
||||
|
||||
Parsevalue:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
parse value float1 float2 with a,b
|
||||
end
|
||||
call Measure 'Parse value',1
|
||||
return
|
||||
|
||||
NoOperation:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
nop
|
||||
end
|
||||
call Measure 'No operation',1
|
||||
return
|
||||
|
||||
IfThen:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
if float1 = float1 then nop
|
||||
end
|
||||
call Measure 'If then',1
|
||||
return
|
||||
|
||||
SelectWhen:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
select
|
||||
when float1 = float1 then nop
|
||||
end
|
||||
end
|
||||
call Measure 'Select when',1
|
||||
return
|
||||
|
||||
CallProc:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
call Proc1
|
||||
end
|
||||
call Measure 'Call procedure',1
|
||||
return
|
||||
|
||||
CallProcParms:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
call Proc2 1,2,3
|
||||
end
|
||||
call Measure 'Call procedure arg',1
|
||||
return
|
||||
|
||||
CallRout:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
call Rout1
|
||||
end
|
||||
call Measure 'Call routine',1
|
||||
return
|
||||
|
||||
CallRoutParms:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
call Rout2 1,2,3
|
||||
end
|
||||
call Measure 'Call routine arg',1
|
||||
return
|
||||
|
||||
Proc1:
|
||||
procedure
|
||||
return
|
||||
|
||||
Proc2:
|
||||
procedure
|
||||
arg a,b,c
|
||||
return
|
||||
|
||||
Rout1:
|
||||
return
|
||||
|
||||
Rout2:
|
||||
arg a,b,c
|
||||
return
|
||||
|
||||
Interpreting:
|
||||
a = 'nop'
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
interpret a
|
||||
end
|
||||
call Measure 'Interpret',1
|
||||
return
|
||||
|
||||
Output:
|
||||
file = 'dummy.txt'
|
||||
call Lineout file,,1
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
call Lineout file,'Just a small line'
|
||||
end
|
||||
call Measure 'Output',1
|
||||
return
|
||||
|
||||
Input:
|
||||
file = 'dummy.txt'
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
t = Linein(file)
|
||||
end
|
||||
call Measure 'Input',1
|
||||
return
|
||||
|
||||
Stems:
|
||||
call Time('r')
|
||||
do n = 1 to count
|
||||
stem.n = n
|
||||
end
|
||||
call Measure 'Stem processing',1
|
||||
return
|
||||
|
||||
Average:
|
||||
totelaps = 1e6*totelaps/totcount
|
||||
say Left('Average',20) round(totelaps,3) 'microsec =' round(1/totelaps,1) 'million clauses/sec'
|
||||
say
|
||||
say Left('Start run',20) start
|
||||
say Left('Clauses processed',20) round(totcount/1e6,1) 'million'
|
||||
say Left('Stop run',20) date() time()
|
||||
return
|
||||
|
||||
Measure:
|
||||
parse arg measure,clauses
|
||||
elaps = Time('e')-tarra
|
||||
if elaps > 0 then do
|
||||
totelaps = totelaps+elaps; totcount = totcount+count*clauses
|
||||
elaps = 1e6*elaps/(count*clauses)
|
||||
say Left(measure,20) round(elaps,3) 'microsec =' round(1/elaps,1) 'million clauses/sec'
|
||||
end
|
||||
else
|
||||
say Left(measure,20) 'cannot perform measure, please try a higher count'
|
||||
return
|
||||
|
||||
include Functions
|
||||
include Constants
|
||||
include Abend
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue