 |
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк
[32]
fun tower of hanoi(n) =
(transfer(("A",incl(l,n)), ("BM,[]), ("C\[]), n)
Ответ 4.0.2:
fun printboard(place,n,s) =
let fun present(pos : (int*int), []) = false I present(pos, h::t) =
(pos=h) orelse present(pos.t) fun printcolumn(i, j) = if j>n then ()
else ( output (s, if present((i,j).place) then " Q " else " . "); printcolumn(i,j+1) ) fun printrow(i) =
if i>n then () else ( printcolumn(ij); output(s,"\n"); printfow(i+l) ) in ( printrow(l); output(s,"\n") ) end