Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529828 Wed, 10 Mar 2010 17:49:45 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529828 Цитата Alexey Dejneka @ 10.03.10, 17:36

Цитата Vesper @ 10.03.10, 07:23

это возврат, #f ложь (она же NIL) а #t истина (Т)

вообще-то Vesper в скобках приводил аналоги из Common Lisp'а]]> korvin Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529804 Wed, 10 Mar 2010 17:36:27 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529804 Цитата Vesper @ 10.03.10, 07:23

это возврат, #f ложь (она же NIL) а #t истина (Т)

В языке Scheme, начиная по крайней мере с R⁵RS, #f (ложь), символ NIL и пустой список - это три разных объекта, в частности, NIL и () обозначают "истину". #t ("каноническая истина") и символ T также различаются.]]> Alexey Dejneka Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529692 Wed, 10 Mar 2010 16:23:05 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529692

(define (sps2 p1 p2)

(if (= (length p1) 0) 1

(if (> (length p1) (length p2)) 0

(if (= (car p1) (car p2))

(sps2 (cdr p1) (cdr p2)) 0))))

(define (sps p1 p2)

(if (> (length p1) (length p2)) 0

(if (= (sps2 p1 p2) 1) 1

(sps p1 (cdr p2)))))

]]> Mokar Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529668 Wed, 10 Mar 2010 16:08:19 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2529668 Цитата Alexey Dejneka @ 10.03.10, 04:02

Не фурычит:

CL-USER> (sublistp '(1 2 3 1 2 4) '(1 2 3 1 2 3 1 2 4 5))

NIL

Тупое решение:

(defun startp (list1 list2)

(do ((rest1 list1 (cdr rest1))

(rest2 list2 (cdr rest2)))

((null rest1)

(cond ((null rest2)

(return nil))

((not (eql (car rest1) (car rest2)))

(return nil)))))

(defun sublistp (list1 list2)

(do ((rest2 list2 (cdr rest2)))

((startp list1 rest2)

(cond ((null rest2)

(return nil)))))

да, это я не учел =)

Добавлено 10.03.10, 16:15

Цитата Mokar @ 09.03.10, 20:01

korvin спасибо большое за помощь
только не совсем понятно вот эта операция block foo , для чего она нужна?

Добавлено 09.03.10, 20:13
и пробовал щас запустить через MIT-GNU Scheme пишет ошибки(

в следующий раз уточняйте диалект =)

http://www.lispworks.com/documentation/HyperSpec/Body/s_block.htm#block]]> korvin Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528939 Wed, 10 Mar 2010 07:23:38 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528939 Vesper Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528857 Wed, 10 Mar 2010 06:05:57 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528857 Mokar Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528823 Wed, 10 Mar 2010 04:13:28 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528823

(define (startp list1 list2)

(let loop ((rest1 list1) (rest2 list2))

(cond ((null? rest1)

#t)

((null? rest2)

#f)

((not (eqv? (car rest1) (car rest2)))

#f)

(else

(loop (cdr rest1) (cdr rest2))))))

(define (sublistp list1 list2)

(let loop ((rest2 list2))

(cond ((startp list1 rest2)

#t)

((null? rest2)

#f)

(else

(loop (cdr rest2))))))

]]> Alexey Dejneka Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528821 Wed, 10 Mar 2010 04:02:18 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528821

CL-USER> (sublistp '(1 2 3 1 2 4) '(1 2 3 1 2 3 1 2 4 5))

NIL

Тупое решение:

(defun startp (list1 list2)

(do ((rest1 list1 (cdr rest1))

(rest2 list2 (cdr rest2)))

((null rest1)

(cond ((null rest2)

(return nil))

((not (eql (car rest1) (car rest2)))

(return nil)))))

(defun sublistp (list1 list2)

(do ((rest2 list2 (cdr rest2)))

((startp list1 rest2)

(cond ((null rest2)

(return nil)))))

]]> Alexey Dejneka Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528649 Tue, 09 Mar 2010 20:01:04 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528649 korvin спасибо большое за помощь
только не совсем понятно вот эта операция block foo , для чего она нужна?

Добавлено 09.03.10, 20:13
и пробовал щас запустить через MIT-GNU Scheme пишет ошибки(]]> Mokar Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528595 Tue, 09 Mar 2010 18:47:45 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2528595

(defun sublistp (xs ys &key (test 'eql))

(let ((list xs))

(block foo

(dolist (y ys)

(cond ((null list)

(return-from foo t))

((funcall test (first list) y)

(setq list (cdr list)))

(t (setq list xs))))))

;;; Testing:

CL-USER> (sublistp '(1 2 3) '(4 5))

NIL

CL-USER> (sublistp '(1 2 3) '(1 2 4 5 6 7))

NIL

CL-USER> (sublistp '(1 2 3) '(1 2 3 4 5 6 7))

CL-USER> (sublistp '(1 2 3) '(0 1 2 3 4 5 6 7))

CL-USER> (sublistp '(1 2 3) '(0 1 2 4 1 2 3 5 6 7))

]]> korvin Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2527706 Tue, 09 Mar 2010 07:42:46 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2527706 Vesper Lisp https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2527290 Mon, 08 Mar 2010 17:17:14 +0000 Задача по LISP. https://forum.sources.ru/index.php?showtopic=296940&view=findpost&p=2527290 Mokar Lisp