이것은 쉬운 바이트 크기의 코드 골프입니다.

MEX 번호 한정된 컬렉션 (최소 수는 제외) 최소 음이 아닌 정수이다 0, 1, 2, 3, 4, ...않는 하지 컬렉션에 나타난다. 즉, 보완의 최소값입니다. mex 작업은 조합 게임 이론 에서 공정한 게임 분석의 핵심 입니다.

당신의 목표는 가능한 적은 바이트를 사용하여 mex를 계산 하는 프로그램 이나 명명 된 함수 를 작성하는 것입니다 .

입력:

음수가 아닌 정수의 순서입니다. 반복이 포함될 수 있습니다. 구체적으로 목록의 길이와 허용되는 요소 범위는 둘 사이에 있습니다.0 에 20포함됩니다.

여기서 "목록"의 정의는 유연합니다. 요소의 순서가 고정되어 있고 반복을 허용하는 한 숫자 모음을 나타내는 모든 구조가 좋습니다. 길이를 제외한 보조 정보는 포함 할 수 없습니다.

입력은 함수 인수 또는 STDIN을 통해 취할 수 있습니다.

산출

가장 작은 제외 된 숫자입니다. 출력하거나 인쇄하십시오.

테스트 사례

[1]
0
[0]
1
[2, 0]
1
[3, 1, 0, 1, 3, 3]
2
[]
0
[1, 2, 3]
0
[5, 4, 1, 5, 4, 8, 2, 1, 5, 4, 0, 7, 7]
3
[3, 2, 1, 0]
4
[0, 0, 1, 1, 2, 2, 3]
4
[1, 0, 7, 6, 3, 11, 15, 1, 9, 2, 3, 1, 5, 2, 3, 4, 6, 8, 1, 18]
10

Pyth , 6 바이트

h-U21Q

예제 실행

$ pyth -c h-U21Q <<< '[5, 4, 1, 5, 4, 8, 2, 1, 5, 4, 0, 7, 7]'
3

작동 원리

  U21   range(21)
     Q  eval(input())
 -U21Q  setwisedifference(range(21), eval(input))          # Pyth function. Preserves order.
h-U21Q  setwisedifference(range(21), eval(input))[0]

CJam, 11 8 바이트

K),l~^1<

작동 방식 :

K),         "Create an array with numbers 0 through 20"
   l~       "Read the input and eval it, resulting to an array"
     ^      "XOR the elements of two arrays, resulting in a complement array"
      1<    "Take the first element of the resultant array"

샘플 입력 :

[1 0 7 6 3 11 15 1 9 2 3 1 5 2 3 4 6 8 1 18]

산출:

10

여기에서 온라인으로 사용해보십시오

J-13 자

f=:0{i.@21&-.

J에서는 매우 간단한 동작이므로 작게 만들기가 매우 어렵습니다.

i.@210에서 20까지의 목록을 만듭니다. -.이 목록에서 입력을 빼기를 수행합니다. 0{남은 것의 첫 번째 요소, 즉 가장 작은 숫자를 취합니다. f=:명명 된 함수를 정의합니다. REPL에서 :

   f=:0{(i.21)&-.
   f 1
0
   f 0
1
   f 2 0
1
   f 3 1 0 1 3 3
2
   f ''    NB. empty list
0
   f 1 2 3
0
   f 5 4 1 5 4 8 2 1 5 4 0 7 7
3
   f 3 2 1 0
4
   f 0 0 1 1 2 2 3
4
   f 1 0 7 6 3 11 15 1 9 2 3 1 5 2 3 4 6 8 1 18
10

2017 년 11 월 J806이 출시 된 이후, 새로운 구문이 존재 하여이 컨텍스트 i.@21에서 이전 (i.21)에 사용할 수 있도록하여 1 바이트를 절약 할 수 있습니다 .

골프 스크립트 7

~21,^0=

피터 테일러의 대답의 골퍼 버전. 그의 게시물에 대해 언급 할 담당자가 없기 때문에 커뮤니티 위키.

차이점은 길이 +1 대신 질문에서 알려진 최대 목록 크기를 사용하여 문자를 저장하고 관련이없는 $를 삭제하는 것입니다.

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

해 학적 인 -9 바이트

20rzj\\<]

stdin에서 {7 6 5 5 1 2 2 4 2 0} 형식으로 입력을받습니다.

설명 :

 20 rz   map a range from 0 to 20. (thanks to algorithmshark for the cocde fix)
  j \\    swaps the two arrays, and collects the difference between the two into a new array
  <]      gets the smallest element of the resulting array.

몇 가지 예를 시도하십시오.

{10 6 6 3 11 15 1 9 2 3 5 5 3 34 6 8 1 18} 20rzj \\ <]

{5 45 5 8 8 15 7 7} 20rzj \\ <]

Bash + coreutils, 23 바이트

seq 0 20|egrep -vwm1 $1

이것은 입력을 |(파이프) 분리 목록 으로 가정 합니다. 예 :

$ ./mex.sh "5|4|1|5|4|8|2|1|5|4|0|7|7"
3
$

