Undervisningsplan

Eksempel på behandling av fila Bb.txt:

; For å dele opp en linje

(defun pos (n l) (if (= n 0) -1 (position #\/ l :start (+ (pos (- n 1) l) 1))))

(defun delord (n l) (subseq l (+ (pos n l)1) (pos (+ n 1) l) ))

(defun parse (l) (list :kritiker (delord 0 l) :pseudonym (delord 1 l) :type (delord 2 l) :publikasjon (delord 3 l) :år (delord 4 l) :nummer (delord 5 l) :kommentar-fra (delord 6 l) :forfatter (delord 7 l) :tittel (delord 8 l) :sted (delord 9 l) :utgivelsesår (delord 10 l) :genre (delord 11 l) :kommentar-om (delord 12 l)))

; Et sted å legge den parserte filen

(defvar bb nil)

; Leser og skriver fila inn i bb

(with-open-file (inn "Bb.txt" :direction :input)(loop (let ((l (read-line inn nil nil))) (if l (push (parse l) bb) (return "ferdig")))))

; Skriver den leste fila ut på skjerm med

(defun skriv-base (b) (format t "~{~{~a~25t~a~%~}~%~%~}" b)) 

• pattern matching - vi skal se på hvordan en fra en BNF-grammatikk kan lage rekursive programmer

• søking - A*-algoritme