> 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 часа(ов)
Решение задач на языке программирования Лисп. - 2016 - 1068 с.
> 1 <


Онлайн :

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




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