Задачи на Колобке 1 Апреля.

0 views
Skip to first unread message

Duke

unread,
Apr 1, 2008, 2:19:02 PM4/1/08
to Forth On TOP @ AMCP
Привет всем!

Выложите сабж, плз; если не шутка=)

Michael Gasanenko

unread,
Apr 2, 2008, 8:39:33 AM4/2/08
to Forth On TOP @ AMCP
Там были задачи, 2 варианта:
1) CAND и COR (у доски до осмысленного текста, потом отладить)
2) sin/cos с фиксированной точкой
3) определить слово R'@ ( r: x y -- x y ) ( -- x ) -- на самом деле,
есть 2 способа. В качастве задач другого варианта у меня были
запланированы >R' и R'> , но до других вариантов не дошло.

Я сам развлекался тем, что написал определение слова . не через <# #
#>.


Michael Gasanenko

unread,
Apr 2, 2008, 11:13:10 AM4/2/08
to Forth On TOP @ AMCP
> Выложите сабж, плз; если не шутка=)

Коллоквиум на спецкурсе на ПМ-е -- шутка ли это? Даже не знаю, что и
сказать...

Sergey Karakovskiy

unread,
Apr 2, 2008, 2:01:59 PM4/2/08
to Forth...@googlegroups.com
Просто писал я это 1го Апреля;)
А так коллоквиум на ПМ -- дело вполне стандартное; на СК -- мб реже.

02.04.08, Michael Gasanenko <ml...@yandex.ru> написал(а):

Sergey Karakovskiy

unread,
Apr 2, 2008, 2:25:58 PM4/2/08
to Forth...@googlegroups.com
Понятно; спасибо!

1) Всё не доберусь до них основательно.
2) Фиксированную точку я для бадминтона уже сделал; вскоре выложу, интересно будет сравнить.

а задачу 3) я, видимо, даже не понимаю, поскольку она мне видится совершенно простой:
: R'@ 2rdup R> R> swap drop 

( слово для swap drop снова забыл, оно было в распечатке слов..)

02.04.08, Michael Gasanenko <ml...@yandex.ru> написал(а):
Там были задачи, 2 варианта:

Michael Gasanenko

unread,
Apr 4, 2008, 10:52:56 AM4/4/08
to Forth On TOP @ AMCP
> а задачу 3) я, видимо, даже не понимаю, поскольку она мне видится совершенно
> простой:
> : R'@ 2rdup R> R> swap drop
>
> ( слово для swap drop снова забыл, оно было в распечатке слов..)
>

: R'@ 2rdup R> R> swap drop
*the terminal*:1: Undefined word
: R'@ 2rdup R> R> swap drop
^^^^^
Backtrace:
$B7A28DC4 throw
$B7A347E8 no.extensions

Reply all
Reply to author
Forward
0 new messages