루비, 32 바이트

f=->n{(0..20).find{|i|n-[i]==n}}

f배열과 함께 호출 할 함수 를 정의합니다 .

GolfScript ( 10 9 바이트)

~.,),^$0=

stdin 형식으로 입력을받습니다 [5 4 1 5 4 8 2 1 5 4 0 7 7].

온라인 데모

Xojo, 55 바이트

dim x as int8
while a.indexOf(x)>-1
x=x+1
wend
return x

루비, 22

x=->n{([*0..20]-n)[0]}

설명

• 입력은 람다에 대한 인수로 간주됩니다. 그것은 기대 Array의 Integer들.
• 배열에서 입력을 뺍니다 [0,1,2..20].
• Array [0,1,2..20]가 정렬 되었으므로 첫 번째 요소는 mex 여야합니다.

하스켈, 30

f s=filter(`notElem`s)[0..]!!0

이것은 모든 크기의 목록과 20 이상의 목록에 적용됩니다. Data.List를 가져 오는 경우 15 바이트 길이로 만들 수 있습니다.

f s=[0..]\\s!!0

계획-219

(define (A X) (define (B X) (if (equal? (length X) 1) (+ (car X) 1) (if (< (- (cadr X) (car X)) 2) (B (cdr X)) (+ (car X) 1)))) (if (empty? X) `() (if (equal? (car (sort X <)) 0) (B (sort X <)) (- (car (sort X <)) 1))))

경쟁이 심하지 않습니다. 그러나 나는 쓰기 체계를 좋아한다 :),

ungolfed 코드는 다음과 같습니다.

(define (minExclude X)
  (define (firstNonOneDifference X)
     (if (equal? (length X) 1)
         (+ (car X) 1)
     (if (< (- (cadr X) (car X)) 2) 
         (firstNonOneDifference (cdr X))
         (+ (car X) 1)
     ))
  )
  (let ([s (sort X <)])
     (if (empty? X)
         `()
     (if (equal? (car s) 0)
        (firstNonOneDifference s)
        (- (car s) 1)
     ))
  )
)

파이썬, 37 자

f=lambda a:min(set(range(21))-set(a))

C #-64 자

int f(int[] a){return Enumerable.Range(0,20).Except(a).First();}

항상 최고의 골프 ​​언어는 아니지만 작성하고 이해하기 쉽습니다. :)

스칼라, 18 바이트

0 to 20 diff l min

l Int의 목록입니다.

scala> val l = List(0,1,5)
l: List[Int] = List(0, 1, 5)

scala> 0 to 20 diff l min
res0: Int = 2

자바 , 91 바이트

int f(int[]a){int i=0,j=1,k;for(;j>0;i++)for(k=j=0;k<a.length;j=a[k++]==i?1:j);return i-1;}

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

자바 7, 69 66 바이트

int c(java.util.List a){int r=0;for(;a.contains(r);r++);return r;}

@LeakyNun 덕분에 -3 바이트

설명:

0-20뿐만 아니라 0-2147483647을 지원합니다 (실제로는 바이트를 절약 함).

int c(java.util.List a){    // Method with List parameter and integer return-type
  int r=0;                  //  Return integer
  for(;a.contains(r);r++);  //  Continue raising `r` as long as the list contains the current `r`
  return r;                 //  Return result-integer
}                           // End of method

테스트 코드 :

여기에서 시도하십시오.

import java.util.ArrayList;
import java.util.Arrays;
class M{
  static int c(java.util.List a){int r=0;for(;a.contains(r);r++);return r;}

  public static void main(String[] a){
    System.out.println(c(Arrays.asList(1)));
    System.out.println(c(Arrays.asList(0)));
    System.out.println(c(Arrays.asList(2, 0)));
    System.out.println(c(Arrays.asList(3, 1, 0, 1, 3, 3)));
    System.out.println(c(new ArrayList()));
    System.out.println(c(Arrays.asList(1, 2, 3)));
    System.out.println(c(Arrays.asList(5, 4, 1, 5, 4, 8, 2, 1, 5, 4, 0, 7, 7)));
    System.out.println(c(Arrays.asList(3, 2, 1, 0)));
    System.out.println(c(Arrays.asList(0, 0, 1, 1, 2, 2, 3)));
    System.out.println(c(Arrays.asList(1, 0, 7, 6, 3, 11, 15, 1, 9, 2, 3, 1, 5, 2, 3, 4, 6, 8, 1, 18)));
  }
}

산출:

0
1
1
2
0
0
3
4
4
10

APL (Dyalog) , 19 바이트

(0⍳⍨⊢=⍳∘⍴)∘(⊂∘⍋⌷⊢)∪

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

여기에 중요한 것이 빠져있을 것입니다. 골프 진행 중 ...

TI-BASIC, 24 바이트

