List sorting function help

[HezkoreParticipant]

I need to sort a list containing a custom class.
The class contains lots of stuff, but I want to sort it by name.
If the name begins with @ it should be at the very top and + after that.
(Or would be happen automatically when sorting text?)

How would I go about doing that in Monkey 2?

[Mark SiblyKeymaster]

The basic idea is…

Monkey

list.Sort( Lambda( x:C,y:C ) Return x.Name<=>y.Name End )

1 2 3 4

list.Sort( Lambda( x:C,y:C )    Return x.Name<=>y.Name End )

The lambda (or method/function) needs to return the same result as the ‘spaceship’ operator, ie: an int value <0 if x<y; an int value >0 if x>y; or 0 if x=y.

[HezkoreParticipant]

It has to be Lambda:Int though, right? (confused)

But with that method, the + sign in names would cause users to jump to the top.
I want names that starts with @ to be first, second should be names that starts with +.
And all the rest of the names below that.
That bit confuses me…

Right now, I’ve just done so that when comparing names, the @ and + are replaced with 1 and 2, only during the sort test.

[impixiParticipant]

You could maybe do something like this:

Monkey

[crayon-5cba87dadadde493258395 inline="true" ]#Import "<std>" Using std.. Function Main() Local recList := New RecordList() recList.Add(New Record("Dude")) recList.Add(New Record("Jane Doe")) recList.Add(New Record("@Dude")) recList.Add(New Record("+Jane Doe")) recList.Add(New Record("+Dude")) recList.Add(New Record("@Jane Doe")) Print "~nUnsorted~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByName) Print "~nSorted (First pass) ~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByCharTweak) Print "~nSorted (Second pass) ~n-----------" recList.PrintAll() End Class RecordList Extends List<Record> Public Method New() Super.New() End Method PrintAll() For Local rec := Eachin Self Print rec.ToString() Next End Function SortByName:Int(lhs:Record, rhs:Record) Return lhs.Name <=> rhs.Name End Function SortByCharTweak:Int(lhs:Record, rhs:Record) If (lhs.Name.Length <= 0) Or (rhs.Name.Length <= 0) Then Return 0 If lhs.Name[0] = "@"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "@"[0] Then Return rhs.Name>lhs.Name If lhs.Name[0] = "+"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "+"[0] Then Return rhs.Name>lhs.Name Return 0 End End Class Record Public Method New(name:String) Name = name End Property Name:String() Return _name Setter (value:String) _name = value End Method ToString:String() Return Name End Private Field _name:String End

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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

[crayon-5cba87dadadde493258395 inline="true" ]#Import "<std>"   Using std..   Function Main()   Local recList := New RecordList()   recList.Add(New Record("Dude")) recList.Add(New Record("Jane Doe")) recList.Add(New Record("@Dude")) recList.Add(New Record("+Jane Doe")) recList.Add(New Record("+Dude")) recList.Add(New Record("@Jane Doe")) Print "~nUnsorted~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByName) Print "~nSorted (First pass) ~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByCharTweak) Print "~nSorted (Second pass) ~n-----------" recList.PrintAll() End   Class RecordList Extends List<Record>   Public   Method New() Super.New() End Method PrintAll() For Local rec := Eachin Self Print rec.ToString() Next End Function SortByName:Int(lhs:Record, rhs:Record) Return lhs.Name <=> rhs.Name End   Function SortByCharTweak:Int(lhs:Record, rhs:Record)   If (lhs.Name.Length <= 0) Or (rhs.Name.Length <= 0) Then Return 0   If lhs.Name[0] = "@"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "@"[0] Then Return rhs.Name>lhs.Name If lhs.Name[0] = "+"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "+"[0] Then Return rhs.Name>lhs.Name Return 0   End   End   Class Record   Public Method New(name:String) Name = name End   Property Name:String() Return _name Setter (value:String) _name = value End   Method ToString:String() Return Name End Private   Field _name:String   End

[/crayon]

[Mark SiblyKeymaster]

You’ll need to write a custom comparison routine, something like (untested)…

Monkey

Function CompareNames:Int( lhs:String,rhs:String ) if lhs.StartsWith( "@" ) and rhs.StartsWith( "@" ) return lhs<=>rhs if lhs.StartsWith( "@" ) return -1 if rhs.StartsWith( "@" ) return +1 if lhs.StartsWith( "+" ) and rhs.StartsWith( "+" ) return lhs<=>rhs if lhs.StartsWith( "+" ) return -1 if rhs.StartsWith( "+" ) return +1 Return lhs<=>rhs End

1 2 3 4 5 6 7 8 9 10

Function CompareNames:Int( lhs:String,rhs:String ) if lhs.StartsWith( "@" ) and rhs.StartsWith( "@" ) return lhs<=>rhs if lhs.StartsWith( "@" ) return -1 if rhs.StartsWith( "@" ) return +1 if lhs.StartsWith( "+" ) and rhs.StartsWith( "+" ) return lhs<=>rhs if lhs.StartsWith( "+" ) return -1 if rhs.StartsWith( "+" ) return +1 Return lhs<=>rhs End

[Mark SiblyKeymaster]

It has to be Lambda:Int though, right? (confused)

Oops, yes.

[Author]

Posts