Рекурсия: умножение целых чисел через сложение и вычитание

@Ирина197708 · Регистрация: 06.08.2011

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

Добрый день.
Помогите дописать программку.
Задание: Определите умножение целых чисел через сложение и вычитание.
Решение:
Делаем рекурсию по второму аргументу предиката, используя рекурсивное определение X*Y=X*(Y-1)+X.
Как реализовать это на лиспе?

Lisp

(defun su(x y)                                                              
         (if (< y 0) 0                                                             
             (- y 1))                                                              
               su(x y))

Спасибо

@route66 · 11.11.2013, 18:31

Lisp

(defun F (x y)
    (cond
        ((zerop y) 0)
        ((equal y 1) x)
        (t (+ x (F x (- y 1))))))
 
(F 4 9)
==> 36
 
(F -4 9)
==> -36
 
(F 4 0)
==> 0

@Catstail · 11.11.2013, 20:31

Сообщение от Ирина197708

Делаем рекурсию по второму аргументу предиката,

- одни и те же задачи... Одни и те же ошибки... Предикат - это логическая функция (т.е. возвращающая значения T или NIL). При чем здесь умножение?

route66, в коде есть небрежность:

Lisp

(defun F (x y)
    (cond
        ((zerop y) 0)
        ((equal y 1) x)
        (t (+ x (F x (- y 1))))))
 
==> f
 
(f 3 4) 
 
==> 12 ;; верно
 
(f -3 4)
 
==> -12 ;; верно
 
(f 3 -4)
 
EVAL: Превышение допустимой глубины рекурсии 
==> ERRSTATE

Корректнее так:

Lisp

(defun mult (x y)
  (cond ((zerop x) 0)
        ((zerop y) 0)
        ((< x 0) (- (mult (- x) y)))
        ((< y 0) (- (mult x (- y))))
        ((= x 1) y)
        (t (+ y (mult (- x 1) y)))))
 
==> mult
 
(mult 6 -7)
 
==> -42
 
(mult -6 -7)
 
==> 42
 
(mult -6 7)
 
==> -42

	11.11.2013, 20:31