Редактирование: Палитра Каллисто
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 70: | Строка 70: | ||
: s. ( a -- a ) ↑ . ; | : s. ( a -- a ) ↑ . ; | ||
: h. ( a -- a ) base @ hex over i. base ! ; | : h. ( a -- a ) base @ hex over i. base ! ; | ||
: b. ( -- ) base @ | : b. ( -- ) base @ . ; | ||
: prs ( n -- ) depth 1- min for i 1- pick . next ; | : prs ( n -- ) depth 1- min for i 1- pick . next ; | ||
: Дfree ( -- n ) sp@ Дhere - ; | : Дfree ( -- n ) sp@ Дhere - ; |