선교사와 식인종을 LISP으로 프로그래밍

본문내용

sed))
(cond ( (equal n goal )
(format T "~%~% Goal reached!!")
; (print_path (get_path n))
(return (get_path n))
) )
(setq L (move_operator n))
(setq L (set-difference L closed))
(setq open (append L (set-difference open L)))
(dolist (x L) (set_back_ptr x n) )
(go again)
) )
[실행결과]
(depth_first '(0 (3 3) (0 0)) '(1 (0 0) (3 3)))에서 Start변수에서 처음 0은 출발지를 의미하며 두 번째 (3 3)은 출발지에서의 선교자수와 식인종수를 의미하고 마지막 (0 0)은 목적지에서의 선교자수와 식인종수를 의미합니다. Goal변수에서 처음 1은 목적지를 의미하며 두 번째 (0 0)은 출발지에서의 선교자수와 식인종수를 의미하고 마지막 (3 3)은 목적지에서의 선교자수와 식인종수를 나타냅니다. 결국은 출발지 0에서 목적지 1로 출발지의 선교사 3명과 식인종 3명을 목적지로 남김없이 옮기는 것을 의미합니다.

키워드

LISP,   선교사,   식인종,   인공지능