Заполнение матрицы по спирали, желательно на функциональном яп. Опции

[packa]

Интересует алгоритм заполнения матрицы по спирали.

Что значит заполнение по спирали

Код

01 02 03 04 05 06 07
24 25 26 27 28 29 08
23 40 41 42 43 30 09
22 39 48 49 44 31 10
21 38 47 46 45 32 11
20 37 36 35 34 33 12
19 18 17 16 15 14 13

Что в данном случае матрица:

Матрица это список списков

Код

'( (01 02 03 04 05 06 07)
(24 25 26 27 28 29 08)
(23 40 41 42 43 30 09)
(22 39 48 49 44 31 10)
(21 38 47 46 45 32 11)
(20 37 36 35 34 33 12)
(19 18 17 16 15 14 13) )

Собственно внешний контур еще как то удается обработать
(взять первый элемент матрицы,
взять первый элемент в каждом инвертированном элементе матрицы
взять первый элемент инвертированной матрицы
и наконец взять первый элемент в каждом элементе матрицы)

Как поступать далее не знаю. Собственно из описания видно что самое лучшее что мы умеем это брать первый элемент чего-то(соответственно и последний)
Что то из середины брать довольно трудно и нет специальных инструментов
Конечно их можно попробовать сделать, но это другая опера.

язык scheme но не думаю что кто то здесь достаточно хорошо с ним знаком)