Common Lispでリストの最初のn個の要素を取得しますか？

Question

リストの最初のn要素を取得するにはどうすればよいですか？

CL-USER> (equal (some-function 2 '(1 20 300)) 
       '(1 20)) 
T 

私は絶対にこれは初心者だと確信していますが、兄弟を助けます。

Answer 1

SUBSEQの機能を確認してください。

* (equal (subseq '(1 20 300) 0 2) 
     '(1 20)) 
T 

それはすぐに明らかでないかもしれませんが、Lispで、インデックスは0から始まり、あなたはいつも半開きな間隔を取っているので、この間隔でインデックスを持つリストのすべての要素を取る[0 、2）。

Answer 2

はlispのコマンドラインをダウンロードするために持っていた...しかし：そう

(defun head-x (a b) 
    (loop for x from 1 to a 
     for y = (car b) do 
      (setq b (cdr b)) 
     collect y)) 

：

(head-x 2 '(a b c d)) 
    '(a b) 

Answer 3

上記の答えは、もちろん完全に正しいですが、これを使用している場合に注意します単に別のリストと比較するためには、単に新しいリストを比較するのではなく、両方のリストをその場で歩く方が効率的です。

例えば、上記の場合には、あなたが言うかもしれない：

(every #'= '(1 20 300) '(1 20)) 
=> t 

愛、

Answer 4

（butlast '（1 20 300）（ - （リスト長'（1 20 300）） 2））

機能/マクロにする必要があります。

P.S. This pageが便利かもしれません。関数 'extrude'を参照してください。