> 1 <

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

Валентин Бугаев

Members


Статус

1 сообщений

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

#5347   2011-12-16 15:02 GMT+3 часа(ов)      
Не останавливаясь на моих умственных способностях и способе реализации "программы" подскажите, пожалуйста, можно ли заставить (как) MuLISP использовать результат выполнения одной функции (revers-all в данном примере) в качестве аргумента другой (в примере обозвал rezultat-revers-all-x):

(defun reverse-ne-all (rezultat-revers-all-x)
(if (atom rezultat-revers-all-x)
rezultat-revers-all-x
(mapcar 'reverse-ne-all (reverse rezultat-revers-all-x))
)
); klassik revers spiska bez vhojdenii

(defun revers-all (x)
((null x) nil)
(append (reverse (cdr x))(cons (car x) nil)))
; polny revers spiska

> (reverse-ne-all '(1 (2 3 4 5 6 (9 (-7 0) (10 11) 12) 13))
> 1 <


Онлайн :

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




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