mathematica에서 목록 색인 생성

Question

S은 고유 한 요소가있는 벡터이고, s은 고유 한 요소가 포함되어 있습니다. 예 : S={1,2,3,4,5,6} 및 s={1,3,4,6}. S[[i]]는 s의 요소 인 경우, 지금은 벡터 C=[7,0,8,9,0,7]를 만드는 방법을 다른 벡터 c={7,8,9,7}을 부여 즉, 다음 C[[i]] 다른 s에 S[[i]] 제로와 동일한 인덱스 c의 요소와 동일하다. 이것은 작동하지만 MATLAB 배경에서 오는, 내가 for 루프를 미워하고 위의 작업이 MATLAB에서 사소한 인덱싱 작업입니다

C=Array[0&,Length[S]]; 
j=1; 
For[i=1,i<=Length[S],i++,If[MemberQ[s,S[[i]]],C[[i]]=c[[j]];j=j+1;]]; 

처럼 내가 가진 무엇

지금 보인다. 이것을 달성하는 더 똑똑한 방법이 있다고 확신합니다. la mathematica 스타일. 누구 제안이 있습니까? 그래서 C 또는 0 인 요소 중 하나와 S의

Answer 1

이 지금까지 게시 된 내용보다 빠른 :

ss = {1, 2, 3, 4, 5, 6}; s = {1, 3, 4, 6}; c = {7, 8, 9, 7}; 

Replace[ss, Dispatch@Append[Thread[s -> c], _ -> 0], 1] 

Answer 2

교체하는 요소 :

ss = {1, 2, 3, 4, 5, 6} 
s = {1, 3, 4, 6} 
c = {7, 8, 9, 7} 
r = Append[MapThread[Rule, {s, c}], Rule[_, 0]] 
answer = Map[Replace[#, r] &, ss] 

Answer 3

여기서 하나의 방법이다. 아마도 다른 많은 것들이있을 것입니다.

s = {1, 2, 3, 4, 5, 6}; 
subS = {1, 3, 4, 6}; 
c = {7, 8, 9, 7}; 
d= s /. {x_Integer :> If[MemberQ[subS, x], c[[Position[subS, x][[1, 1]]]], 0]} 

나는 사용자 정의 기호로 일반적으로 사용되는 소문자 변수 이름을 사용했습니다.

Mathematica 사용 중괄호는 벡터,리스트, 행렬 및 테이블에 사용됩니다.

Answer 4

ss = {1, 2, 3, 4, 5, 6}; 
s = {1, 3, 4, 6}; 
c = {7, 8, 9, 7}; 
ss /. Join[MapThread[Rule, {s, c}],Thread[Rule[Complement[ss, s], 0]]] 

편집 나 :

answer = 0 ss; answer[[Position[ss, #, 1] & /@ s // Flatten]] = c; 

Answer 5

S 경우 양식 {1, 2, ..., n}, (예를 들어, Range[n]의 항상)이 솔루션은 SparseArray을 사용하여 @Mr의 약 2 배 빠릅니다. 마법사의 매우 큰 목록 내 시험에서 답 :

Normal[SparseArray[Thread[s -> c], n, 0]]