Как я могу проверить основность в Forth? Вот то, что я использую сейчас, но оно становится медленнее с большими числами: : prime ( n - f ) DUP 2 < IF DROP 0 EXIT THEN DUP 2 ?DO DUP I I * < IF DROP -1 LEAVE THEN...

Почему этот код не работает? TIB 10 ACCEPT TIB SP@ 1 cells - 10 cmove В этом коде я попытался ввести строку и сохранить ее в буфере ввода терминала, а затем сохранить ее в стеке параметров. А вот с .S вижу, что не работает.

Насколько я помнил слово «галочка» из FIG-Forth, его можно было использовать без прерывания, если слова не было в списке слов: ' the_word давал ссылку на слово, если оно было в списке слов, и давал «ложь» в противном случае. Можно ли...

Я пытаюсь реализовать Q-последовательность Хофштадтера , используя рекурсивное определение: Q(1) = 1 Q(2) = 1 Q(n) = Q(n - Q(n-2)) + Q(n - Q(n-1)) for n > 2 Я получаю неправильный результат для n > 3 . Вот что у меня есть до сих пор:...

Я использовал CREATE для создания массива строк: create mystringarray s" This" , s" is" , s" a", s" list" , И я хочу отсортировать это в порядке возрастания. Я нашел несколько руководств по ассемблеру в Интернете, но я хочу сделать это...

Есть ли способ сохранить мои определенные слова в файл, чтобы продолжить эксперименты позже? Я пока нашел только способ скопировать + вставить определения из консоли, если они все еще видны. Я начинаю с четвертого, поэтому я делаю много...

Как измерить время выполнения моей программы? Я нашел это, но это не работает для меня, потому что моей программе нужны некоторые числа в стеке для работы, поэтому моя программа и это решение как бы мешают друг другу (как я понимаю, потому что, когда...