and Wow, what a nice surprise. I'm going to try dropping it in now.
Thanks,
Gilles
On Saturday, May 1, 2004, at 15:25 US/Eastern, Colin Holgate wrote:
>I added this to your routine: As usual, Colin is a stud.
Ok, if you want studly performance, I tried a different approach:
on chunky chunk m = the milliseconds thetext = member("test string").text c = the number of chars in thetext chunkcount = c/chunk thelist = [] repeat with a = 0 to chunkcount thesechars = char a*chunk to (a+1)*chunk of thetext repeat with b = 1 to chunk append thelist,chartonum(char b of thesechars) end repeat end repeat howlong = the milliseconds - m put "Char count:" & c & return & "How long:" & howlong end
You can call this by putting this in the message window:
chunky n
where n is an integer that you can vary to see where the sweet spot is. I already have timings, but I'll leave you to amaze yourself.
Here's a tester version that you can give a range of chunk sizes to:
on chunkytest n1,n2 bestyet = the maxinteger bestn = 0 repeat with chunk = n1 to n2 m = the milliseconds thetext = member("test string").text c = the number of chars in thetext chunkcount = c/chunk thelist = [] repeat with a = 0 to chunkcount thesechars = char a*chunk to (a+1)*chunk of thetext repeat with b = 1 to chunk append thelist,chartonum(char b of thesechars) end repeat end repeat howlong = the milliseconds - m if howlong < bestyet then bestyet = howlong bestn = chunk end if end repeat put "Sweet Spot:" & bestn & return & "How Long:" & bestyet end
[To remove yourself from this list, or to change to digest mode, go to http://www.penworks.com/lingo-l.cgi To post messages to the list, email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for learning and helping with programming Lingo. Thanks!]
[To remove yourself from this list, or to change to digest mode, go to http://www.penworks.com/lingo-l.cgi To post messages to the list, email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for learning and helping with programming Lingo. Thanks!]
