Не определена функция, не могу понять почему?

@Swamp! · Регистрация: 20.05.2013

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

Lisp

(defun pr (C N)
    (loop
        (IF (= (mod C N) 0) (and (print N) (setq N 2) (setq C (/ C N))) (IF (= (C N)) (return) (IF (/= C 0) (return))))))
 
 
(pr 100 2)

Error(s), warning(s):
*** - EVAL: undefined function C

@Catstail · 09.12.2017, 13:18

Все правильно. Запись (c n) это вызов фукции с с аргументом n.í

Добавлено через 2 часа 51 минуту

Lisp

(defun pr (C N)
    (loop
        (IF (= (mod C N) 0) (and (print N) (setq N 2) (setq C (/ C N))) (IF (= C N) (return) (IF (/= C 0) (return))))))
 
==> PR
 
(pr 100 2)
22
==> NIL

	09.12.2017, 13:18