このlisp関数に取り組む方法に関するアドバイス。

Question

私はmy_rotateという関数を書いています。この関数は、ユーザーから数値を受け取り、最大5つの数値のリストを作成します。 my_rotate次に、リストの最初の要素をポップ・オフし、リストの末尾に追加します。 my_rotateに別の番号nを入力し、ユーザーが入力した番号nに基づいてリストをローテーションする方法についてのアドバイス。

例：

> (my_rotate 1 2)

出力：

(3 4 5 1 2)

これは私がこれまで持っているものである：ここでは

(defun my_rotate (y) 
    (append (loop for i from (+ 1 y) to (+ 4 y) collect i) 
    (list y))) 

Answer 1

機能。 2つのリストを作成して連結します。

(defun my-rotate (length shift) 
    "Return a list of given LENGTH, rotated by SHIFT." 
    (nconc 
    (loop for i from (1+ shift) to (- length shift -2) collect i) 
    (loop for i from 1 to shift collect i))) 
(my-rotate 7 2) 
==> (3 4 5 6 7 1 2) 

両方loop sがfreshリストを生成するので、私が代わりにappendのnconcを使用することに注意してください。元のリスト内のnthcdrポイントは、私たちは変更を避けるためにappendを使用する必要があること

が

(defun rotate-list (list shift) 
    "Rotate the given LIST by the specified SHIFT." 
    (let ((len (length list))) 
    (setq shift (mod shift len)) ; handle circular shifts 
    (append (nthcdr (- len shift) list) 
      (butlast list shift)))) 
(rotate-list '(1 2 3 4 5 6) 2) 
==> (5 6 1 2 3 4) 
(rotate-list '(1 2 3 4 5 6) 20) 
==> (5 6 1 2 3 4)    ; same because 20 = 2 mod 6 
(rotate-list '(1 2 3 4 5 6) 0) 
==> (1 2 3 4 5 6)    ; unchanged 

注：ただし、既存のリストを回転させたい場合は

、あなたが何かを行う必要があります引数。我々は（butlastに一度nthcdrで、一度）二回list引数をスキャンすることも

注意。 リストが巨大でプロファイリングでこの機能がボトルネックであることがわかっている場合は、ループを使用してこの機能を書き直したいと思うかもしれません（このシナリオはあまりありません。