allen, here is 154 of your code.
that means, I've shortened everyones code and clock is 3AM.
guys, it's your turn ;\)

 Code:
function a($,$p)
  dim $i
  for $i=9 to 1 step -1
    while instr($,$i) | $p=0 & $i=split($)[$p]
      $p=iif($p=0,($^)/2,$p-1)
      $a=$a+1*$/$i
      $=right($,-2) + iif($i>$," " + 1*$,"")
endfunction


and Jens, np.


Edited by Lonkero (2007-11-15 01:57 AM)
_________________________
!

download KiXnet