Reversing a list

[wayne durden]

Hi Bernd,

I suspect the issue in the large list is that it is taking more than a
second to populate the sort list or the start time is near the rollover of
milliSecond ...

Wayne


On Thu, Apr 3, 2008 at 9:21 AM, BNig <niggemann at uni-wh.de> wrote:

>
> hi,
>
>  -- Jan Schenkels solution:
> ##
> local sLineCount, sCurrentLine
>
> on mouseUp
>    put 0 into sCurrentLine
>     put the number of lines in field 1 into sLineCount
>    put the millisec into tStart
>     sort field 1 by ReverseOrder()
>     put the millisec - tStart
> end mouseUp
>
> function ReverseOrder
>    add 1 to sCurrentLine
>    return sLineCount - sCurrentLine
> end ReverseOrder
> ##
>
> I tried this on field with 10 lines filled with number from 1 to 10, it
> works and is fast.
>
> I then tried it with a field filled with 100000 line filled with numbers
> 00001 to 99999
>
> then it does not work correctly. Since I dont even understand the syntax
> in
> the first place I have no idea why.
>
> on the 100000 lines once the last lines are:
>
> 00020
> 90001
> 00019
> 00018
> 00017
> 00016
> 00015
> 00014
> 00013
> 00012
> 00011
> 00010
> 90000
> 00009
> 00008
> 00007
> 00006
> 00005
> 00004
> 00003
> 00002
> 00001
>
> While Mark Schonewilles solution:
>
> on mouseUp pMouseBtnNo
>    put the millisec into tStart
>    put field 1 into temp
>    put reverseList(temp) into temp2
>    put temp2 into field 1
>    put the millisec - tStart
> end mouseUp
>
> function reverseList theListArray
>    split theListArray by cr
>    --   put the keys of theListArray
>    combine theListArray by cr and tab
>    sort lines of theListArray numeric descending by item 1 of each
>    split theListArray by column
>    return theListArray[2]
> end reverseList
> --
>
> on the same list in the field works for small and large number of lines
> and
> repeatedly and  still is very fast (580 msec) on a MacBook Pro 2.33
>
> I didnt try where the cutoff for correct results in Jans function is.
>  I thought just to mention the problem because it might not be so obvious
> for lists that are not easily checked for consistency
>
> and thanks for these functions, I always enjoy the discussions on the list
>
> regards
>
> Bernd
>
> --
> View this message in context:
> http://www.nabble.com/Reversing-a-list-tp16466585p16467477.html
> Sent from the Revolution - User mailing list archive at Nabble.com.
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
>