Eric-
Wednesday, July 20, 2005, 7:52:08 AM, you wrote:
How'd you manage to get 30 milliseconds run time? The best I can do is
about 130. Is your machine just that much faster than mine? Here's the
fastest code I could come up with - any suggestions on speeding it up?
on mouseUp
local tLine, tTestString
local x
local tBlnPossible
local tDictionary, tElements, tPossibles
local tTime
put "working..." into field "status"
put empty into field "possibles"
put the milliseconds into tTime
put field "dictionary" into tDictionary
put field "elements" into tElements
repeat for each line tLine in tDictionary
put true into tBlnPossible
repeat with x=1 to 9 step 2
put char x to x+1 of tLine into tTestString
if tTestString is not among the lines of tElements then
put false into tBlnPossible
exit repeat
end if
end repeat
if tBlnPossible then
put tLine & cr after tPossibles
end if
end repeat
put the milliseconds - tTime && "milliseconds" into field "elapsed"
put tPossibles into field "possibles"
put "found" && the number of lines in field "possibles" \
&& "possible answers" into field "status"
end mouseUp
--
-Mark Wieder
[EMAIL PROTECTED]
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
