My 상사는 지금 그 배열의 항목을 검색 할 수있는 메커니즘을 구현하기 위해 저를 원하고, 그에게 그 값이 발생하는 인덱스 / 색인을 제공합니다.

당신의 작업 :

배열과 값 (String, Integer, Float 또는 Boolean)을받는 프로그램이나 함수를 작성하고 값이 발생하는 배열의 인덱스를 반환합니다 (0 또는 1 색인 중 원하는 쪽). 값이 배열에 없으면 빈 배열을 반환합니다.

입력:

A에 존재하거나 존재하지 않을 수있는 어레이 A 및 값 V

산출:

V가 A에서 발생하는 지수 또는 V가 A에서 발생하지 않으면 빈 배열을 포함하는 배열입니다.

테스트 사례 :

테스트 사례는 0을 기준으로합니다.

12, [12,14,14,2,"Hello World!",3,12,12]         -> [0,6,7]
"Hello World", ["Hi", "Hi World!", 12,2,3,True] -> []
"a", ["A",True,False,"aa","a"]                  -> [4]
12, [12,"12",12]                                -> [0,2]

채점 :

이것은 code-golf 이므로 바이트 단위의 최저 점수가 이깁니다.

Pyth , 2 바이트

인덱스가 0입니다.

xE

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오.

설명

xEQ  - Full Program. Takes Input from standard input. Q means evaluated input and is implicit at the end of the program.

x   - Get all the indexes of x in y
 E  - Evaluated Input #2 - The value
  Q - The list - Evaluated Input #1

MATL , 2 바이트

mf

이 m인수는 두 개의 인수를 사용하고 배열의 각 요소가 다른 인수와 같은지 확인하고 배열 f의 정확한 항목의 색인을 반환합니다.

온라인으로 사용해보십시오!

파이썬 3 , 45 바이트

@EriktheOutgolfer 및 @Chris_Rands 덕분에 -3 바이트

lambda y,x:[i for i,j in enumerate(x)if j==y]

테스트 스위트.

오늘 나는 배웠다 enumerate(x) == zip(range(len(x)),x).

파이썬 3 , 47 바이트

lambda n,l:[x for x in range(len(l))if l[x]==n]

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오.

R (+ pryr), 20 바이트

pryr::f(which(a==b))

어떤 기능으로 평가

function (a, b) 
which(a == b)

하나는 어디 a를위한 모양과에 값이 될 수 있습니다 b벡터, 또는 다른 방법으로 주위. 길이가 같지 않은 두 벡터 (R의 길이 1 벡터로 계산되는 단일 값)가있는 경우 R은 더 긴 것의 길이와 일치하도록 더 짧은 것을 줄입니다. 그런 다음 평등이 확인됩니다. 논리 벡터를 생성합니다. which이 벡터가 참인 인덱스를 제공합니다.

온라인으로 사용해보십시오!

자바 스크립트, 39 바이트

e=>a=>[...a.keys()].filter(i=>a[i]===e)

f=
e=>a=>[...a.keys()].filter(i=>a[i]===e)

console.log(f(12)([12,14,14,2,"Hello World!",3,12,12]));
console.log(f("Hello World")(["Hi", "Hi World!", 12,2,3,true]));
console.log(f("a")(["A",true,false,"aa","a"])); 
console.log(f(12)([12,14,14,2,"Hello World!",3,12,'12']));

위의 스 니펫은 모든 브라우저에서 작동하지 않을 수 있으므로 여기에 TIO 링크가 있습니다.

자바 스크립트 (ES6), 44 43 바이트

