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

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ Сообщений: 49 ]  На страницу Пред.  1, 2, 3, 4
Автор Сообщение
 Заголовок сообщения: Re: Список актуальных задач из Rosetta code
СообщениеДобавлено: Вт фев 18, 2020 11:06 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 954
Благодарил (а): 1 раз.
Поблагодарили: 8 раз.
Цитата:
Given two integers, A and B.

Their sum needs to be calculated.


Для Nova-forth
Код:
: CATCH: R> CATCH ;

: PLUS:
['] THROW >R
'CR' PARSE FROM ParseBuff.simb KEEP! FROM ParseBuff KEEP!
0 >IN KEEP!
CATCH:
0 BEGIN PARSE-NAME DUP WHILE STR>NUM THROW + REPEAT 2DROP
.
;

Интерпретация строки чисел с перехватом ошибок и восстановлением контекста ФС

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


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Список актуальных задач из Rosetta code
СообщениеДобавлено: Вт фев 18, 2020 15:55 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6904
Благодарил (а): 17 раз.
Поблагодарили: 112 раз.
Victor__v писал(а):
Интерпретация строки чисел с перехватом ошибок и восстановлением контекста ФС

Явно не хватает слова ReadInt.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Список актуальных задач из Rosetta code
СообщениеДобавлено: Вт фев 18, 2020 16:48 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 954
Благодарил (а): 1 раз.
Поблагодарили: 8 раз.
Hishnik писал(а):
Victor__v писал(а):
Интерпретация строки чисел с перехватом ошибок и восстановлением контекста ФС

Явно не хватает слова ReadInt.

STR>NUM \ A U -- num err|0

Конечно, можно заморочиться и написать такое слово, только код сложнее будет у меня)

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


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Список актуальных задач из Rosetta code
СообщениеДобавлено: Вт фев 18, 2020 23:06 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6904
Благодарил (а): 17 раз.
Поблагодарили: 112 раз.
Вводить и складывать два числа через перехват исключений - это сильно. Для этого и нужны тесты вроде RosettaCode. Тут вообще можно ограничиться + . - это если оговорить, что числа вводятся с клавиатуры в консоль, а дальше как принято в Форте. У меня больше строк, да... но это GUI.


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

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


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

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


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

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