Кто-нибудь шарит в Common Lisp? Нужна помощь. - Помощь студентам

IGREK · 05.06.2008, 01:35

подскажите пожалуйста, как покрасивее реализовать вычисление остатка от деления числа на 3. Казалось бы, задача пустяковая, однако не все так просто

.

Stilet · 05.06.2008, 08:51

Я может не в тему, но как по мне можно и обычной арифметикой обойтись:

Код:

(- 11 (* 3 (/ 11 3)))

Здесь 11 - то самое число.

IGREK · 05.06.2008, 15:59

Спасибо.Пробовал,не то.В приведенной тобой строке операция деления должна давать целую часть результата,тогда получится.Есть идеи?

VH_ · 07.06.2008, 21:40

Код:

(defun F (N)
 (cond
  ((< N 3) N)
  (T (F (- N 3)))))

Код:

(defun F (N)
 (if (< N 3) N
  (F (- N 3))))

IGREK · 08.06.2008, 18:13

Спасибо,конечно,но рекурсией такое считать - это экстрим. Сегодня узнал,что все намного проще: всего-лишь одна команда mod справляется наура

.

VH_ · 08.06.2008, 23:46

В LISPе нет «команд», а только функции (и их вызовы), специальные формы и макро. Термин «реализовать» обычно подразумевает "предоставить функцию (либо макро - и это оговаривается), возвращающую требуемый результат, и использующую базовые функции и специальные формы, а встроенные функции - минимально и по необходимости".
На вопрос "какая встроенная функция возвращает остаток от деления" немедленно последовал бы ответ: (rem) и (mod), а также можно использовать функции (truncate), (round) и (floor), возвращающие остаток от деления как второе значение.

05.06.2008, 01:35	#1
IGREK Пользователь Регистрация: 04.06.2008 Сообщений: 16	Кто-нибудь шарит в Common Lisp? Нужна помощь. подскажите пожалуйста, как покрасивее реализовать вычисление остатка от деления числа на 3. Казалось бы, задача пустяковая, однако не все так просто .

05.06.2008, 08:51	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Я может не в тему, но как по мне можно и обычной арифметикой обойтись: Код: `(- 11 (* 3 (/ 11 3)))` Здесь 11 - то самое число. I'm learning to live...

07.06.2008, 21:40	#4
VH_ Новичок Джуниор Регистрация: 07.06.2008 Сообщений: 2	Код: `(defun F (N) (cond ((< N 3) N) (T (F (- N 3)))))` Код: `(defun F (N) (if (< N 3) N (F (- N 3))))`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Открытие документов Microsofrt Common Console через delphi	)Игнат(	Общие вопросы Delphi	6	24.01.2008 17:09
Кто шарит в PHP	Simply-Art	PHP	3	20.05.2007 21:01

05.06.2008, 15:59	#3
IGREK Пользователь Регистрация: 04.06.2008 Сообщений: 16	Спасибо.Пробовал,не то.В приведенной тобой строке операция деления должна давать целую часть результата,тогда получится.Есть идеи?

08.06.2008, 18:13	#5
IGREK Пользователь Регистрация: 04.06.2008 Сообщений: 16	Спасибо,конечно,но рекурсией такое считать - это экстрим. Сегодня узнал,что все намного проще: всего-лишь одна команда mod справляется наура .

08.06.2008, 23:46	#6
VH_ Новичок Джуниор Регистрация: 07.06.2008 Сообщений: 2	В LISPе нет «команд», а только функции (и их вызовы), специальные формы и макро. Термин «реализовать» обычно подразумевает "предоставить функцию (либо макро - и это оговаривается), возвращающую требуемый результат, и использующую базовые функции и специальные формы, а встроенные функции - минимально и по необходимости". На вопрос "какая встроенная функция возвращает остаток от деления" немедленно последовал бы ответ: (rem) и (mod), а также можно использовать функции (truncate), (round) и (floor), возвращающие остаток от деления как второе значение.