|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
(* Loop optimizing Example 1 *) set MyList to {} repeat 10000 times set the end of MyList to " hello from the loop" end repeat return MyList as text -- 5.63s set MyString to "" repeat 10000 times set MyString to MyString & " hello from the loop" end repeat -- 3.71s |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
(* Loop optimizing Example 2 for complete overview. * For speed testing you have to split this example in two separate files *) (* * slow version *) --create a list to work with set MyList to {} --put 5000 elements in the list for us to walk through for testing repeat with i from 0 to 5000 set the end of MyList to i end repeat --now walk the list again and add up all the number set MyTotal to 0 repeat with ThisValue in MyList set MyTotal to MyTotal + ThisValue end repeat --return MyTotal --2.87s (* * fast version *) --create a global scope list to work with property MyGlobalList : {} --make sure it's empty as these are persistent between runs set MyGlobalList to {} --now work with a reference to that global list set MyList2 to a reference to MyGlobalList --put 5000 elements in the list for us to walk through for testing repeat with i from 0 to 5000 set the end of MyList2 to i end repeat --now walk the list again and add up all the number set MyTotal2 to 0 repeat with ThisValue in MyList2 set MyTotal2 to MyTotal2 + ThisValue end repeat --return MyTotal2 --0.09s !!! |