Cabbages, Common Lisp

Language: Layout:

;;;; Things to start the game:
;;;; (set 'c-start '(E E E E))
;;;; (set 'c-goal '(W W W W))
;;;;
;;;; Moves:
;;;; (set 'moves '(f fw fg fc))

(set 'c-start '(E E E E))
(set 'c-current '())
(set 'c-goal '(W W W W))

;;; Sets our current position to the starting position
(setf c-current c-start)

;;; These are the movement functions
(defun f(whatisitnow)
    (farmermove)
    (cond
        ((NOT (isitsafe)) (farmermove))
        (t (print c-current))
    )
)

(defun fw(whatisitnow)
    (farmerwolfmove)
    (cond
        ((NOT (isitsafe)) (farmerwolfmove))
        (t (print c-current))
    )
)

(defun fg(whatisitnow)
    (farmergoatmove)
    (cond
        ((NOT (isitsafe)) (farmergoatmove))
        (t (print c-current))
    )
)

(defun fc(whatisitnow)
    (farmercabbagemove)
    (cond
        ((NOT (isitsafe)) (farmercabbagemove))
        (t (print c-current))
    )
)

;; Move gives the opposite output to whatever its given
(defun move(loc)
  (cond
   ((equal loc 'E) 'W)
   ((equal loc 'W) 'E)
   (t nil)
   )
  )

;; Swaps the sides for the farmer
(defun farmermove()
  (rplaca c-current (move(farmerloc)))
  )

;; Swaps the sides for the farmer and the wolf
(defun farmerwolfmove()
  (rplaca c-current (move(farmerloc)))
  
  (cons (first c-current) (rplaca (cdr c-current) (move(wolfloc))))

)

;; Swaps the sides for the farmer and the goat
(defun farmergoatmove()
  (rplaca c-current (move(farmerloc)))
  
  (rplaca (cdr (cdr c-current)) (move(goatloc)))

)

;; Swaps the sides for the farmer and the cabbage
(defun farmercabbagemove()
  (rplaca c-current (move(farmerloc)))
  
  (rplaca (last c-current) (move(cabbageloc)))

)

;;; These functions return the current location of the given things
(defun farmerloc ()
  (return-from farmerloc (first c-current))
  )

(defun wolfloc ()
  (return-from wolfloc (first (cdr c-current)))
  )

(defun goatloc ()
  (return-from goatloc (first (cdr (cdr c-current))))
  )

(defun cabbageloc ()
  (return-from cabbageloc (first (cdr (cdr (cdr c-current)))))
  )

;;; This checks if where the things are is a safe place to be left
;;; If the goat and the wolf are left without the farmer it is not safe
;;; If the goat and the cabbage are left without the farmer it is not safe
;;; Returns Yes for a safe state, and No for an unsafe state

(defun isitsafe ()
	(cond
		( (AND (NOT (equal (wolfloc) (farmerloc))) (equal (wolfloc) (goatloc))) nil)
		( (AND (NOT (equal (goatloc) (farmerloc))) (equal (cabbageloc) (goatloc))) nil)   
   		(t "Yes")
   
	)
 
)

(fg c-current)
(f c-current)
(fc c-current)
(fg c-current)
(f c-current)

[ + ] Show input
Absolute running time: 0.21 sec, cpu time: 0.14 sec, memory peak: 5 Mb, absolute service time: 0,23 sec