Дан список, элементы которого — натуральные числа. Умножить каждый элемент на 2

18.05.2012, 13:48. **Показов** 2333. **Ответов** 2

Пожалуйста помогите, решением, я дноо

@Catstail · 18.05.2012, 13:57

Lisp

1	(defun 2 (x) (mapcar #'(lambda (y) ( y 2)) x))

Другой способ:

Lisp

1 2	(defun 2 (x) (cond ((null x) nil) (t (cons ( 2 (car x)) (*2 (cdr x))))))

И еще один:

Lisp

1
2
3

(defun *2 (x) 
  (let ((res nil))
       (dolist (i x res) (setq res (append res (list (* 2 i)) )))))

@_sg · 18.05.2012, 15:27

Lisp

(defun double (w)
  (when w (cons (* (car w) 2) (double (cdr w)))))
 
> (double '(1 2))
(2 4)

Lisp

(defun double (w)
  (loop for a in w collect (* a 2)))
 
> (double '(1 2))
(2 4)

oversinger
		1
	Дан список, элементы которого — натуральные числа. Умножить каждый элемент на 2 18.05.2012, 13:48. Показов 2333. Ответов 2 Метки нет (Все метки) Пожалуйста помогите, решением, я дноо

	18.05.2012, 15:27