(우리 Find는를 찾지 않거나 잡지 않을 것입니다 tryCatch)

이것은 흥미로운 R 함수를 구현하는 여러 부분으로 구성된 시리즈의 2 부입니다. 하나는 여기 에서 찾을 수 있습니다 .

작업:

가능한 적은 바이트로 R의 match기능 을 구현 해야합니다.

입력:

• x비어있는 정수 목록 / 배열
• table비어있는 정수 목록 / 배열
• nomatch단일 정수 값
• incomparables비어있는 정수 목록 / 배열

산출:

• O길이가 같은 정수 의 단일 배열 / 목록 x. 각 값 O[i]은 다음 중 하나를 나타냅니다.
  • 어디 j에서 첫 번째 값 의 인덱스tabletable[j]==x[i]
  • nomatch,의 값을 나타내는 tableIS가 동일하지 x[i] OR 그 x[i]목록이다 incomparables.

테스트 사례

All in the form x, table, nomatch, incomparables -> output
outputs 

[], [1,2,3], 0, [5] -> []

[1, 2, 3], [], 0, [5] -> [0, 0, 0]

[9, 4, 3, 6, 3], [9, 8, 7, 6, 5, 4, 3, 2, 1], -1, [4] -> [1, -1, 7, 4, 7]

[8, 6, 7, 5, 3, 0, 9], [3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6], 1000, [1] -> [12, 8, 14, 5, 1, 1000, 6]

필요에 따라 더 많은 테스트 사례를 생성 할 수 있습니다.

추가 규칙 :

• R에는 1 기준 지수가 있지만 일관된 대체 기준 지수는 허용됩니다. 따라서 3 또는 17에서 시작하는 색인을 사용할 수 있지만 일관성이 있어야하며 답에이를 표시해야합니다.
• 언어를 선택한 경우 내장 언어를 사용하는 경우 자체 솔루션도 구현하십시오.
• 설명을 부탁드립니다.

이것은 code-golf 이므로 바이트 단위의 최단 솔루션이 승리합니다!

젤리 ,  10  8 바이트

Outgolfer Erik 덕분에 -2

,⁷y⁵iⱮ⁶o

incomparables nomatch table xR의 match함수 결과 목록의 젤리 표현 *을 인쇄하는 4 개의 명령 행 인수를 허용하는 전체 프로그램 .

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

방법?

예를 들어 incomparables nomatch table x= [1,4], 2, [2,4], [4,3,2,1,0]:

,⁷y⁵iⱮ⁶o - Main Link: list, incomparables; list, nomatch
 ⁷       - newline character                                '\n'
,        - pair (incompararables) with (right)              [[1,4],'\n']
   ⁵     - 5th argument (3rd input = table)                 [2,4]
  y      - translate (right) with lookup (left)             [2,'\n']             
      ⁶  - 6th argument (4th input = x)                     [4,3,2,1,0]
     Ɱ   - map with:
    i    -   first index of (right) in (left)               [0,0,1,0,0]
       o - logical OR                                       [2,2,1,2,2]

* 빈 목록은 아무것도 표시되지 않으며, 하나의 목록은 항목으로 만 표시되고 다른 목록은 다음 []과 같이 구분됩니다.,

R , 83 바이트

function(x,t,n,i)sapply(x,function(a)c(which(a==t/!rowSums(outer(t,i,`==`))),n)[1])

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

피합니다 match, %in%하고 setdiff.

아르 자형 , 55 바이트

이 경우 코드는 match전체 기능과 함께 사용되지 않고 코드 로만 사용됩니다.index . 첫 번째 R 답변, 아마도 바이트 단위로 믿을 수 없을 정도로 비효율적입니다!

참고 ( 정보에 대한 주세페 덕분에 ) : %in% 그리고 setdiff둘 다 내부적으로 구현 match되어 있으므로이 놀랍도록 유용한 기능을 완전히 제거하면 혼란 스러울 수 있습니다. 따라서 마감 기한이없는 150 회 현상금 이 있습니다! (단 setdiff, 허용됩니다)

function(x,t,n,i)ifelse(x%in%setdiff(t,i),match(x,t),n)

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

또는...

R , 5 바이트

match

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

젤리 , 9 8 바이트

ṣK¥ƒiⱮo⁶

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

세 개의 인수를 취 전체 프로그램 : [[table], incomparables], x, nomatch순서입니다.

C # (Visual C # Interactive Compiler) , 60 바이트

(a,b,c,d)=>a.Select(x=>d.Contains(x)|(x=b.IndexOf(x))<0?c:x)

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

루비 , 44 바이트

