Hi Richard,
good try but, i am sorry to say that yours is the only one that is truely broken. Your attempt drops the first character and doubles the last. Chris's and mine produce an array of twenty, yours produces an array of 21.
give it a try:
Code:
;Lonkenized:
?"Start Lonkenized:"
$x='KiXscripting is fun!'
Dim $y[0^$x]
For $z=1 to 0^$x
$y[$z]=SubStr($x,$z,1)
?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
?
;Christallized:
?"Start Christallized:"
$x='KiXscripting is fun!'
Dim $y[(0^$x)-1]
For $z=0 to (0^$x)-1
$y[$z]=SubStr($x,$z+1,1)
?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
?
;Now it has been 69ed:
?"Start 69ed:"
$='KiXscripting is fun!'
Dim $y[0^$]
For $z=0 to (0^$)-1
$y[$z]=SubStr($,$z+1,1)
?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
?
;Now Richard:
?"Start Richard:"
$='KiXscripting is fun!'
Dim $y[(0^$)-1]
For $z=1 to 0^$
$y[$z-1]=SubStr($,$z,1)
?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
