;gestione array tipo vettore vectore
 
(progl
(setq vettore(make-array’ (12)
:initial-contents’(l 2 2 3 4 5 4 5 5 6 7 7)))
(print(length vettore))
                                                                                 
                   
;estrae parte di vettore da elemento indicato alla fine 
(print(subseq vettore 3))
;estrae parte di vettore tra elementi indicati (print(subseq vettore 2 6))
                                                                                 
                    
;sostituisce elemento con altro valore
(prtnt vettore)
(print(substitute 8 1 vettore))
(print vettore)
                                                                                 
                    
;cerca elemento in vettore
(print(find ‘3 vettore))
(print(find ‘9 vettore))
(print(find ‘6 vettore :start 1 :end 9))
(print(find ‘6 vettore :start 1 :end 5))
                                                                                 
                    
;rimuove elemento da vettore o elementi duplicati
(print vettore)
(print(remove ‘6 vettore))
(print vettore)
(print(remove-duplicates vettore))
(print vettore)
                                                                                 
                   
;informazioni su vettore
(print vettore)
(print(array-rank vettore))
(print(array-total-size vettore))
(print(array-dimension vettore ø))
                                                                                 
                   
;assegna limiti per analisi su vettore :da O a indice assegnato
(setq vetto(make-array ‘(10)
:initial-contents’(l 2 3 4 5 6 7 8 9 9 )
:fill-pointer 3))
(print vetto)(terpri)
                                                                                 
                                                        
;

ritorna