Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2376263 Wed, 23 Sep 2009 09:13:20 +0000 Вопрос по Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2376263 Это обычный Common Lisp.
Вот тут методичка к мюлиспу. На первый взгляд сильно отличатся не должно.
Запустить в командной строке

    MuLisp87.com Common.lsp

Он покажет приглашение к вводу команды.
    $

Потом загрузить файл с определением функции, у меня он назывался list.lisp
     (load "list.lisp")

Cнова дождаться приглашения к вводу и вызвать функцию
    (list_count 3 '(1 3 5 3 4) 0)


Единственное что, возможно он будет ругаться на first и rest, тогда замените их на car и cdr соответственно(разница только в читабельности).]]> Pourtous Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2376005 Wed, 23 Sep 2009 04:25:28 +0000 Вопрос по Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2376005 Odin-online Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375960 Tue, 22 Sep 2009 21:34:19 +0000 Вопрос по Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375960
    detrit% clisp
    [1]> (load "list.lisp")
    ;; Loading file list.lisp ...
    ;; Loaded file list.lisp
    T
    [2]> (list_count 3 '(1 3 5 3 4) 0)
    (1 3)
    [3]>


http://www.cs.sfu.ca/CC/310/pwfong/Lisp/1/tutorial1.html]]> Pourtous Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375957 Tue, 22 Sep 2009 21:15:46 +0000 Вопрос по Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375957
последний вопрос, как правильно теперь это запустить?

(defun (a v a c d) a)

?]]> Odin-online Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375921 Tue, 22 Sep 2009 20:03:39 +0000 Вопрос по Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375921
           1 (defun list_count (N L CurPos)
           2      (if (null L)
           3             nil
           4                 (if (= N (first L))
           5                     (cons CurPos (list_count N  (rest L) (+ CurPos 1)))
           6                    (list_count N (rest L) (+ CurPos 1))
           7                  
           8                  )
           9       )
          10  )
]]> Pourtous Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375374 Tue, 22 Sep 2009 13:03:14 +0000 Вопрос по Lisp https://forum.sources.ru/index.php?showtopic=282727&view=findpost&p=2375374
Задание: Дан список элементов. Найти все позиции элемента в списке, допустим элемент "а", список (а b a c a).

Наш пример, не работающий))):

(defun start(lst el)
(find lst el 0 nil)
)
(defun find(lst el index reslst)
(cond
((null lst) ((reverse reslst)))
((eql(nth index lst) el) (find lst el (add index 1) (cons index reslst)))
(T(find lst el (add index 1) reslst))
)
)


Помогите пожалуйсто довести до ума, чтото трудно с этим лиспом... Заранее спасибо.]]> Odin-online Lisp