> 1 <

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

alena94

Members


Статус

1 сообщений

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

#7021   2013-05-12 20:43 GMT+3 часа(ов)      
Здравствуйте. Помогите пожалуйста:
Написать функцию obmen (lst a b), меняющую местами элементы списка lst с номерами a и b

Михаил Орлов

Members


Статус

6 сообщений
http://acad-prog.ru
Где: Russia Пущино
Род занятий: Инженер-проектировщик
Возраст: 48

#7325   2014-03-29 01:36 GMT+3 часа(ов)      
(setq lst (list 1 2)) ;ваш список

;функция переворота списка
(DEFUN obmen (lst / )
(reverse lst)
)

;Вызываем функцию
(obmen lst)


;Пример для списка с тремя элементами, в котором 3-ий элемент меняется со 2-м

;создаем список из 3-х элементов.
(setq lst2 (list 1 2 3))

;функция изменяющая список
(DEFUN obmen2 (lst / )
(setq e0 (nth 0 lst))
(setq e1 (nth 1 lst))
(setq e2 (nth 2 lst))

(setq lst (list e0 e2 e1))
)

;Вызываем функцию
(obmen2 lst2)
acad-prog.ru
> 1 <


Онлайн :

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




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