Написать функцию, которая по двум числам формирует список из двух элементов

@Светлана20 · Регистрация: 21.09.2014

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

Доброго дня) вот условие задачи: Написать функцию, которая по двум числам формирует список из двух эле-
ментов: первый элемент — результат целочисленного деления чисел, второй —
остаток. Если второй аргумент равен нулю, вернуть nil. Вот код:

Lisp
1
2
3
4
5
6
(defun F (N1 N2)
               (if (/= N2 0)
               (if (< N1 N2)
               (list 0 N1)
               (mapcar '+'(1 0)
               (F (- N1 N2) N2)))))

Как исправить, чтобы работало и для отрицательных чисел?

transformator.t · 03.10.2014, 17:03

Lisp
1
2
3
4
5
(defun f (n m)
            (if (zerop m) ()
                (multiple-value-bind (x y)
                    (truncate n m)
                  (list x y))))

@Светлана20 · 03.10.2014, 17:06 **[ТС]**

transformator.t, не работает. Если подставить (F -1 3) выводит ( 0 -1). А если (F -2 1) выводит (-2 0), хотя по логике должно быть (2 0)

transformator.t · 03.10.2014, 17:12

Светлана20, а у тебя не указано, каких именно чисел

@Светлана20 · 03.10.2014, 17:30 **[ТС]**

transformator.t, Да, в задании не указаны какие именно числа. Я просто проверяю работу кода, подставляя различные числа.

@Vtulhu · 03.10.2014, 17:44

Lisp
1
2
3
4
(defun f (a b)
    (if (zerop b)
        nil
        (multiple-value-list (ceiling a b))))

@Светлана20 · 03.10.2014, 17:59 **[ТС]**

Vtulhu, тоже самое, если ввести (F -2 1) выводит (-2 0), хотя по логике должно быть (2 0)

@Vtulhu · 03.10.2014, 18:12

Сообщение от Светлана20

Vtulhu, тоже самое, если ввести (F -2 1) выводит (-2 0), хотя по логике должно быть (2 0)

По какой логике, по женской?
-2 / 1 = -2
a / 1 = a, для любого a

@Светлана20 · 03.10.2014, 18:26 **[ТС]**

Vtulhu, А черт, спасибо Вам большое) да, по женской

@Catstail · 03.10.2014, 20:13

HomeLisp, без изысков:

Lisp
1
2
3
4
5
6
7
8
(defun task (a b)
  (if (zerop b) nil (list (\ a b) (% a b))))
 
==> task
 
(task -2 1)
 
==> (-2 0)

@Светлана20 · 04.10.2014, 17:10 **[ТС]**

Catstail, Спасибо большое, но ругается на %. Error: Undefined operator % in form (% A B)

transformator.t · 04.10.2014, 18:43

Светлана20, ты находишь это странным?

@Catstail · 04.10.2014, 19:37

Светлана20, это для HomeLisp. Для CommonLisp:

Lisp
1
2
(defun task (a b)
  (if (zerop b) nil (list (truncate (/ a b)) (rem a b))))

@Светлана20 · 04.10.2014, 20:10 **[ТС]**

Catstail, Спасибо огромное! снова, очень помогли)

@castorsky · 05.10.2014, 22:26

Lisp
1
2
3
4
5
6
;; racket-lang.org
(define (foo . lst)
  (match lst
    [(list _ 0) '()]
    [(list a b) (list (quotient a b) (remainder a b))]
    [_ '()]))

@Catstail · 06.10.2014, 08:53

Этот код будет работать и в HomeLisp:

Lisp
1
2
(defun task (a b)
  (if (zerop b) nil (list (quotient a b) (remainder a b))))

@Vtulhu · 06.10.2014, 10:48

Lisp
1
2
(defun f (a b)
    (unless (zerop b) (multiple-value-list (ceiling a b))))

@Vtulhu · 22.10.2014, 16:10

На языке Factor:

Code
1
[ drop nil ] [ /mod 2list ] if-zero

@helter · 22.10.2014, 16:13

Не надо в случае деления на 0 возвращать nil. Пусть лучше генерируется обычная ошибка. В лиспе очень развиты средства работы с состояниями (conditions).

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Светлана20 3 / 3 / 0 Регистрация: 21.09.2014 Сообщений: 67
	03.10.2014, 17:06 [ТС]
	transformator.t, не работает. Если подставить (F -1 3) выводит ( 0 -1). А если (F -2 1) выводит (-2 0), хотя по логике должно быть (2 0) 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	03.10.2014, 17:12
	Светлана20, а у тебя не указано, каких именно чисел 0

@Светлана20 3 / 3 / 0 Регистрация: 21.09.2014 Сообщений: 67
	03.10.2014, 17:30 [ТС]
	transformator.t, Да, в задании не указаны какие именно числа. Я просто проверяю работу кода, подставляя различные числа. 0

@Светлана20 3 / 3 / 0 Регистрация: 21.09.2014 Сообщений: 67
	03.10.2014, 17:59 [ТС]
	Vtulhu, тоже самое, если ввести (F -2 1) выводит (-2 0), хотя по логике должно быть (2 0) 0

@Светлана20 3 / 3 / 0 Регистрация: 21.09.2014 Сообщений: 67
	03.10.2014, 18:26 [ТС]
	Vtulhu, А черт, спасибо Вам большое) да, по женской 0

@Светлана20 3 / 3 / 0 Регистрация: 21.09.2014 Сообщений: 67
	04.10.2014, 17:10 [ТС]
	Catstail, Спасибо большое, но ругается на %. Error: Undefined operator % in form (% A B) 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	04.10.2014, 18:43
	Светлана20, ты находишь это странным? 0

@Светлана20 3 / 3 / 0 Регистрация: 21.09.2014 Сообщений: 67
	04.10.2014, 20:10 [ТС]
	Catstail, Спасибо огромное! снова, очень помогли) 0

@helter 4528 / 3522 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	22.10.2014, 16:13
	Не надо в случае деления на 0 возвращать nil. Пусть лучше генерируется обычная ошибка. В лиспе очень развиты средства работы с состояниями (conditions). 0