:0→A                 //Store 0 to A
:Prompt X            //Prompt list X
:While not(prod(ʟX-A //While A is not missing from list X
:A+1→A               //Increment A
:End                 //End While loop
:A                   //Print A

Prompt X단일 번호 대신 목록이 제공 되면 X로 액세스 할 수있는 이름 이 지정된 목록이 자동으로 생성 됩니다 ʟX.

Stax , 6 바이트

¢╔⌂♀╠▬

실행 및 디버깅

설명

21r:IUI             # Full program, unpacked
21                  # Push 21
  r                 # Range from 0...20
   :I               # Find all elements in input that exist in range
    U               # push -1
     I              # Get index of first occurrence of

APL (Dyalog Classic) , 11 바이트

f←⊃⊢~⍨0,⍳∘⍴

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

젤리 , 7 바이트

다른 접근법. arity가있는 체인에 사용할 수 있으며 체인 분리기 나 다른 것이 필요하지 않습니다.

‘Ṭ;0i0’

대답은 256보다 작게 보장되므로 다음과 같이 작동합니다.

젤리 , 5 바이트

⁹ḶḟµḢ

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

파워 쉘, 28 바이트

for(;+$i-in$args){$i++}+$i

테스트 스크립트 :

$f = {
 for(;+$i-in$args){$i++}+$i
#for(;$i++-in$args){}(--$i)   # alternative version
}

@(
    ,(0 , 1)
    ,(1 , 0)
    ,(2 , 3, 1, 0, 1, 3, 3)
    ,(0 )
    ,(0 , 1, 2, 3)
    ,(3 , 5, 4, 1, 5, 4, 8, 2, 1, 5, 4, 0, 7, 7)
    ,(4 , 3, 2, 1, 0)
    ,(4 , 0, 0, 1, 1, 2, 2, 3)
    ,(10, 1, 0, 7, 6, 3, 11, 15, 1, 9, 2, 3, 1, 5, 2, 3, 4, 6, 8, 1, 18)
) | % {
    $e, $a = $_
    $r = &$f @a
    "$($r-eq$e): $r"
}

산출:

True: 0
True: 1
True: 2
True: 0
True: 0
True: 3
True: 4
True: 4
True: 10

설명:

• 배열에 정수 값이 포함 된 $i동안 증가$args+$i .
• 마지막 정수 값을 출력합니다 +$i.

MathGolf , 5 4 바이트

Jr,╓

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

이 솔루션은 0에서 20까지의 범위로 제한되지만 초기 범위를 늘리면 쉽게 확장 할 수 있습니다.

설명:

Jr     Range from 0 to 20
  ,    Remove elements from the input list from this range
   ╓   Return the minimum element

또는 모든 숫자에 대한 5 바이트 솔루션 :

Åï╧▲ï

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

설명:

Å  ▲   Do while true
  ╧    Does the input contain
 ï     The index of the loop?
    ï  Push the number of iterations of the last loop

펄-34

서브 루틴이 있습니다.

sub f{$_~~@_?1:return$_ for0..20}

다음을 사용하여 테스트하십시오.

perl -e'print f(0,1,3,4,5,6,7); sub f{$_~~@_?1:return$_ for 0..20}'

자바, 93

int f(int[]a){int i=0,j=0,k=a.length;for(;i++<20&j<k;){for(j=0;j<k&&a[j++]!=i;);}return i-1;}

언 골프 드 :

int f(int[] a) {
    int i = 0, j = 0, length = a.length;
    for (; i < 20 & j < length; i++) {
        for (j = 0; j < length && a[j] != i; j++) { }
    }
    return i - 1;
}

코브라-50

def f(l)
    for n in 22,if n not in l,break
    print n

자바 스크립트, 74

i=-1;a=prompt().split(',');while(i<21&&a.indexOf(String(++i))>=0);alert(i)

좋고 간단합니다! 비어있는 while 루프에 유의하십시오.

자바 스크립트 (E6) 35

재귀 함수, 입력의 배열 매개 변수 및 mex. 20 개로 제한되지 않음

F=(l,i=0)=>~l.indexOf(i)?F(l,++i):i

FireFox / FireBug 콘솔에서 테스트

;[[1],[0],[2, 0],[3, 1, 0, 1, 3, 3],[],[1, 2, 3],
[5, 4, 1, 5, 4, 8, 2, 1, 5, 4, 0, 7, 7],[3, 2, 1, 0],[0, 0, 1, 1, 2, 2, 3],
[1, 0, 7, 6, 3, 11, 15, 1, 9, 2, 3, 1, 5, 2, 3, 4, 6, 8, 1, 18]]
.forEach(list => console.log(list, F(list)))

산출

[1] 0
[0] 1
[2, 0] 1
[3, 1, 0, 1, 3, 3] 2
[] 0
[1, 2, 3] 0
[5, 4, 1, 5, 4, 8, 2, 1, 5, 4, 0, 7, 7] 3
[3, 2, 1, 0] 4
[0, 0, 1, 1, 2, 2, 3] 4
[1, 0, 7, 6, 3, 11, 15, 1, 9, 2, 3, 1, 5, 2, 3, 4, 6, 8, 1, 18] 10

PHP, 38 바이트

<?=min(array_diff(range(0,20),$_GET));

PHP, 39 바이트

<?for(;in_array($i++,$_GET););echo$i-1;