LISP03 Vjezbe

(progn
(setq a (make-array '(3 3)))
(setq broj 1)

(dolist (x '(0 1 2))
    (dolist (y '(0 1 2))
        (progn
            (setf (aref a x y) broj)
            (setq broj (+ broj 1))
        )
    )
)
a
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defstruct student
ime
prezime
ocjena)
(setq studenti (list))
(push studenti (make-student :ime "Ante" :prezime "Antic" :ocjena 5))
(make-student :ime "Mate" :prezime "Matic" :ocjena 5)
(make-student :ime "Ivan" :prezime "Ivic")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defstruct student
ime
prezime
ocjena)
(setq studenti (list))
(push (make-student :ime "Ante" :prezime "Antic" :ocjena 5) studenti)
(push (make-student :ime "Mate" :prezime "Matic" :ocjena 5) studenti)
(push (make-student :ime "Ivan" :prezime "Ivic") studenti)

(setf (student-ocjena (car studenti)) 5)

studenti

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; NE RADI, POPRAVI

(defun duljina (x &optional duljinaliste=0)
    (if (eq (cdr x) nil) duljinaliste)
    (duljina (cdr x) 7)
)