VPF::наибольший общий делитель - Форум программистов

virux

Дата 20.3.2011, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.2.2011

Репутация: нет
Всего: нет

я сделал фукцию но она не роботает.

(defun CMMDC(x y)
    (cond((< x y))
      (if(=(rem(y x)0))
                  return x) (- x 1))
(if((=(rem(x y)o)return y)(- x 1))))

как сделать чтобы она роботало?

k0rvin

Дата 21.3.2011, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5

http://www.billthelizard.com/2010/01/sicp-...se-120-gcd.html

соответственно

Код


(defun gcd (a b)
  (do ()
      ((= b 0) a)
    (let ((next-a b)
          (next-b (rem a b)))
      (setf a next-a)
      (setf b next-b))))

--------------------

“Object-oriented design is the roman numerals of computing.” — Rob Pike
All software sucks

donserj

Дата 24.3.2011, 00:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 24.2.2011
Где: Moldova,Floresti

Репутация: нет
Всего: нет

functia treb numita cel mai mare sugator comun

_sg

Дата 25.4.2014, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

Код


(defun greatest-common-divisor (a b)
  (if (zerop (rem a b)) b (greatest-common-divisor b (rem a b))))

> (greatest-common-divisor 70 105)
35
> (greatest-common-divisor 32453 345)
23

--------------------

vk.com/ansicommonlisp

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »