Как вызвать функцию?

@Ferrari F1 · Регистрация: 27.01.2015

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

Подскажите пожалуйста, как вызвать функцию F для поиска минимального остовного дерева?
https://www.cyberforum.ru/post6334776.html

Ввожу:

Lisp

1	(F (1 a b))

выводит ошибку

Lisp

1 2	EVFUN: Не найдена функция 1 ==> ERRSTATE

Добавлено через 8 минут
Погите пожалуйста. Просто скажите, как вызвать функцию, это так трудно?

@VH · 24.02.2016, 21:33

Lisp

1	(F '((1 A B)))

@Ferrari F1 · 24.02.2016, 21:40 **[ТС]**

VH, теперь пишет, что

Lisp

1 2	Аргумент CAR - атом (CAR) ==> ERRSTATE

@helter · 24.02.2016, 21:40

Если не оговорено противное, списки вычисляются, причём предполагается, что на первом месте списка стоит имя функции, потом — аргументы. В частности,

Сообщение от Ferrari F1

(1 a b)

предполагает применение функции по имени 1 к аргументам a и b. Ваша система тактично намекает, что функции по имени 1 не существует.

Чтобы список не вычислялся, а воспринимался буквально, перед ним ставят кавычку.

@Ferrari F1 · 24.02.2016, 21:51 **[ТС]**

VH, helter, помогите пожалуйста, умоляю. Всего лишь нужно вызвать функцию.

Скачал HomeLisp, создал в нем файл исходного кода, вбил в пустой файл первые 3 функции, взятые по ссылке (https://www.cyberforum.ru/post6334776.html), сохраняю этот файл исх. кода, загружаю этот файл(пишет, что загружен успешно), в окне области ввода ввожу

Lisp

1	(F '((1 A B)))

и возникает ошибка

Lisp

1 2	Аргумент CAR - атом (CAR) ==> ERRSTATE

Пробовал брать вариант Catstail'а, но при использовании его кода компилятор ругается на функцию сортировки (не знаю, где он ее взял).

@VH · 24.02.2016, 22:09

У меня XLISP-PLUS 3.05 от Tom Almy. Все работает. http://almy.us/files/xl305win.zip
Диагностическое сообщение о том, что где-то выполняется вызов (car) не со списком, а с атомом. Вероятно, автор HomeLispа Catstail может прояснить эту ситуацию.

@Ferrari F1 · 24.02.2016, 22:18 **[ТС]**

VH, Скажи, как вобще запустить код на указанном тобою компиляторе? У меня пишет

@Ferrari F1 · 24.02.2016, 22:26 **[ТС]**

VH,
Ошибку понял, теперь возникла вот такая проблема:

@VH · 24.02.2016, 22:33

Там же написано:
Формат списка данных Links:
((длина имя_узла1 имя_узла2)...)
Вызов функции:
(F список_данных)
то есть
если есть только одна связь (дуга) между узлами A и B длиной 1 (как у Вас), то
список содержит один элемент ((1 A B)) и

Lisp

1	(F '((1 A B)))

@Ferrari F1 · 24.02.2016, 22:39 **[ТС]**

VH, можете мне объяснить, как мне задать 3 (пусть будет три) ребра функцией F?

@Ferrari F1 · 24.02.2016, 22:48 **[ТС]**

Пытался ввести список из двух ребер, но ничего не происходит

Ни ошибки, ни результата.

@VH · 25.02.2016, 08:58

Попробуйте

Lisp

(defun CLEAN_from_Nodes_in_Links (Nodes Links)
 (if Links
  ((lambda (elem result)
    ((lambda (test)
      (cond
       ((< test 2) (cons elem result))
       ((= test 2) (cons (cons (car elem) (reverse (cdr elem))) result))
       ((= test 3) result)))
     (apply '+
      (mapcar '*
      '(1 2)
       (mapcar
        (function (lambda (node)  ; здесь изменение
         (if (member node Nodes) 1 0)))
        (cdr elem))))))
   (car Links)
   (CLEAN_from_Nodes_in_Links Nodes (cdr Links)))))

а вызывать функцию

Lisp

1	(F '((1 a b)(1 a c)))

Добавлено через 9 часов 35 минут
Интересно, что в 2009 в версии 3.04 работало в форме (quote (lambda ...)) / '(lambda ...), а в версии 3.05 так не работает, а работает в форме (function (lambda ...)) / #'(lambda ...)

@Ferrari F1 805 / 532 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	24.02.2016, 22:39 [ТС]	10
	VH, можете мне объяснить, как мне задать 3 (пусть будет три) ребра функцией F? 0

@Ferrari F1 805 / 532 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	24.02.2016, 22:48 [ТС]	11
	Пытался ввести список из двух ребер, но ничего не происходит Ни ошибки, ни результата. 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	24.02.2016, 21:40	4
	Если не оговорено противное, списки вычисляются, причём предполагается, что на первом месте списка стоит имя функции, потом — аргументы. В частности, Сообщение от Ferrari F1 (1 a b) предполагает применение функции по имени 1 к аргументам a и b. Ваша система тактично намекает, что функции по имени 1 не существует. Чтобы список не вычислялся, а воспринимался буквально, перед ним ставят кавычку. 0

@VH 428 / 256 / 23 Регистрация: 23.11.2010 Сообщений: 278
	24.02.2016, 22:09	6
	У меня XLISP-PLUS 3.05 от Tom Almy. Все работает. http://almy.us/files/xl305win.zip Диагностическое сообщение о том, что где-то выполняется вызов (car) не со списком, а с атомом. Вероятно, автор HomeLispа Catstail может прояснить эту ситуацию. 1

@Ferrari F1 805 / 532 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	24.02.2016, 22:18 [ТС]	7
	VH, Скажи, как вобще запустить код на указанном тобою компиляторе? У меня пишет 0

@Ferrari F1 805 / 532 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	24.02.2016, 22:26 [ТС]	8
	VH, Ошибку понял, теперь возникла вот такая проблема: 0

Как вызвать функцию?

Решение