Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пн авг 20, 2018 16:57

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Уголок бектрекинга
СообщениеДобавлено: Вс авг 12, 2018 11:59 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 585
Благодарил (а): 0 раз.
Поблагодарили: 3 раз.
Находим факториал в 2 строчки:
Код:
REQUIRE LOOP ~ER/DOLOOP.F
REQUIRE PRO ~ER/BTC/L-STACK.F

: 0->N PRO 0 DO I CONT LOOP ; \ n -- iter: 0|1|2|etc|n-1
: FACT 1 SWAP 0->N 1+ * ;   \ n -- n!


Вот думаю, вносить ли стек продолжений (L) в ядро или нет?
В текущей реализации это даже не стек продолжений, а цепочка.

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB