SuperStrict
Import artemis.natcompare

Type a
	Global m:Int = False
	Function Create:a(b$)
		Local o:a = New a
		o.b = b
		Return o
	EndFunction
	Field b$
	Method compare:Int(c:Object)
		If Not a(c) Then Return 0
		If a.m Then
			Return NatCompare(Self.b, a(c).b)
		Else
			Return Self.b.compare(a(c).b)
		EndIf
	EndMethod
EndType

Local l:TList = New TList

Rem
Local i$ = Input("String: ")
While i <> ""
	Local o:a = New a
	o.b = i
	l.addlast(o)
	i$ = Input("String: ")
Wend
EndRem
l.addlast(a.Create("Test 35"))
l.addlast(a.Create("Test 2"))
l.addlast(a.Create("Test 4 plus Zeugs"))
l.addlast(a.Create("Ich habe 254.023 Tests gemacht"))
l.addlast(a.Create("Ich habe 00254.0023 Tests gemacht"))
l.addlast(a.Create("Ich habe  254.0023 Tests gemacht"))

Print ""
Print "unsortiert"
For Local o:a = EachIn l
	Print o.b
Next

Print ""
Print "blitz-sortiert"
l.sort()
For Local o:a = EachIn l
	Print o.b
Next

Print ""
Print "nat-sortiert"
a.m = True
l.sort()
For Local o:a = EachIn l
	Print o.b
Next