CMPU-365, Spring 2013
Asmt. 1 
SAMPLE INTERACTIONS


CL-USER(15): (load "asmt1-solns.lisp")
; Loading asmt1-solns.lisp
;   Loading asmt-helper.lisp
====================================
  CMPU-365, Spring 2013
  Asmt. 1
  Solutions
====================================

-------------------------
 PROBLEM 1:  FETCH-FIRST-SYMBOL
-------------------------

(FETCH-FIRST-SYMBOL '(1 2 THREE 4 FIVE)) 
===> THREE

(FETCH-FIRST-SYMBOL (LIST 1 (LAMBDA (X) X) #'EVAL)) 
===> NIL

-------------------------
 PROBLEM 2:  VECTORS
-------------------------

(SETF VECK-ONE #(0 1 2 3 4 5)) 
===> #(0 1 2 3 4 5)

(SETF VECK-TWO (VECTOR-COPY VECK-ONE)) 
===> #(0 1 2 3 4 5)

(SETF (SVREF VECK-ONE 2) 'TWO) 
===> TWO

VECK-ONE 
===> #(0 1 TWO 3 4 5)

VECK-TWO 
===> #(0 1 2 3 4 5)

(VECTOR-EQUAL #(1 2 3 4) #(1 2 3 4)) 
===> T

(VECTOR-EQUAL #(1 2 3 4) #(1 2 3)) 
===> NIL

(VECTOR-EQUAL VECK-ONE VECK-ONE) 
===> T

(VECTOR-EQUAL VECK-ONE VECK-TWO) 
===> NIL

-------------------------
 PROBLEM 3:  TILE PUZZLE
-------------------------

(SETF P (MAKE-PUZZLE)) 
===> #S(PUZZLE :ITEMS #(0 1 2 3 4 5 6 7 8)
               :BLANK-CHAR _
               :BLANK-NUM 0
               :BLANK-LOC 0)

Expression: (SHOW-PUZZLE P)
----------------------
_ 1 2 3 4 5 6 7 8 

----------------------
===> NIL

Expression: (SHOW-PUZZLE (MOVE-RIGHT P))
----------------------
1 _ 2 3 4 5 6 7 8 

----------------------
===> NIL

Expression: (SHOW-PUZZLE (MOVE-RIGHT P))
----------------------
1 2 _ 3 4 5 6 7 8 

----------------------
===> NIL

Expression: (SHOW-PUZZLE (MOVE-RIGHT P))
----------------------
1 2 3 _ 4 5 6 7 8 

----------------------
===> NIL

Expression: (SHOW-PUZZLE (MOVE-LEFT P))
----------------------
1 2 _ 3 4 5 6 7 8 

----------------------
===> NIL

Expression: (SHOW-PUZZLE P)
----------------------
1 2 _ 3 4 5 6 7 8 

----------------------
===> NIL

P 
===> #S(PUZZLE :ITEMS #(1 2 0 3 4 5 6 7 8)
               :BLANK-CHAR _
               :BLANK-NUM 0
               :BLANK-LOC 2)

T
CL-USER(16):