> 1 <

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

Astember

Members


Статус

1 сообщений

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

#7655   2015-07-29 23:43 GMT+3 часа(ов)      
Всем привет,
есть задание: упорядочить список чисел и разбить их на пары.
Если список нечётной длины, то последний элемент остаётся одноэлементным списком.

_sg

Members


Статус

31 сообщений

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

#7657   2015-08-03 18:23 GMT+3 часа(ов)      
(defun pair-sort (w)
(pair (sort w #'<)))
 
(defun pair (w)
(if (cdr w)
(cons (list (car w) (cadr w))
(pair (cddr w)))
(when w (list w))))
 
> (pair-sort '(4 2 1 3))
((1 2) (3 4))
> (pair-sort '(4 2 5 1 3))
((1 2) (3 4) (5))
 
или:
(defun pair-sort (w) (pair (sort w #'<)))
 
(defun pair (w) (if (cdr w)
(cons (subseq w 0 2) (pair (cddr w)))
(and w (list w))))
 
> (pair-sort '(4 2 1 3))
((1 2) (3 4))
> (pair-sort '(4 2 5 1 3))
((1 2) (3 4) (5))
 

отредактировал(а) _sg: 2015-08-04 10:33 GMT+3 часа(ов)
> 1 <


Онлайн :

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




Реклама на сайте: