Задача на языке LSP

@dema2810 · Регистрация: 22.12.2011

Author24 — интернет-сервис помощи студентам

Дан массив из 15 вещественных чисел.Если минимальный элемент массива находится на 2 месте, а максимальный - на 1 месте массива, то все элементы массива уменьшить в 2 раза.

Заранее благодарен.

transformator.t · 23.12.2011, 08:48

Lisp

CL-USER> (defun f (l)
           (if (and (= (first l) (apply #'max l))
                    (= (second l) (apply #'min l)))
               (mapcar #'(lambda (x) (/ x 2.0)) l)
               l))
F
CL-USER> (f '(15 3 4 5 11 12))
(7.5 1.5 2.0 2.5 5.5 6.0)
CL-USER> (f '(3 15 4 5 11 12))
(3 15 4 5 11 12)

Добавлено через 8 минут
если не вход подаётся вектор типа #(1 2 3), то можно

Lisp

1 2	CL-USER> CL-USER> (coerce #(1 2 3 4 5) 'list) (1 2 3 4 5)

а обратно

Lisp

1 2	CL-USER> (coerce '(1 2 3 4 5) 'vector) #(1 2 3 4 5)

по той причине, что

Lisp

1	(apply #'max arg)

работает только для списков.
... или я про векторы чего-то подзабыл))

Добавлено через 32 минуты
или так

Lisp

CL-USER> (defun f (obj)
           (flet ((test (obj)
                    (and (= (first obj) (apply #' max obj))
                         (= (second obj) (apply #' min obj))))
                  (mapping (obj) (mapcar #'(lambda (x) (/ x 2.0)) obj)))
             (let ((obj-l (coerce obj 'list)))
               (if (typep obj 'vector)
                   (if (test obj-l) (coerce (mapping obj-l) 'vector)
                       (coerce obj-l 'vector))
                   (if (test obj) (mapping  obj) obj)))))
 
CL-USER> (f '(15 3 4 5 11 12))
(7.5 1.5 2.0 2.5 5.5 6.0)
CL-USER> (f #(15 3 4 5 11 12))
#(7.5 1.5 2.0 2.5 5.5 6.0)
CL-USER> (f '(3 15 4 5 11 12))
(3 15 4 5 11 12)
CL-USER> (f #(3 15 4 5 11 12))
#(3 15 4 5 11 12)

@dema2810 · 23.12.2011, 18:47 **[ТС]**

спасибо большое, но мы только проходили такие процедуры как: DEFUN,CAR,CDR,NULL,COND
и я боюсь если я в таком виде предоставлю препод не поверит(
если можно напишите пожалуйста задачу на этих процедурах.

Спасибо.

transformator.t · 23.12.2011, 19:41

Lisp

CL-USER> (defun max- (l)
           (if (null (cdr l)) (car l)
               (if (> (car l) (second l))
                   (max- (cons (car l) (cddr l)))
                   (max- (cdr l)))))
 
CL-USER> (defun min- (l)
           (if (null (cdr l)) (car l)
               (if (< (car l) (second l))
                   (min- (cons (car l) (cddr l)))
                   (min- (cdr l)))))
 
CL-USER> (defun f (l pred)
           (if (null l) ()
               (if pred
                   (cons (/ (car l) 2.0)
                         (f (cdr l) t)) l)))
 
CL-USER> (defun fun (l)
           (f l (and (= (first l) (max- l))
                        (= (second l) (min- l)))))
 
CL-USER> (fun '(15 3 4 5 11 12))
(7.5 1.5 2.0 2.5 5.5 6.0)
CL-USER> (fun '(3 15 4 5 11 12))
(3 15 4 5 11 12)

Добавлено через 1 минуту
ну а векторов касаться не будем, раз вы

Сообщение от dema2810

только проходили такие процедуры как: DEFUN,CAR,CDR,NULL,COND

Добавлено через 7 минут
min- и max- дублирующий код, переписываем, а преподу скажешь, что заглянул немного вперёд и про funcall прочитал

Добавлено через 1 минуту

Lisp

(defun max-min (l pred)
           (if (null (cdr l)) (car l)
               (if (funcall pred  (car l) (second l))
                   (max-min (cons (car l) (cddr l)) pred)
                   (max-min (cdr l) pred))))
 
(defun f (l pred)
           (if (null l) ()
               (if pred
                   (cons (/ (car l) 2.0)
                         (f (cdr l) t)) l)))
 
(defun fun (l)
           (f l (and (= (first l) (max-min l #'>))
                        (= (second l) (max-min l #'<)))))

@dema2810 · 24.12.2011, 16:54 **[ТС]**

спасибо огромное)
можно еще один вопрос что такое pred?) и почему нигде не используется функция Lst(

Добавлено через 19 минут
(defun max-min (l pred)
max-min- это назавание функции??
(l pred) не знаю что(

transformator.t · 24.12.2011, 17:54

Сообщение от dema2810

(l pred) не знаю что(

- список параметров)

@dema2810 · 25.12.2011, 17:07 **[ТС]**

Сообщение от transformator.t

- список параметров)

т.е. вместо (1 pred) я могу написать что угодно?

@dema2810 · 27.12.2011, 00:30 **[ТС]**

no function definition: FIRST
консоль выдает это((

(defun max-min (l pred)
(if (null (cdr l)) (car l)
(if (funcall pred (car l) (second l))
(max-min (cons (car l) (cddr l)) pred)
(max-min (cdr l) pred))))

(defun f (l pred)
(if (null l) ()
(if pred
(cons (/ (car l) 2.0)
(f (cdr l) t)) l)))

(defun fun (l)
(f l (and (= (first l) (max-min l #'>))
(= (second l) (max-min l #'<)))))

@dema2810 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 12
		1
	Задача на языке LSP 22.12.2011, 23:36. Показов 1537. Ответов 7 Метки нет (Все метки) Дан массив из 15 вещественных чисел.Если минимальный элемент массива находится на 2 месте, а максимальный - на 1 месте массива, то все элементы массива уменьшить в 2 раза. Заранее благодарен. 0

@dema2810 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 12
	23.12.2011, 18:47 [ТС]	3
	спасибо большое, но мы только проходили такие процедуры как: DEFUN,CAR,CDR,NULL,COND и я боюсь если я в таком виде предоставлю препод не поверит( если можно напишите пожалуйста задачу на этих процедурах. Спасибо. 0

@dema2810 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 12
	24.12.2011, 16:54 [ТС]	5
	спасибо огромное) можно еще один вопрос что такое pred?) и почему нигде не используется функция Lst( Добавлено через 19 минут (defun max-min (l pred) max-min- это назавание функции?? (l pred) не знаю что( 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	24.12.2011, 17:54	6
	Сообщение от dema2810 (l pred) не знаю что( - список параметров) 0

@dema2810 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 12
	25.12.2011, 17:07 [ТС]	7
	Сообщение от transformator.t - список параметров) т.е. вместо (1 pred) я могу написать что угодно? 0

@dema2810 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 12
	27.12.2011, 00:30 [ТС]	8
	no function definition: FIRST консоль выдает это(( (defun max-min (l pred) (if (null (cdr l)) (car l) (if (funcall pred (car l) (second l)) (max-min (cons (car l) (cddr l)) pred) (max-min (cdr l) pred)))) (defun f (l pred) (if (null l) () (if pred (cons (/ (car l) 2.0) (f (cdr l) t)) l))) (defun fun (l) (f l (and (= (first l) (max-min l #'>)) (= (second l) (max-min l #'<))))) 0