Forum libero

(defstruct namesex name sex)

(defconstant divinita
  (list
   (make-namesex :name "madonna" :sex 'f)
   (make-namesex :name "dio" :sex 'm)
   (make-namesex :name "cristo" :sex 'm)))


(defun random-elt (seq)
  (elt seq (random (length seq))))


(defun random-divinita ()
  (let ((ds (random-elt divinita)))
    (values (namesex-name ds)
            (namesex-sex ds))))    


(defun porc (s)
  (ecase s
    (f "porca")
    (m "porco")))


(defconstant aggettivi
  '(m ("maiale" "becco" "bastardo" "rottinculo")
    f ("maiala" "troia" "puttana")))


(defun adj (s)
  (random-elt (getf aggettivi s)))


(defun bestemmia ()
  (multiple-value-bind (name sex) (random-divinita)
    (format t "~a ~a ~a"
            (porc sex)
            name
            (adj sex))))