Come posso ottenere i primi elementi n di un elenco?Come ottenere i primi n elementi di un elenco in Common Lisp?
CL-USER> (equal (some-function 2 '(1 20 300))
'(1 20))
T
Sono assolutamente certo che questo è elementare, ma aiuta un fratello ad uscire.
Verificare la funzione SUBSEQ.
* (equal (subseq '(1 20 300) 0 2)
'(1 20))
T
Può non essere immediatamente evidente, ma in Lisp, indicizzazione parte da 0, e si sta sempre tenendo intervalli semiaperte, quindi questo prende tutti gli elementi della lista con indici nell'intervallo [0 2).
Questo ha la sfortunata restrizione che non riuscirà * in runtime * se la sequenza è minore dell'indice finale, il che è un peccato, perché chiedere la lunghezza prima è altamente inefficiente. Quindi come procedere in questo caso? –
Bene, guardando Practical Common Lisp: http://www.gigamonkeys.com/book/loop-for-black-belts.html arriva la risposta giusta: '(loop per l'articolo nella lista per i da 1 a 10 do (qualcosa)) 'dove quel' qualcosa' potrebbe raccogliere 'item'. –
@DiegoSevilla A volte avere il codice fallito in fase di esecuzione quando non ci sono abbastanza elementi nel tuo elenco è esattamente il comportamento che stai cercando. Un sacco di codice Common Lisp idiomatico costruisce strutture di dati a dimensione fissa senza conseconsiderando l'uso di 'DEFCLASS' o' DEFSTRUCT', e in questi casi, se non si hanno abbastanza elementi, farsi lanciare immediatamente nel debugger è il migliore cosa che può succedere a te. – Pillsy
dovuto scaricare una riga di comando lisp ... ma:
(defun head-x (a b)
(loop for x from 1 to a
for y = (car b) do
(setq b (cdr b))
collect y))
così:
(head-x 2 '(a b c d))
'(a b)
La risposta di cui sopra è ovviamente perfettamente corretto, ma si noti che se si sta utilizzando questo solo per fare un confronto con un altro elenco, sarebbe più efficiente dal punto di vista delle prestazioni dirigere entrambi gli elenchi sul posto, piuttosto che creare una nuova lista solo per confrontare.
Ad esempio, nel caso di cui sopra, si potrebbe dire:
(every #'= '(1 20 300) '(1 20))
=> t
Amore,
(butlast '(1 20 300) (- (elenco di lunghezza' (1 20 300)) 2))
Dovrebbe essere trasformato in una funzione/macro.
P.S. This page potrebbe essere utile. Vedi la funzione 'estrusione'.
Definitivamente non è una buona idea calcolare la lunghezza di un elenco per ottenere alcuni elementi dal fronte. Unlispy! –
Mmh, d'accordo. Cattiva idea. – user233198
Penso che "baci e abbracci" spaventeranno più programmatori che persino Lisp! – beggs
I love you beggs. xoxoxoxoxoxoxo –
Sono sicuro che Freud avrebbe molto da dire al riguardo :-) – beggs