Ini dimaksudkan untuk menjadi golf kode yang mudah dan seukuran gigitan.

The mex (minimal jumlah dikecualikan) dari koleksi terbatas angka adalah yang terkecil bilangan bulat non-negatif 0, 1, 2, 3, 4, ...yang tidak tidak muncul dalam koleksi. Dengan kata lain, ini adalah minimum dari komplemen. Operasi mex merupakan pusat analisis game yang tidak memihak dalam teori permainan kombinatorial .

Tujuan Anda adalah untuk menulis program atau fungsi bernama untuk menghitung mex menggunakan sesedikit mungkin byte.

Memasukkan:

Daftar bilangan bulat non-negatif dalam urutan apa pun. Dapat berisi pengulangan. Untuk konkret, panjang daftar dan rentang elemen yang diizinkan akan berada di antara 0dan 20inklusif.

Definisi "daftar" di sini fleksibel. Setiap struktur yang mewakili kumpulan angka baik-baik saja, asalkan memiliki urutan elemen tetap dan memungkinkan pengulangan. Itu mungkin tidak termasuk informasi tambahan apa pun kecuali panjangnya.

Input dapat diambil sebagai argumen fungsi atau melalui STDIN.

Keluaran

Nomor terkecil yang dikecualikan. Keluarkan atau cetak.

Uji kasus

[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 byte

h-U21Q

Contoh dijalankan

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

Bagaimana itu bekerja

  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 byte

K),l~^1<

Bagaimana itu bekerja:

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"

Input sampel:

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

Keluaran:

10

Cobalah online di sini

J - 13 char

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

Tindakan yang sangat sederhana di J, dan karenanya sangat sulit untuk dibuat lebih kecil.

i.@21membuat daftar dari 0 hingga 20 inklusif. -.melakukan set-kurangi input dari daftar ini. 0{mengambil elemen pertama dari apa yang tersisa, yaitu jumlah terkecil. f=:mendefinisikan fungsi bernama. Di 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

Sejak rilis J806 pada November 2017, ada sintaks baru yang menghemat satu byte dengan membiarkan kami menggunakan i.@21yang lama (i.21)dalam konteks ini.

Golfscript 7

~21,^0=

Versi lanjutan dari jawaban Peter Taylor. Komunitas wiki karena saya tidak punya perwakilan untuk mengomentari posnya.

Perbedaannya adalah menggunakan ukuran daftar maks yang diketahui dari pertanyaan alih-alih panjang +1 untuk menyimpan karakter dan menjatuhkan $ yang tidak relevan.

Cobalah online

Bahan tertawaan - 9 Bytes

20rzj\\<]

Mengambil input dari stdin dalam format {7 6 5 5 1 2 2 4 2 0}

Dijelaskan:

 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.

Coba beberapa contoh:

{1 0 7 6 3 11 15 1 9 2 3 1 5 2 3 4 6 8 1 18} 20rzj \\ <]

{5 4 1 5 4 8 2 1 5 4 0 7 7} 20rzj \\ <]

Bash + coreutils, 23 byte

seq 0 20|egrep -vwm1 $1

Ini mengasumsikan input sebagai daftar |(pipa) yang dipisahkan. Misalnya:

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

Ruby, 32 byte

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

Menentukan fungsi yang fakan dipanggil dengan array.

GolfScript ( 10 9 byte)

~.,),^$0=

Mengambil input dari stdin dalam format [5 4 1 5 4 8 2 1 5 4 0 7 7].

Demo online

Xojo, 55 byte

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

Ruby, 22

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

Penjelasan

• Masukan diambil sebagai argumen ke lambda. Diharapkan Arraydari Integer.
• Input dikurangi dari array [0,1,2..20].
• Karena Array [0,1,2..20]diurutkan, elemen pertama harus mex.

Haskell, 30

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

Ini berfungsi untuk daftar semua ukuran dan daftar di luar 20. Ini dapat dibuat 15 byte panjang jika Data.List diimpor:

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

Skema - 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))))

Tidak terlalu kompetitif. Tapi saya suka skema penulisan :),

Berikut adalah kode yang tidak dipisahkan:

(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)
     ))
  )
)

Python, 37 karakter

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

C # - 64 karakter

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

Tidak selalu Jarang bahasa golf terbaik, tetapi mudah untuk ditulis dan dimengerti :)

Scala, 18 byte

0 to 20 diff l min

l adalah daftar 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

Java , 91 byte

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;}

Cobalah online!

Java 7, 69 66 byte

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

-3 byte terima kasih kepada @LeakyNun

Penjelasan:

Mendukung tidak hanya 0-20, tetapi 0-2147483647 sebagai gantinya (yang sebenarnya menyimpan byte).

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

Kode uji:

Coba di sini.

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)));
  }
}

Keluaran:

0
1
1
2
0
0
3
4
4
10

APL (Dyalog) , 19 byte

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

Cobalah online!

Saya mungkin kehilangan sesuatu yang penting di sini. Golf sedang berlangsung ...

TI-BASIC, 24 byte

: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

Jika Prompt Xdiberikan daftar alih-alih nomor tunggal, itu akan secara otomatis membuat daftar bernama Xyang dapat diakses dengan ʟX.

Stax , 6 byte

¢╔⌂♀╠▬

Jalankan dan debug itu

Penjelasan

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 byte

f←⊃⊢~⍨0,⍳∘⍴

Cobalah online!

Jeli , 7 byte

Pendekatan lain. Dapat digunakan dalam rantai dengan arity apa pun, dan tidak perlu rantai pemisah atau apa pun.

‘Ṭ;0i0’

Karena jawabannya dijamin kurang dari 256, ini juga berfungsi:

Jelly , 5 byte

⁹ḶḟµḢ

Cobalah online!

Powershell, 28 byte

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

Skrip uji:

$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"
}

Keluaran:

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

Penjelasan:

• Selisih $isementara $argsarray berisi nilai integer +$i.
• Output nilai integer terakhir +$i.

MathGolf , 5 4 byte

Jr,╓

Cobalah online!

Solusi ini dibatasi hanya pada kisaran 0 hingga 20, meskipun ini dapat diperpanjang dengan mudah dengan meningkatkan rentang awal.

Penjelasan:

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

Atau, solusi 5 byte untuk semua angka:

Åï╧▲ï

Cobalah online!

Penjelasan:

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

Perl - 34

Inilah subrutin.

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

Uji dengan:

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

Java, 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;}

Tidak Disatukan:

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;
}

Cobra - 50

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

Javascript, 74

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

Bagus dan sederhana! Perhatikan loop kosong saat.

JavaScript (E6) 35

Fungsi rekursif, parameter array di input dan mengembalikan mex. Tidak terbatas pada 20

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

Uji di konsol 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)))

Keluaran

[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 Bytes

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

PHP, 39 Bytes

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