Числовые функции LISP

@alex1992sv · Регистрация: 05.03.2013

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

Здравствуйте, необходимо решить 3 задачи:
1. Подсчитать число и сумму цифр целого N. Попробовал, написал 2 проги, а объединить не могу.

Lisp
1
2
(defun kolvo (n)
  (cond ((< n 10) n)(t (+ 1 (kolvo (/ n 10))))))

Lisp
1
2
(defun sum (n)
  (cond ((< n 10) n)(t (+ (rem n 10)(sum (/ n 10))))))

2. Найти все общие делители натуральных M и N.
3. Найти наибольший общий делитель чисел из заданного списка.
Помогите пожалуйста. Пишу как в autolisp, так и clisp.

@Catstail · 05.03.2014, 11:46

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun sum-dig (n)
  (if (zerop n) 0 (+ (% n 10) (sum-dig (\ n 10)))))
 
==> sum-dig
 
(sum-dig 123)
 
==> 6
 
(defun num-dig (n)
  (if (zerop n) 0 (+ 1 (num-dig (\ n 10)))))
 
==> num-dig
 
(num-dig 123)
 
==> 3

@alex1992sv · 05.03.2014, 11:47 **[ТС]**

Мне необходимо их объединить в одну программу.

@Catstail · 05.03.2014, 12:04

Возвращаем список из двух элементов: первый - сумма цифр, второй - количество.

Lisp
1
2
3
4
5
6
7
8
(defun sum-num-dig (n &optional (s 0) (m 0))
  (if (zerop n) (list s m) (sum-num-dig (\ n 10) (+ s (% n 10)) (+ m 1))))
 
==> sum-num-dig
 
(sum-num-dig 123)
 
==> (6 3)

Или (с использованием аппарата возврата множества значений):

Lisp
1
2
3
4
5
6
7
8
9
(defun sum-num-dig (n &optional (s 0) (m 0))
  (if (zerop n) (values s m) (sum-num-dig (\ n 10) (+ s (% n 10)) (+ m 1))))
 
==> sum-num-dig
 
(sum-num-dig 123)
 
==> 6 ;; сумма
3 ;; количество

@alex1992sv · 05.03.2014, 12:12 **[ТС]**

Спасибо, а 2 последних задания можете помочь?

@Catstail · 05.03.2014, 12:26

Список общих делителей:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun common-div (m n)
  (let ((q (min n m)) (res nil))
    (iter (for i from 2 to q)
      (when (and (zerop (% m i)) (zerop (% n i))) (collecting i into res))) res)) 
 
==> common-div
 
(common-div 123 45)
 
==> (3)
 
(common-div 1024 65536)
 
==> (2 4 8 16 32 64 128 256 512 1024)

@alex1992sv · 05.03.2014, 13:13 **[ТС]**

Выдает ошибку, что функция iter не определена.

Добавлено через 33 минуты
Можно ли последний код в common lisp преобразовать?

@Catstail · 05.03.2014, 13:16

Без iter

Lisp
1
2
3
4
5
6
7
8
9
10
(defun common-div (m n)
  (let ((q (min n m)) (res nil))
    (dotimes (i q res)
      (when (and (zerop (% m (+ i 1))) (zerop (% n (+ i 1)))) (push (+ i 1) res)))))
 
==> common-div
 
(common-div 1024 65536)
 
==> (1024 512 256 128 64 32 16 8 4 2 1)

@alex1992sv · 05.03.2014, 13:22 **[ТС]**

Большое спасибо за помощь. Последнее сделал сам.

@route66 · 05.03.2014, 15:30

Lisp
1
2
3
4
5
6
7
 ; 1.
(defun F (n &optional result)
    (cond 
        ((zerop n) (list 'sum '= (apply #'+ result) 'quantity '= (length result)))
        (t (F (\ n 10) (append result (list (% n 10)))))))
    
(f 1154) ==> (sum = 11 quantity = 4)

Lisp
1
2
3
4
5
6
7
8
9
;  2.
(defun F (n m &optional (i 2) (dv (if (< n m) n m)))
    (cond
        ((eq i (+ dv 1)) nil)
        (t (if (funcall #'(lambda (x y) (if (and (zerop (% x i)) (zerop (% y i))) t nil)) n m)
            (cons i (F n m (+ i 1) dv))
            (F n m (+ i 1) dv)))))
 
(f 1024 256) ==> (2 4 8 16 32 64 128 256)

@castorsky · 05.03.2014, 22:52

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#lang scheme
 
(define (% x y) (remainder x y))
 
;;1
(define (foo1 n)
  (define (count x counter)
    (if (<= x 0) counter
        (count (/ (- x (% x 10)) 10) (+ 1 counter))))
  (define (sum x result)
    (if (<= x 0) result
        (sum (/ (- x (% x 10)) 10) (+ result (% x 10)))))
  (list (count n 0) (sum n 0)))
 
;;2 very very slow and bad
(define (foo2 x y)
  (define (iter num)
    (cond ((or (> num x) (> num y))
           '())
          ((and (= (% x num) 0) (= (% y num) 0))
           (append (list num) (iter (+ num 1))))
          (else (iter (+ num 1)))))
  (iter 1))
 
;;3 very very slow and bad
(define (foo3 lst)
  (define (min-lst m l1)
    (cond ((null? l1) m)
          ((> m (car l1)) (min-lst (car l1) (cdr l1)))
          (else (min-lst m (cdr l1)))))
  (define (divisior? n l1)
    (if (null? l1) #t
        (and (= (% (max (car l1) n) (min (car l1) n)) 0)
             (divisior? n (cdr l1)))))
  (define (iter num stop storage)
    (cond ((> num stop) storage)
          ((divisior? num lst)
           (iter (+ num 1) stop num))
          (else (iter (+ num 1) stop storage))))
  (iter 1 (min-lst (car lst) lst) 1))

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

Числовые функции LISP

Решение

Решение

@alex1992sv 0 / 0 / 1 Регистрация: 05.03.2013 Сообщений: 16
	05.03.2014, 11:47 [ТС]
	Мне необходимо их объединить в одну программу. 0

@alex1992sv 0 / 0 / 1 Регистрация: 05.03.2013 Сообщений: 16
	05.03.2014, 12:12 [ТС]
	Спасибо, а 2 последних задания можете помочь? 0

@alex1992sv 0 / 0 / 1 Регистрация: 05.03.2013 Сообщений: 16
	05.03.2014, 13:13 [ТС]
	Выдает ошибку, что функция iter не определена. Добавлено через 33 минуты Можно ли последний код в common lisp преобразовать? 0

@alex1992sv 0 / 0 / 1 Регистрация: 05.03.2013 Сообщений: 16
	05.03.2014, 13:22 [ТС]
	Большое спасибо за помощь. Последнее сделал сам. 0