Poezie in LISP

[zamfy]

Stiu ca pe acest forum se discuta multe lucruri serioase, dar uneori e bine sa ne mai descretim si fruntile.
Mai jos va prezint un program scris de mine in LISP, ceva mai special  
http://zamfy2010.blogspot.com/2012/03/poezie-in-lisp.html

P.S.: Peste ceva timp o sa revin si cu programe ceva mai serioase.

[adrianc]

Nu merge si mi-a luat un an de zile sa postez un comentariu la tine pe blog.

[zamfy]

Poezie in LISP

(defun c:o_poezie ()
(setvar x "ca nu se stie")
(command "style" "Arial")
(setq vers "Fara" =)

(setq index "Prima strofa")
;;Ce deja e-o catastrofa
(defun strofe (vers cu_rima)
(setq tip "E monorima"))

(while strofe (command "text")
(setq spatiu_gol (entnext))
(if (= esti "topograf")
(repeat 1 paragraf))

(setq rand (entget (entlast)))
(cond ((vers naspa) ('erase "last"))
((= nil (entsel sfarsit))
(princ "\nMai baga un repeat!")))

(if (<= 3 randuri)
(alert "Ma cam pui pe ganduri!")
(setq randuri 20))
(princ "Ia vezi, poti sa ma-ntreci?")

Modificat de zamfy (26-03-2012 15:51:40)

[zamfy]

Nu merge si mi-a luat un an de zile sa postez un comentariu la tine pe blog.

Nu este un program in adevaratul sens al cuvantului, ci este un text care combina genul liric cu genul....programatoristic.Imi cer scuze daca am indus in eroare.

[adrianc]

Ups! Acum ca am stat si am citit... E chiar buna dar "don't give up your day job".

[cadian]

foarte tare...... daca ar trebui sa o invete la scoala pe de rost