> 1 <

Автор Сообщение

Петя

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#3713   2010-12-17 02:12 GMT+3 часа(ов)      
Помогите срочно решить задачу по рекурсии!!!! Очень нужно!!!!

Получая, в качестве исходного, любой одноуровневый список вида (a b с d e f g h i j k l m n) образовать результирующий список вида ((a) (b c) (d e f ) (g h i j)), то есть сгруппировать элементы списка, увеличивая размер каждой последующей группы на 1 элемент.

отредактировал(а) Петя: 2010-12-27 00:04 GMT+3 часа(ов)

Петя

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#3803   2010-12-28 23:59 GMT+3 часа(ов)      
Неужели никто не может помочь???

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#3804   2010-12-29 03:13 GMT+3 часа(ов)      
(defun foo1(L)
(labels ((ret (L cur-L n cur-n overal)
(cond
((null L) (append overal (list cur-L)))
((= 0 cur-n) (ret L nil (1+ n) (1+ n) (append overal (list cur-L))))
(T (ret (cdr L) (append cur-L (list (car L))) n (1- cur-n) overal)))))
(ret L nil 1 1 nil)))
I wish I'd made you angry earlier
> 1 <


Онлайн :

0 пользователь(ей), 41 гость(ей) :