Lisp 배열 요소 스왑

Question

저는 Lisp에 익숙하지 않아 배열에서 두 요소를 교환하려고합니다. rotf를 사용하여 스왑 할 수 있도록 지정된 위치를 가져 오는 함수가 있는지 알고 싶습니다.

함수 위치를 시도했지만 시퀀스가 ​​아니기 때문에 배열에서 작동하지 않습니다.

어레이의 기본 제공 함수가없는 경우 최상의 계산 솔루션은 무엇입니까?

나는 주위를 둘러 보았고 간단한 해결책을 찾지 못하는 것 같습니다. 로우 메이저가 해결책입니까?

는 기본적 네가 일차원 변위 배열하고 position위한 벡터로서 것을 사용할 수 rotatef

Answer 1

내가이 일을해야한다고 생각 - 배열이 참 시퀀스입니다.

(let* ((an-array (make-array 6 :initial-contents '(#\f #\o #\o #\b #\a #\r))) 
     (f-pos (position #\f an-array)) 
     (r-pos (position #\r an-array))) 
    (rotatef (elt an-array f-pos) 
      (elt an-array r-pos)) 
    an-array) 
;=> #(#\r #\o #\o #\b #\a #\f) 

물론 위치를 이름에 바인딩 할 필요는 없습니다. 이 역시 작동합니다 : 문제가 position는 당신이 필요로하는 요소를 찾지 못하는 함께

(let ((an-array (make-array 6 :initial-contents '(#\f #\o #\o #\b #\a #\r)))) 
    (rotatef (elt an-array (position #\f an-array)) 
      (elt an-array (position #\r an-array))) 
    an-array) 
;=> #(#\r #\o #\o #\b #\a #\f) 

경우, 그 :test 인수는 도움이 될 수 있습니다. 또한 요소를 식별하기위한 자체 술어를 제공 할 수있는 position-if 및 position-if-not 함수가 있습니다. 세 가지 모두 HyperSpec에 here으로 설명되어 있습니다. 여기

아마 :test 인수와 함께 모든 시퀀스 기능 eql 인 (기본 때문에, :test 인수없이 작동하지 않습니다 예입니다 - 표준 시퀀스 기능 키워드 인수의 좋은 요약 테이블 11-2 here 참조) 목록에 작동하지 않습니다.

(let ((an-array (make-array 3 :initial-contents '((1 2 3) 
                (4 5 6) 
                (7 8 9))))) 
    (rotatef (elt an-array (position '(1 2 3) an-array :test #'equal)) 
      (elt an-array (position '(7 8 9) an-array :test #'equal))) 
    an-array) 
;=> ((7 8 9) (4 5 6) (1 2 3)) 

(SBCL 1.0.55.0.debian에서 테스트 됨).

추가 :

는 여기에 2 차원 배열로 할 수있는 무력 방법입니다. find-position은 배열의 크기가 (3 3)이라고 가정하지만 약간 더 일반적으로 만들 수 있습니다.

내가 최고의 솔루션이를 옹호하지 않습니다,하지만 난 당신의 질문을 :) 오해 후에 당신에게 빈손를 마칠 수있었습니다

(defvar an-array #2A((1 2 3) (4 5 6) (7 8 9))) 

(defun find-position (array item &key (test #'eql)) 
    (loop for i below 3 do 
     (loop for j below 3 do 
       (when (funcall test (aref array i j) item) 
       (return-from find-position (list i j)))))) 

(defun swap-4-and-7 (array) 
    ;; Example use 
    (destructuring-bind (i1 j1) (find-position array 4) 
    (destructuring-bind (i2 j2) (find-position array 7) 
     (rotatef (aref array i1 j1) 
       (aref array i2 j2)))) 
    array) 

(swap-4-and-7 an-array) 
;=> #2A((1 2 3) (7 5 6) (4 8 9)) 

Answer 2

에서 사용되는 2 차원 배열의 요소의 위치를 ​​찾을 위치를 반환 할 .

예 :

CL-USER 9 > (let ((a0 (make-array '(2 3) 
            :initial-contents '((foo1 bar foo2) 
                 (foo3 baz foo4))))) 
       (let ((a1 (make-array (reduce #'+ (array-dimensions a0)) 
            :displaced-to a0))) 
       (let ((pos1 (position 'baz a1)) 
         (pos2 (position 'bar a1))) 
        (when (and pos1 pos2) 
        (rotatef (aref a1 pos1) 
          (aref a1 pos2))))) 
       a0) 
#2A((FOO1 BAZ FOO2) (FOO3 BAR FOO4))