인덱스가 0입니다.

->x,t,n,i{x.map{|e|i-[e]==i&&t.index(e)||n}}

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

R , 79 바이트

function(x,t,n,i)sapply(x,function(y)`if`(any(z<-y==t)&all(y-i),which(z)[1],n))

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

R , 66 바이트

function(x,t,n,i)sapply(x,function(y)c(which(y==t&all(y-i)),n)[1])

내 솔루션을 Nick 솔루션의 일부와 결합 합니다 .

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

apt , 14 바이트

Ë!XøD ©ÒVbD ªW

시도 해봐

파이썬 3 , 60 바이트

lambda x,t,n,i:[v in{*t}-{*i}and-~t.index(v)or n for v in x]

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

PowerShell , 63 바이트

param($x,$t,$n,$o)$x|%{($n,$t.indexof($_))[$_-in$t*!($_-in$o)]}

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

0 인덱스

자바 스크립트 (ES6), 53 바이트

(x,t,n,i)=>x.map(v=>!~i.indexOf(v)*-~t.indexOf(v)||n)

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

펄 6 , 45 바이트

->\b,\c,\d{*>>.&{$_∉d&&~b.first($_,:k)||c}}

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

다음과 같이 카레 입력을받는 익명 코드 블록 f(table, nomatch, incomparables)(x) 하고 일치하는 인덱스 0을 반환하는 .

설명:

->\b,\c,\d{                               }    # Anonymous code block taking 3 inputs
           *           # Return an anonymous Whatever lambda
            >>.&{                        }  # Mapping input to
                 $_∉d                       # If the element is not an uncomparable
                     && b.first($_,:k)      # Return the first index in the table
                       ~                    # Stringified so Nils are false
                                      ||c   # Else the nomatch element
~~

숯 , 14 바이트

ＩＥθ∨∧¬№ει⊕⌕ηιζ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 1- 색인. 설명:

  θ             First input (x)
 Ｅ              Map over elements
       ε        Fourth input (incomparables)
      №         Count occurrences of
        ι       Current element
     ¬          Is zero
    ∧           Logical And
           η    Second input (table)
          ⌕     Find 0-based index of
            ι   Current element
         ⊕      Convert to 1-indexed
   ∨            Logical Or
             ζ  Third input (nomatch)
Ｉ               Cast to string
                Implicitly print on separate lines

C (gcc) , 125 바이트

1- 색인.

전달 된 배열에서 센티넬 값을 사용할 수 없다는 것을 감안할 때 각 배열에 배열 경계를 제공해야합니다.

f(x,c,t,d,n,i,e,j,f)int*x,*t,*i;{for(;f=0,c-->0;x[c]=--f?n:j){for(j=e;!f&j;x[c]-i[--j]||--f);for(;!f&j<d;x[c]-t[j++]||++f);}}

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

첨부 , 39 바이트

${{[_,y][nil=_or x@_in z]}=>x&Index@_4}

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

매우 간단한 검증. 인수 순서는 일치 순서와 다릅니다. 구체적으로, x첫 번째가 아닌 마지막 인수이며 _4위의 스 니펫에 해당합니다 .

설명

${{[_,y][nil=_or x@_in z]}=>x&Index@_4}
${                                    }   named lambda, taking parameters x, y, z, and _4
                            x&Index@_4    short for Index[x, _4];
                                              calculates where each element in _4 occurs in x
                                              returns `nil` for no match
  {                      }=>              over each index:
   [_,y][               ]                     choose y (`nomatch`) if
         nil=_                                    the index is nil
              or x@_in z                          or the element is in `incomparables`
    _                                         otherwise, choose the index

하스켈, 57 56 바이트

(t#n)i=map$maybe n id.($zip i[n,n..]++zip t[1..]).lookup

인수의 순서는 다음과 같습니다 table, nomatch, incomparables, x.

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

05AB1E , 7 바이트

õ:Ik®I:

인덱스가 0입니다. 입력 순서는 다음과 같습니다.incomparables, table, x, nomatch ..

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

설명:

õ:       # Replace all values of the (implicit) first incomparables-list in
         # the (implicit) second table-list with an empty string
         #  i.e. incomparables=[4] and table=[9,8,7,6,5,4,3,2,1] → [9,8,7,6,5,"",3,2,1]
  Ik     # Get the index of each value in the third x-list in this list (-1 if not found)
         #  i.e. x=[9,4,3,6,3] → [0,-1,6,3,6]
    ®I:  # Replace all -1 with the fourth input-integer
         #  i.e. nomatch=-99 → [0,-99,6,3,6]
         # (and output the mapped list implicitly as result)