Ответ

Naif 13.12.2002 22:01

$string[abc qw abc u uiuioi qw  abc]
$table[^string.lsplit[ ]]
$hash[^hash::create[]]

^table.menu{
  ^if(def $table.piece){
    $hash.[$table.piece]($hash.[$table.piece] + 1)
  }
}

^hash.foreach[k;v]{
 $k = $v
}[<br>]