Výhodné je implementovať funkciu na výpis jedného riadku a tú volať potom z hlavnej funkcie požadovaný počet krát.
; Riadok vypíše riadok znakov a nový riadok.
; Predpokladáme s >= 1.
(defun riadok (s)
(cond ((= s 1) (princ '*) (terpri))
(T (princ '*) (riadok (- s 1)))
)
)
; Príklad:
(riadok 5)
*****
; (r, s) -> (riadky, stĺpce)
; Predpokladame r >= 1, s >= 1.
(defun matica (r s)
(cond ((= r 1) (riadok s))
(T (riadok s) (matica (- r 1) s))
)
)
; Príklad:
(matica 3 4)
****
****
****