Ошибка в CUT-PATH

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Ошибка в CUT-PATH

Yuriy Zhilovets
Привет всем!
В CUT-PATH есть ошибка. Если _после_ конца переданной строки стоит
разделитель, то возвращается неправильный результат:

S" aaa/" 1- CUT-PATH . .
4 5450000

а должно быть 3 5450000

Вот мой вариант (не так хитро написанный, правда):

: CUT-PATH ( a n1 -- a n2)
 0
 BEGIN
   2DUP >
 WHILE
   2 PICK OVER + C@ is_path_delimiter IF NIP 1- EXIT THEN
   1+
 REPEAT DROP
;

Ю. Жиловец


Reply | Threaded
Open this post in threaded view
|

Re: Ошибка в CUT-PATH

Ruvim Pinka
Привет!

On 6/4/07, Yuriy Zhilovets <[hidden email]> wrote:
В CUT-PATH есть ошибка. Если _после_ конца переданной строки стоит
разделитель, то возвращается неправильный результат:

да, эта ошибка исправлена, без недели месяц как уже.
Очень помогают быть в курсе дел RSS-потоки :)

--
Ruvim