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