Lisp macchine |
|
|
(defun primo (a)
(cond
((= a 1)
(princ "\nIl numero e' primo")
(princ)
)
((= (rem num a) 0) ; num mod a=0
(princ "\nIl numero non e' primo")
(princ)
)
((/= a 1)
(primo (- a 1))
)
)
)
(defun c:np (/ num y)
(initget (+ 1 2 4))
(setq num (getint "\nInserisci un numero: "))
(setq y (/ num 2))
(if (= num 1)
(progn
(princ "\nIl numero e' primo")
(princ)
)
(princ (primo y))
)
)
Il lisp non è andato in pensione , while house , Nsa hanno molti sistemi in allegro Common lisp , robusti affidabili e a prova di hacking...
È stato il primo linguaggio degli hacker degli anni 80/90 e continua a essere impiegato dagli stessi per la sua capacità di eseguire codice generato dal se stesso ... Una piccola cosa che consente di infiltrare codice che cresce apprende e si trasforma...
Vi lasciò una citazione " Pascal per costruire piramidi, lisp per generare organismi...."
Ciao Mcmax
|
| | |
