|
|
|
Глюпый :)
С теоретической аргументацией уже проблемы, тут с тобой общаться неинтересно. Может, практическая сторона будет более наглядной?
------------------------------------------------ cut
#ханойские башни, рекурсивный алгоритм
#условия задачи и способ решения см., например,
#здесь: http://www.cut-the-knot.com/recurrence/hanoi.html
@move[n;a;b;c] рекурсивный макрос
^eq[$n;1;
^var[cnt;+;1]
$a —^;>^; $b
;
^macro[move;^eval[$n-1];$a;$c;$b]
^macro[move;1;$a;$b;$c]
^macro[move;^eval[$n-1];$c;$b;$a]
]
@main[] стартовый макрос
#определен ли параметр?
^var[n;^cmp[^number[number];0;0;0;^number[number]]]
^var[n;^cmp[^number[number];11;^number[number];0;0]]
#число дисков по умолчанию
^eq[^var[n];0;^var[n;5]]
#названия стержней
^var[a;A]
^var[b;B]
^var[c;C]
#счетчик перестановок
^var[cnt;0]
#старт
<html>
<head>
<title>Ханойские башни с ^var[n] ^;дисками (рекурсивный ^;алгоритм)</title>
</head>
<body bgcolor=white>
<h3>Ханойские ^;башни с ^var[n] ^;дисками (рекурсивный ^;алгоритм)</h3>
<pre>
^macro[move;^var[n];^var[a];^var[b];^var[c]]
-----------------------------
Всего перестановок: ^var[cnt]
</pre>
</body>
------------------------------------------------ cut
Точно так же можно любой другой классический алгоритм забацать. И попробуй теперь сказать, что это не язык. :)
<< Вернуться к списку сообщений
- Нумерация строк, Щ [14.01 06:50]
- ну ты развесилил ;), Alaric [14.01 18:47]
- Глюпый :), Рудольф [21.01 16:37]
- Кстати..., #pomidorych [20.01 11:25]
- Глюпый :), #pomidorych [20.01 11:17]
- Язы/ководство, Рудольф [20.01 01:48]
- Quake2, Рудольф [20.01 01:43]
- Домашнее задание, sergey2b [16.01 14:06]
- Звиняйте, дядьку! Кто-то почикал историю за прошлый век..., mc [16.01 13:23]
- Язы/ководство, #pomidorych [16.01 12:39]
- Язы/ководство, mc [16.01 10:31]
- Quake2, Benjamin.ru [16.01 00:17]
- крайний случай, #pomidorych [15.01 19:45]
- Язы/ководство, #pomidorych [15.01 19:37]
- Домашнее задание, Рудольф [15.01 18:23]
- крайний случай, Рудольф [15.01 18:21]
- Лабораторная Работа, Alaric [14.01 22:42]
- Домашнее задание, #pomidorych [14.01 19:25]
- Долой несправедливость., Alaric [14.01 19:21]
- крайний случай, #pomidorych [14.01 19:13]
- Жертвам бейсика посвящается, #pomidorych [14.01 09:25]
- Бейсик, говоришь?... или "мы все учились понемногу...", Айсина [20.01 06:42]
- а я не согласен..., Рудольф [20.01 02:05]
- Бейсик, говоришь?... или "мы все учились понемногу...", Рудольф [20.01 02:00]
- Game Over, #pomidorych [16.01 12:45]
- при чём тут фортран...., mc [16.01 12:28]
- Иде я нахожуся?..., Benjamin.ru [16.01 12:25]
- при чём тут фортран...., smalex [16.01 10:53]
- а я не согласен..., mc [16.01 10:36]
- а я не согласен..., smalex [16.01 10:26]
- Бейсик, говоришь?... или "мы все учились понемногу...", Benjamin.ru [16.01 03:29]
- В продленку :), #pomidorych [16.01 02:11]
- Бейсик, говоришь?... или "мы все учились понемногу...", #pomidorych [16.01 02:03]
- Бейсик, говоришь?... или "мы все учились понемногу...", Benjamin.ru [16.01 00:09]
- В продленку :), shoorik [15.01 20:11]
- В продленку :), shoorik [15.01 20:05]
- В продленку :), #pomidorych [15.01 12:33]
- Жертвам бейсика посвящается, руслан [15.01 11:58]
- Жертвам бейсика посвящается, #pomidorych [14.01 19:18]
- Жертвам бейсика посвящается, smalex [14.01 19:09]
|
|
faq