Anyway, it could as well be a 214:
Function a($b,$c)
Dim $,$d,$e
$a=0
For Each $ in $b
Dim $f
For Each $d in $b
If $<$d
For $e = $^0 to 2 Step -1
If $=$c[0]+Left(Right($,~),~)+$c[1] & ($^)-$f<$a | ~$a
$a=''+(($^)-$f)+' '+$
Else
If Right($,$e)=Left($d,$e)
$=$+' '+$d
$f=$f+$e+1
; EndIf
; EndIf
; Next
; EndIf
; Next
; Next
EndFunction
Score:
Running Test 1...Done...Result: 11 about outside ideas
Running Test 2...Done...Result: 4 ones
Running Test 3...Done...Result: 0
Running Test 4...Done...Result: 7 aabbbb bbbbz
Running Test 5...Done...Result: 0
Running Test 6...Done...Result: 9 ayrton onset
Running Test 7...Done...Result: 6 kita tart
Running Test 8...Done...Result: 11 about outside ideas
Your solution passed all tests
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_A2Z.kix
Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 11:45:08.734
Processing End = 2007/09/13 11:45:08.781
Duration = 0000/00/00 00:00:00.047
KiXGolf Score = 214
Thank you for participating in KiXtart Golf!
changed For $e = $d^0... to For $e = $^0
