Есть ошибочка...

Sumo 16.11.2004 21:37 / 16.11.2004 21:50

Ваша функция выдает строки длиной $symbols_in_string - 1.

Возможен еще и такой вариант:

@wsplit[aStr;aLen;aSep][lParts;i]
  ^if(!def $aSep){$aSep[^taint[^#0A]]}
  $i(0)
  $lParts[^aStr.match[(.{^eval($aLen-1)}[^^\s]?.*?)\s+][gi]]
  ^lParts.menu{
    $result[${result}${lParts.1}$aSep]
    ^i.inc(^lParts.1.length[] + 1)
  }
  $result[${result}^aStr.right(^aStr.length[] - $i)] 

p.s. Замеры показали, что мой код в пять раз быстрее. :) Хотя в тестовом примере речь идет о тысячных и деститысячных долях секунды.

---