История изменений
Исправление
MOPKOBKA,
(текущая версия)
:
Как инструкции нету, но на той же странице есть код для реализации:
/mod for begin over over . + -if drop 2* swap next ; then over or or - 2* - next ;
Мне еще нравится код реализации cos/sin https://mschuldt.github.io/www.colorforth.com/cos.jpg
Исходная версия
MOPKOBKA,
:
Как инструкции нету, но на той же странице есть код для реализации:
/mod for begin over over . + -if drop 2* swap next ; then over or or - 2* - next ;