Talk:Ordered words: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) |
Walterpachl (talk | contribs) (→A bug (which was not really a bug) in Rexx solution: Procedure performance) |
||
Line 193: | Line 193: | ||
And finally, can you provide your benchmark results for the strict comparison case? |
And finally, can you provide your benchmark results for the strict comparison case? |
||
::--[[User:Walterpachl|Walterpachl]] 06:11, 16 July 2012 (UTC) |
::--[[User:Walterpachl|Walterpachl]] 06:11, 16 July 2012 (UTC) |
||
Interesting: for ooRexx it's a mere 30% |
|||
<lang rexx> |
|||
Call time 'R' |
|||
Do i=1 to 10000000 |
|||
x=uppercase('Wölter') |
|||
End |
|||
Say 'oneliner: ' i time('E') |
|||
Call time 'R' |
|||
Do i=1 to 10000000 |
|||
x=uppercase2('Wölter') |
|||
End |
|||
Say 'Procedure:' I time('E') |
|||
Exit |
|||
uppercase: |
|||
return translate(changestr("ß",translate(arg(1),'ÄÖÜ',"äöü"),'SS')) |
|||
uppercase2: Procedure |
|||
Parse Arg a |
|||
a=translate(arg(1),'ÄÖÜ',"äöü") /* translate lowercase umlaute */ |
|||
a=changestr("ß",a,'SS') /* replace ß with SS */ |
|||
return translate(a) /* translate lowercase letters */ |
|||
</lang> |
|||
oneliner: 10000001 11.731000 |
|||
Procedure: 10000001 16.029000 |
|||
:please post your benchmark |
|||
--[[User:Walterpachl|Walterpachl]] 06:45, 16 July 2012 (UTC) |