Implementujeme funkciu na vytvorenie zoznamu dĺžky n, ktorý obsahuje ako prvky číslo 0. V hlavnej funkcií túto funkciu potom voláme a vytvárame jednotlivé riadky poľa.

; Funkcia vytvorí pole rozmerov (x, y) (stĺpce, riadky).
; (1,1) je pole s 1 stĺpcom a 1 riadkom ((0)).

; Vytvorí zoznam dĺžky x.
(defun vytvorz (x)
 (cond ((= x 0) NIL)
       (T (cons 0 (vytvorz (- x 1))))
 )
)

Príklad:
(vytvorz 3) -> (0 0 0)

; Hlavná funkcia.
; Vytvorí pole.
(defun vytvor (st ri)
 (cond ((= ri 0) NIL)
       (T (cons (vytvorz st) (vytvor st (- ri 1))))
 )
)

Príklad:
(vytvor 3 2) -> ((0 0 0) (0 0 0))

Autori

[ ZADANIE | AKO ZAČAŤ | RIEŠENIE ] Posledná aktualizácia 4. 9. 2001