here is a bit shorter one:
Code:
Function a($)
	Dim $c
	For $c = 1 to UBound($)
			$a = $[$c-1]
			If b($a,$) > b($[$c],$)
				$[$c-1] = $[$c]
				$[$c] = $a
				$c = 0
			EndIf
			$a=$
EndFunction
Function b($,$i)
	Dim $g,$h
	For $h = Len($) to Len(Join($i))
		For $g = 0 to 9
			$=Join(Split($,$g),#+$g)
			$b=$
EndFunction


running the test now....

[€dit]
and here is the result:

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_humansort.kix

Computer
OS               = Windows Vista Enterprise Edition
CPU              = Intel Pentium Model 13
Speed            = 1866 MHz
Memory           = 758 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Human Sort
Processing Start = 2007/01/01 19:07:39.998
Processing End   = 2007/01/01 19:28:26.503
Duration         = 0000/00/00 00:20:46.504
# Tests Run      = 9
# Tests Passed   = 9
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 209

Edited by Jooel (2007-01-01 06:30 PM)
_________________________
!

download KiXnet