[WhiteShark]

По-моему видел где-то такое, но сам сообразить что-то не могу.
Нужно умножить на число все элементы списка не используя лямбду (то есть (mapcar '(labmda (x) (* x number)) lst) не катит) рекурсию, foreach и т.п. только через mapcar и apply.

[gomer]

сам-то понял чего написал?

[WhiteShark]

Ну что непонятного? Надо сделать из (1 2 3) к примеру (2 4 6) используя только mapcar и apply. Ну и конечно кратко и красиво

[Олег (jr.)]

Так попробуй

Код:

[Выделить все]

 (defun mult (lst1 lst2  / )
   (defun foo (num mul)(* num mul))
   (if (or (vl-some 'not (mapcar 'numberp lst1))(vl-some 'not (mapcar 'numberp lst2)))   
     (alert "Recognised non numeric item in a list!")
     (mapcar 'foo lst1 lst2)
   )
)
;;Вызов:
(mult  (list 1 2 3 4) (list 5 6 7 8));<--'(5 12 21 32)
(mult  (list 1 2 3 nil) (list 5 6 7 8));<-- "Recognised non numeric item in a list!"

[gomer]

Сообщение от WhiteShark Ну что непонятного?

через mapcar нельзя, нужно через mapcar. Вот что не понятно. Если по простому...

Код:

[Выделить все]

 (defun double (x) (+ x x))
(mapcar 'double '(0 1 2 3 5))

[WhiteShark]

Спасибо, видимо, нельзя так сделать без определения внешней функции, как в ваших примерах double или foo. Defun я не включил не перечислил но это та же lambda по сути. И надо в общем случае не удвоить, а на любое число умножить.

[nolte]

(mapcar '* (subst (getint) 1 (mapcar '/ f f)) f)
единственная проблема 0 в списке.

[AY]

Код:

[Выделить все]

 ;;; умножение на сто =)
(mapcar '* '(1 2 3) '(100 100 100))

[gomer]

Сообщение от nolte единственная проблема

в том что это работает в 2 раза медленнее чем с лямбдой, так как 2 цикла вместо одного

[nolte]

gomer, про скорость ничего не говорилось а условии, а если она нужна то почему бы и лямбду не попользовать.

[gomer]

Сообщение от nolte если она нужна то почему бы и лямбду не попользовать

[Дима_]

Автокада под рукой нет - но как-то так

Код:

[Выделить все]

 (defun test (x lst) (if lst (cons (* x (car lst)) (test x (cdr lst)))))

[WhiteShark]

Написал сам, правда, не так изящно, как вроде где-то встречал (да и subst не хотел использовать)

(mapcar '* (subst n 0 (mapcar '- lst lst) lst)

[nolte]

(mapcar '* (subst n 0 (mapcar '- lst lst) lst)

для этого не сработает (-2 5 -4 9)

[WhiteShark]

Код:

[Выделить все]

 (defun test (n lst /)
  (mapcar '* (subst n 0 (mapcar '- lst lst)) lst)
)

Всё работает. Просто скобочку одну забыл

[nolte]

да да это я попутал все хорошо. молодца.

[gomer]

польза от таких танцев с бубном сомнительна, разве что для учебных целей. Решение с лямбдой - даже меньше букаф получается