^{44가 여전히 똑같습니다. 44; (}

v=>a=>a.map((x,i)=>x===v&&++i).filter(x=>x)

@Arnauld 덕분에 1 바이트 절약

let f=
v=>a=>a.map((x,i)=>x===v&&++i).filter(x=>x)
;

console.log(f(12)([12,14,14,2,"Hello World!",3,12,12]));         // => [1,7,8]
console.log(f("Hello World")(["Hi", "Hi World!", 12,2,3,true])); // => []
console.log(f("a")(["A",true,false,"aa","a"]));                  // => [5]

05AB1E , 4 바이트

QāsÏ

온라인으로 사용해보십시오!

1- 색인.

C #, 88 72 바이트

using System.Linq;a=>o=>a.Select((i,n)=>o.Equals(i)?n:-1).Where(n=>n>=0)

@LiefdeWen 덕분에 16 바이트를 절약했습니다.

온라인으로 사용해보십시오!

젤리 , 3 바이트

⁼€T

온라인으로 사용해보십시오!

Xcoder 씨께 -1 감사합니다 . (이원형 체인)

하스켈 , 41 39 바이트

v!l=fst<$>(filter((==v).snd)$zip[1..]l)

온라인으로 사용해보십시오!

@flawr 덕분에 2 바이트 절약

Haskell은 정적으로 입력되었으므로 테스트 사례를 실행하기 위해 약간의 해결 방법을 사용해야했습니다.

껍질 , 5 바이트

`fNm=

온라인으로 사용해보십시오! 1- 색인.

설명

       -- implicitly input a value v and a list L
   m=  -- map "equals v" over the list L, resulting in a list of truthy and falsy values
`fN    -- filter the natural numbers N by discarding the numbers at falsy positions 
          and keeping the ones at truthy positions

루비, 46 40 39 바이트

->e,a{i=-1;a.map{|x|i+=1;x==e&&i}-[!1]}

7 바이트 절약! Eric Duminil에게 감사합니다.

온라인으로 사용해보십시오.

루비, 38 바이트

->e,a{a.each_index.select{|x|a[x]==e}}

온라인으로 사용해보십시오!

Google 스프레드 시트, 101 바이트

=IfError(Join(",",Filter(Column(Offset(A1,0,0,1,Counta(Split(B1,",")))),Exact(Split(B1,","),A1))),"")

값 V의 A1어레이 A내의 B1각각의 엔트리와는 콤마로 분리된다. 널 전체는 허용되지 않습니다 (아래 5 행은 어떤 일이 발생하는지 보여줍니다).

설명:

Offset(A1,0,0,1,Counta(Split(B1,",")))높이가 1 행이고 너비가 최대 인 범위를 반환합니다 A1.

=IfError(Join(",",Filter(Column(~),Exact(Split(B1,","),A1))),"")의 값 A1이 정확히 각 값에 속하는지 여부에 따라 해당 범위의 열 번호를 필터링하고 B1쉼표로 구분 된 목록에 모두 연결합니다.

클로저 , 40 바이트

코드 골프에서 첫 번째 시도.

keep-indexed 컬렉션에 함수를 매핑하여 현재 인덱스를 콜백에 전달하고 0이 아닌 반환 값을 생성합니다.

(fn[a b](keep-indexed #(if(= %2 a)%1)b))

온라인으로 사용해보십시오!

APL (Dyalog Unicode) , 2 바이트 ^SBCS

항목을 왼쪽 인수 ( 하위 배열이 아닌 조회 배열 의 항목 을 찾으려면 스칼라 여야 함 ) 및 오른쪽 배열 로 찾는 조회 배열 을 찾습니다 (최대 15 차원 일 수 있음). 조회 배열의 각 차원 수만큼 요소를 가질 수있는 색인 목록을 리턴합니다.

⍸⍷

온라인으로 사용해보십시오!

⍸ ndi 위치

⍷ 녹이다

배치, 86 바이트

@set i=0
:g
@if "%~2"=="" exit/b
@if %1==%2 echo %i%
@set/ai+=1
@shift/2
@goto g

입력을 명령 행 매개 변수 (값 다음 배열 요소를 개별 매개 변수로)로 사용합니다. 참고 : 문자열 인용은 일치 "1"하지 않는 부분으로 간주됩니다 (예 : 16 바이트).

파이썬 2 , 49 바이트

lambda l,v:filter(lambda i:l[i]==v,range(len(l)))

온라인으로 사용해보십시오!

충분히 짧지는 않지만 멋지다고 생각했습니다. ¯ \ _ (ツ) _ / ¯

펄 5 , 28 바이트

sub{grep$_[$_]eq$_[0],1..@_}

온라인으로 사용해보십시오!

출력은 1- 색인입니다.
익명의 기능은 Perl에게는 매우 드문 일이지만 생각할 수있는 가장 짧은 것입니다. grep ..., 1 .. @_입력 배열의 인덱스를 반복합니다 (실제로는 마지막 셀을 넘어 한 셀로 이동하지만 중요하지는 않습니다) $_[$_]eq$_[0]. 요소 (의 값이 것들 $_[$_]) 우리는 계속해야 값과 동일합니다 ( $_[0]).

약간 더 길지만 (31 바이트 (30 + -l플래그)), 전체 프로그램 :

$@=<>;$@eq$_&&print$.-1while<>

온라인으로 사용해보십시오!

하스켈 , 37 33 바이트

import Data.List
findIndices.(==)

-4 바이트에 대한 @Laikoni에게 감사드립니다!

온라인으로 사용해보십시오!

자바 (8) 146 113 112 111 110 108 바이트

import java.util.*;l->o->{List r=new Stack();for(int i;(i=l.indexOf(o))>-1;l.set(i,null))r.add(i);return r;}

대신을 사용하여 @TAsk 덕분에 -2 바이트 . 대신에 -1 바이트를 사용하십시오 . 배열 대신 에 입력 하여 @Jakob 덕분에 -2 바이트 .VectorArrayList
StackVector
ArrayList

0 인덱스

설명:

여기에서 시도하십시오.

import java.util.*;    // Required import for Vector and Vector
l->o->{                // Method with List and Object parameters
  List r=new Stack();  //  Result-list
  for(int i;(i=l.indexOf(o))>=-1;
                       //  Loop as long as we can find the object in the list
    l.set(i,null))     //   After every iteration, remove the found item from the list
      r.add(i);        //    Add the index to the result-list
                       //  End of loop (implicit / single-line body)
  return r;            //  Return the result-List
}                      // End of method

05AB1E , 4 바이트

Qƶ0K

온라인으로 사용해보십시오!

아래와 같이 1- 색인입니다.

IN A-#------------------------> [2,3,3,3,4]
IN B-#------------------------> 3
-----#------------------------+-----------------
Q    # Vectorized equivalence | [0,1,1,1,0]
 ƶ   # Lift by index          | [0,2,3,4,0]
  0K # Remove zeros           | [2,3,4]

수학, 12 바이트

Position@##&

1- 색인

입력 [배열, 값]

[{12, 14, 14, 2, "Hello World!", 3, 12, 12}, 12]

산출

{{1}, {7}, {8}}

하스켈, 29 바이트

e#l=[i|(i,h)<-zip[0..]l,h==e]    

온라인으로 사용해보십시오!

Japt , 9 바이트

mȶV©YÄÃf

1- 색인.

그들이로 대체되었습니다 있도록 JAPT 입력은 논리 값을 지원하지 않습니다 0및 1테스트 케이스에서.

온라인으로 사용해보십시오! -Q배열 출력을 형식화 하는 플래그 와 함께 .

인덱스가없는 0 바이트, 11 바이트

l o f@gX ¶V

온라인으로 사용해보십시오!

펄 6 , 21 바이트

{grep :k,*===$^v,@^z}

온라인으로 사용해보십시오!

:k에 부사 grep술어 일치하는 입력 시퀀스의 매칭 키 (인덱스)를 호출하도록 지시 * === $^v.

문자열과 숫자가 동등한 것으로 간주되면 $^v대신 grep 술어를 사용할 수 있습니다 * === $^v.

공통 리스프, 66 바이트

(lambda(x s)(loop as i in s as j from 0 when(equal i x)collect j))

온라인으로 사용해보십시오!

TXR 리스프 , 26 바이트

(op where(op equal @@1)@2)

다시 말해서, "인수 2는 어디에서 인수 1과 같은가?"

운영:

1> (op where(op equal @@1) @2)
#<interpreted fun: lambda (#:arg-01-0166 #:arg-02-0167 . #:rest-0165)>
2> [*1 12 #(12 14 14 2 "Hello world!" 3 12 12)]
(0 6 7)
3> [*1 "Hello World" #("Hi" "Hi world!" 12 2 3 t)]
nil

클로저, 39 38 바이트

#(filter(comp #{%2}%)(range(count %)))

조금 불분명 한 :) 첫 번째 입력 인수는 vec값 중 하나이고 두 번째 입력 인수는 검색된 값입니다. %인덱스를 값에 매핑하고 세트 #{%2}는 해당 값에 대해 참 (입력 인수 %2) 또는 거짓 nil을 반환 합니다. comp는 이것들을 함께 구성합니다.

C 340 362 166 115 바이트

여러분 안녕하세요. 여기 처음입니다. 최적화 된 코드를 작성하려고 시도한 이후로 시도해 보았습니다.

@Rodney-포함시 ~ 39 바이트

@ Zacharý-암시 적 타이핑이있는 7 바이트

0- 인덱싱 .

실행하는 방법 :

@Arnolds 제안에 따라 프로그램은 훨씬 C 친화적 인 방식으로 인수를 취합니다. 이를 통해 파일 크기를 절반 이상 줄입니다.

value [element1 ...] 중괄호는 선택적 인수를 나타내는 다음 순서 로 인수를 전달해야합니다.

의 조건을 충족시키기 위해 제공된 문자열에 이스케이프 된 따옴표를 추가하거나 추가하지 않아도됩니다 12 != "12". 내 시스템에서 이것은 다음과 같은 방식으로 수행 할 수 있습니다

prog-name.exe 12 3 "Hello" 12 4 "12"
Returns [2,4]     < This is incorrect

prog-name.exe 12 3 "\"Hello\"" 12 4 "\"12\""
Returns [2]       < Correct

골프

#define P printf(
b=0;main(int c,char**v){P"[");for(--c;c-1;c--)b|=strcmp(v[1],v[c])?0:P b?",%i":"%i",c-2);P"]");}

언 골프

#define P printf(

//Implicit only works in global(I totally knew this after almost 4 years of C :P)
b = 0;
main(int c,char**v)
{

    P"[");

    //match loop
    //b is used to determine if this is the first iteration. it can be assumed that printf will always return >0
    //subract two from c to get correct index number of match
    for(--c; c-1; c--)
        b |= strcmp(v[1], v[c]) ? 0 : P b ? ",%i" : "%i", c-2);

    P"]");

    return 0;
}