Поиск выхода из лабиринта.Программа на ЛИСПе

В форматировании, на месте интерпретатора, я бы пустил 220 тебе на клавиатуру.

Ты это в REPL запихал?

(SETQ LABYRINTH '(A (B) B (C A) C (B K) H (I) I (P M H) J (K) K (J C Q R) L (M N) M (T I LS) N (L S) P (Q I) Q (V P R K W) R (Q K) S (M N) T (M V) V (Q T Z) W (Q) Z (V)))
(DEFUN WAY(A B)(PRLISTS(PATH A ())))
(DEFUN PRLISTS(L))
	(COND ((NULL L) 0)
		(T (PRINT (CAR l)) (+1 (PRLISTS (CDR L)))))
(DEFUN PATH(THIS PATH)
	(COND ((EQ THIS B) (LIST (REVERSE (CONS B PATH))))
		((MEMBER THIS PATH) ())
		(T (NEXT(CADR (MEMBER THIS LABYRINTH))
			(CONS THIS PATH)))))
(DEFUN NEXT(NEXT PATH)
	(COND ((NULL NEXT) NIL)
		(T (APPEND (PATH (CAR NEXT) PATH)
			(NEXT (CDDR NEXT) PATH)))))

>Ты это в REPL запихал? >anonymous (*) (08.11.2008 16:16:47)

что сие означает?

> что сие означает?

Данный товарищ какбе намекает на то, за каким дьяволом было писать все в upper-case, а так-как руками такое набирать глупо, мягко говоря, то, возможно, этот код топикстатер скопировал сначала в интерпретатор, а уже его выхлоп скопировал в топик.

K.O.

Дык сначала функция path должна компилироваться, а потом way.
Можешь ручками С-с каждую из них.