Классная работа от 05.04

Классная работа от 05.04 (Forth: числа Фибоначчи)

Дата: Понедельник, 05.04.2010, 20:30 | Сообщение # 1

Главный тут

Группа: Администраторы

Сообщений: 273

Репутация: 20

Статус: Offline

: FIBONACCI ( n - n ) >R 0 1 R> 0 DO DUP >R + R> SWAP LOOP DROP ;
: PRINT ( ) 0 20 1 DO 1 + DUP FIBONACCI . LOOP ;

Классная работа от 05.04 (Forth: числа Фибоначчи)