Temukan si kembar yang unik

28

Anda akan diberikan dua Array / Daftar / Vektor bilangan bulat non-negatif A dan B . Tugas Anda adalah untuk output tertinggi bilangan bulat N yang muncul di kedua A dan B , dan juga unik di kedua A dan B .


Kasus uji:

A, B -> Output

[6], [1, 6] -> 6
[1, 2, 3, 4], [4, 5, 6, 7] -> 4
[0, 73, 38, 29], [38, 29, 73, 0] -> 73
[1, 3, 4, 6, 6, 9], [8, 7, 6, 3, 4, 3] -> 4
[2, 2, 2, 6, 3, 5, 8, 2], [8, 7, 5, 8] -> 5
[12, 19, 18, 289, 19, 17], [12, 19, 18, 17, 17, 289] -> 289
[17, 29, 39, 29, 29, 39, 18], [19, 19, 18, 20, 17, 18] -> 17
[17, 29, 39, 29, 29, 39, 18, 18], [19, 19, 18, 20, 17, 18] -> 17
Tuan Xcoder
sumber

Jawaban:

7

Jelly , 7 byte

fċ@ÐṂ;Ṁ

Cobalah online!

Bagaimana itu bekerja

fċ@ÐṂ;Ṁ  Main link. Left argument: A. Right argument: B

f        Filter; keep those elements of A that appear in B.
   ÐṂ    Yield all elements of the result for which the link to left yields a
         minimal value (2).
 ċ@        Count the occurrences of the element...
     ;     in the concatenation of A and B.
      Ṁ  Take the maximum.
Dennis
sumber
7

Bash + coreutils, 49 byte

U()(sort -rn|uniq -u$1)
(U<<<$1;U<<<$2)|U D|sed q

Terima kasih kepada @seshoumara karena bermain golf 1 byte!

Cobalah online!

Bagaimana itu bekerja

uniq mengambil input yang diurutkan dan melakukan satu atau beberapa tindakan, tergantung pada flag-command-line.

U<<<$1dan U<<<$2panggil fungsi Udengan argumen baris perintah pertama dan kedua sebagai input. Untuk masing-masing, sort -rn|uniq -udijalankan, mengurutkan input secara numerik ( -n) dan dalam urutan menurun ( -r) untuk uniq , yang hanya akan mencetak baris unik ( -u).

Output dari keduanya (elemen unik dari setiap array) disatukan dan disalurkan ke U D, yaitu
sort -rn|uniq -uD,. Kali ini, uniq hanya akan mencetak garis duplikat ( -D), dan hanya pengulangan pertama dari masing-masing.

Sementara halaman manual mengatakan itu akan mencetak semua pengulangan, -upenyebab yang ditambahkan -Duntuk mencetak hanya kemunculan pertama dari garis duplikat. Perilaku ini biasanya dicapai dengan uniq -d.

Akhirnya, sed qsegera berhenti, mengurangi inputnya (elemen unik dari kedua array) ke baris pertama. Karena output diurutkan dalam urutan menurun, ini adalah maksimum.

Dennis
sumber
6

Pyth, 12 9 byte

Cobalah

[email protected]/d

Disimpan 3 byte berkat Tn. Xcoder.

Penjelasan

[email protected]/d
    m  /d   Count the occurrences of each element.
     .m     Take only those that appear the minimum number of times.
  @F        Apply the above to A and B and take the intersection.
eS          Take the largest.

sumber
Bagus! Solusi saya juga 12 byte .
Tuan Xcoder
Golf solusi saya turun sedikit, 9 byte (menggunakan [email protected]/d) dan mengambil input sebagai daftar dua daftar.
Tuan Xcoder
@ Mr.Xcoder Tampaknya cukup berbeda untuk menjadi jawabannya sendiri.
Karena saya OP tantangan, saya enggan mempostingnya. Anda bisa menggunakannya dan memberikan kredit, menyebutkan pendekatan Anda saat ini sebagai alternatif (jika ingin tentu saja)
Tn. Xcoder
5

05AB1E , 9 8 byte

-1 byte terima kasih Erik the Outgolfer

εТÏ}`Ãà

Cobalah online!

ε   }    # For each input
 Ð¢Ï     #   Get the unique elements
     `Ã  # Keep only the elements that appear in both lists
       à # Keep the greatest element
         # Implicit print
Riley
sumber
5

Sekam , 7 byte

→►≠OfEΠ

Mengambil input sebagai daftar dua daftar, juga berfungsi untuk sejumlah daftar (mengembalikan angka tertinggi yang terjadi tepat satu kali dalam masing-masing, jika memungkinkan). Cobalah online!

Penjelasan

Ini adalah jawaban Sekam pertama untuk (ab) menggunakan fungsi "maksimum oleh" yang baru .

→►≠OfEΠ  Implicit input, say [[3,2,1,3],[1,2,3,4]]
      Π  Cartesian product: [[3,1],[2,1],[3,2],[2,2],[1,1],[3,3],[1,2],[3,1],[3,4],[2,3],[1,3],[3,2],[2,4],[3,3],[1,4],[3,4]]
    fE   Keep those that have equal elements: [[2,2],[1,1],[3,3],[3,3]]
   O     Sort: [[1,1],[2,2],[3,3],[3,3]]
 ►≠      Find rightmost element that maximizes number of other elements that are not equal to it: [2,2]
→        Take last element: 2
Zgarb
sumber
4

Bash + coreutils, 60 byte

f()(sort -rn<<<"$1"|uniq -u);grep -m1 -wf<(f "$1") <(f "$2")

Cobalah secara Online

Bash, 89 byte

c()(for e;{((e^$1||r++,2^r));});for x in $1 $2;{((x<r))||c $x $1||c $x $2||r=$x;};echo $r

TIO

Nahuel Fouilleul
sumber
1
Gunakan sort -rndengan sed qdi akhir, bukan tail -1untuk mencukur 1 byte Great ditemukan dengan grep -wfbtw. +1
seshoumara
@seshoumara, terima kasih atas tipnya, sebenarnya saya bisa mencukur 3 byte dengan opsi -m1 grep.
Nahuel Fouilleul
3

Jelly , 11 byte

ċ@Ị¥Ðf`€f/Ṁ

Cobalah online!

Erik the Outgolfer
sumber
Penggunaan pintar `!
Tn. Xcoder
3

J, 23 byte

>./@([-.-.)&(-.-.@~:#])

(-.-.@~:#]) menghapus dari daftar elemen yang berulang

& lakukan ini untuk kedua argumen

([-.-.) Kami ingin A intersect B. Ini adalah ungkapan yang setara: "A minus (A minus B)"

>./ Ambil maks

Cobalah online!

Jonah
sumber
Setara, Anda dapat mengganti bagian persimpangan dengan e.~#]. Golf ini terbukti sulit ... Saya mencoba menggunakan /.-Kunci tidak berhasil ( ((1=#)/.~#~.)untuk bagian pertama yang 2 byte lebih lama menurut hitungan saya)
cole
@ cole, ya, saya mencoba pendekatan kunci juga, dan juga satu dengan mengklasifikasikan diri. Saya tidak bisa mengalahkan kiriman saya di atas dengan pendekatan lain.
Jonah
2

PowerShell , 94 byte

param($a,$b)filter f($x){$x|group|?{$_.count-eq1}}
(f($a|sort|?{$_-in((f $b).Name)}))[-1].Name

Cobalah online!

Mengambil input $adan $bsebagai array. Buat a filteryang groupmenggabungkan elemen-elemen array input dan menarik hanya elemen-elemen dengan count -equal ke 1(yaitu, hanya elemen-elemen yang unik dalam array input).

Baris berikutnya kemudian membangun algoritma. Pertama sort $a, kita tarik -inbenda-benda unik itu $b. Itu sendiri unik-ified, yang terbesar [-1]dipilih, dan kami mengambilnya .Name. Yang tersisa pada pipa dan output tersirat.

AdmBorkBork
sumber
2

Javascript (ES6), 102 86 75 71 byte

a=>b=>Math.max(...a.map(e=>(g=x=>x.map(y=>y-e||x--,x=1)|!x)(a)*g(b)*e))

Terima kasih @justinMariner untuk mendapatkan dari 102 hingga 86

Terima kasih @tsh untuk mendapatkan dari 86 hingga 75

Terima kasih @Arnauld dari 75 hingga 71

Cobalah online!

Nate
sumber
Selamat datang di PPCG! Sejauh yang saya tahu ini tidak memastikan bahwa ehanya muncul sekali adan b.
Martin Ender
@ MartinEnder Terima kasih! Mengedit jawaban untuk mencerminkan detail yang saya lewatkan!
Nate
1
Saya tidak pernah berpikir untuk menggunakan lastIndexOfseperti itu, itu cukup pintar. Anda bisa mendapatkan ini hingga 86 byte: Coba online! . Lihat tips JS untuk lebih lanjut.
Justin Mariner
1
Tampaknya menggunakan (g=x=>x.filter(y=>y==e).length==1)lebih pendek.
tsh
1
Saya pikir ini juga melewati semua kasus tepi (71 byte).
Arnauld
2

Haskell , 57 53 byte

x?y|let v!x=filter(==v)x==[v]=maximum[a|a<-x,a!x,a!y]

Cobalah online!

UPD: Terima kasih @Laikoni

pengguna28667
sumber
Selamat datang di PPCG dan golf Haskell khususnya! Ini jawaban pertama yang bagus! Dua hal kecil: Anda juga dapat mendeklarasikan fsebagai operator infiks dan menulis [1|...]==[1]alih-alih sum[1|...]==1menyimpan beberapa byte.
Laikoni
Jika Anda belum melihatnya, berikut ini beberapa tautan yang mungkin menarik: Kumpulan kiat golf kami di Haskell , panduan untuk aturan golf di Haskell dan Of Monads and Men , ruang obrolan Haskell kami.
Laikoni
1
Sejalan !dengan andmenyimpan dua byte lagi: Cobalah online!
Laikoni
2

Bahasa Wolfram (Mathematica) , 40 byte

Max@Cases[Tally@#⋂Tally@#2,{x_,1}:>x]&

Cobalah online!

Bagaimana itu bekerja

Tally@#memberikan daftar elemen unik dari input pertama, bersama-sama dengan jumlah mereka: misalnya, Tally[{2,2,2,6,3,5,8,2}]hasil {{2,4},{6,1},{3,1},{5,1},{8,1}}.

Tally@#2melakukan hal yang sama untuk daftar kedua, dan menemukan pasangan hadir di keduanya. Lalu kami memilih (dengan Cases) pasangan yang berakhir dengan 1, mengambil elemen pertama dari setiap hasil, yang memberi kami daftar semua kembar yang unik. Akhirnya, Maxmengembalikan kembar unik terbesar.

Misha Lavrov
sumber
2

Röda , 48 byte

{m={|n|sort|count|[_]if[_=n]};[_()|m 1]|m 2|max}

Cobalah online!

Terinspirasi oleh jawaban jq170727 .

Penjelasan:

{ /* Anonymous function, takes input from the stream */
  m={|n|        /* Local function m with parameter n: */
    sort|count| /*   Count unique values in the stream */
    [_]if[_=n]  /*   For each value, push it to the stream if its count is n */
  };
  [      /* For each list in the stream: */
    _()| /*   Flat it (push its values to the stream) */
    m 1  /*   Push values that appear only once to the stream */
  ]|
  m 2|   /* Push values that appear twice to the stream */
  max    /* Find the max value in the stream */
}
fergusq
sumber
2

F # (.NET Core) , 117 115 114 111 108 byte

115 114 byte

Solusi lain dengan countBywaktu ini:

let u x=x|>Seq.countBy id|>Seq.filter(fun a->snd a=1)|>Seq.map fst|>set
let f x y=Set.intersect(u x)(u y)|>Seq.max

Cobalah online!

117 111 byte

let u x=x|>Seq.filter(fun a->x|>Seq.filter((=)a)|>Seq.length=1)|>set
let f x y=Set.intersect(u x)(u y)|>Seq.max

Cobalah online!

100% F #! Setiap bantuan dipersilahkan!

6 byte menang berkat notasi awalan!

108 byte

let f a b=Set.intersect(set a)(set b)|>Seq.filter(fun x->a@b|>Seq.filter(fun y->y=x)|>Seq.length<3)|>Seq.max

@adalah fungsi concat! Terima kasih @ Ayb4btu untuk algoritme ini.

Cobalah online!

aloisdg kata Reinstate Monica
sumber
2

C # (.NET Core) , 85 84 byte

x=>y=>x.Where(a=>x.Count(b=>b==a)<2).Intersect(y.Where(a=>y.Count(b=>b==a)<2)).Max()

Cobalah online!

Solusi naif dengan LINQ ( using System;using System.Linq;+ 31chars jadi 116 byte dengan header)

84! Saya lupa kari!

aloisdg kata Reinstate Monica
sumber
2

Pip , 17 16 byte

MX{_Na=_Nb=1FIa}

Ini adalah fungsi yang mengambil dua daftar sebagai argumen. Cobalah online!

Penjelasan

  {            }  Define function, args are a & b:
            FIa    Filter elements of a on this function:
   _Na              Count of element in a
      =_Nb          equals count of element in b
          =1        equals 1
                  This gives a function that returns a list of unique twins
MX                Modify it to take the max and return that instead
DLosc
sumber
2

APL (Dyalog) , 18 karakter = 23 byte *

Badan program penuh. Meminta daftar daftar dari STDIN. Bekerja dengan sejumlah daftar. Output ke STDOUT.

⌈/∊∩/{⊂⍺⍴⍨1=≢⍵}⌸¨⎕

Cobalah online!

 meminta input yang dievaluasi dari STDIN

{... }⌸¨ untuk setiap daftar, panggil fungsi berikut untuk setiap elemen unik dalam daftar itu, menggunakan elemen unik sebagai argumen kiri ( ) dan daftar indeks kemunculannya sebagai argumen kanan ( ):

≢⍵ penghitungan indeks (yaitu jumlah kejadian)

1= sama dengan 1

⍺⍴⍨ menggunakannya untuk membentuk kembali elemen spesifik (mis. berikan daftar kosong jika tidak unik)

Sekarang kami memiliki dua daftar elemen unik untuk setiap daftar input (meskipun setiap elemen adalah daftar, dan ada daftar kosong sebagai residu dari elemen non-unik).

∩/ persimpangan (reduksi)

ϵ daftar (ratakan)

⌈/ maks (reduksi)


* dalam Classic, menghitung sebagai ⎕U2338.

Adm
sumber
1

MATL , 13 byte

,iSY'1=)]X&X>

Cobalah online! Atau Verifikasi semua kasus uji .

Penjelasan

,      % Do twice
  i    %   Take input: array
  S    %   Sort array
  Y'   %   Run-length encode: pushes array of values and array of run lengths
  1=   %   Compare each run length with 1
  )    %   Use as logical index. This keeps only values that have appeared once
]      % End
X&     % Intersection of the two arrays
X>     % Maximum of array. Implicitly display
Luis Mendo
sumber
1

PHP, 98 byte

<?foreach(($c=array_count_values)($_GET[a])as$a=>$n)$n-1||$c($_GET[b])[$a]-1||$a<$r||$r=$a;echo$r;

Berikan array sebagai parameter GET adan b.

Titus
sumber
Pikirkan Anda bisa menukar parramet GET itu dengan konstanta.
Progrock
@Progrock Itu bukan metode input yang valid.
Titus
Frasa pertanyaan yang diberikan A dan B sebagai array. Dan mengatakan metode input dan output yang masuk akal .... bukan berarti saya bisa mengikuti tautan itu dengan mudah. Sangat suka resep Anda. (Tersedak dalam Php 5.6 usang.)
Progrock
1

Java 8, 133 byte

a->b->{long r;for(java.util.Collections c=null;;a.remove(r))if(b.contains(r=c.max(a))&c.frequency(a,r)*c.frequency(b,r)==1)return r;}

Penjelasan:

Coba di sini.

a->b->{                  // Method with two ArrayList<Long> parameters and long return-type
  long r;                //  Result-long
  for(java.util.Collections c=null; 
                         //  Create a java.util.Collections to save bytes
      ;                  //  Loop indefinitely
       a.remove(r))      //    After every iteration, remove the current item
    if(b.contains(r=c.max(a)) 
                         //   If the maximum value in `a` is present in `b`,
       &c.frequency(a,r)*c.frequency(b,r)==1)
                         //   and this maximum value is unique in both Lists:
      return r;          //    Return this value
                         //  End of loop (implicit / single-line body)
}                        // End of method
Kevin Cruijssen
sumber
1

R , 73 byte

function(A,B)max(setdiff(intersect(A,B),c(A[(d=duplicated)(A)],B[d(B)])))

Cobalah online!

Menghitung Aberpotongan B, maka maksimum perbedaan antara itu dan elemen yang diduplikasi dari Adan B.

Giuseppe
sumber
1

JavaScript ES5, 122 121 114 byte

function f(a,b){for(i=a.sort().length;--i+1;)if(a[i]!=a[i+1]&&a[i]!=a[i-1]&&!(b.split(a[i]).length-2))return a[i]}

Saya baru di sini, jadi saya tidak benar-benar tahu apakah saya dapat menghapus definisi fungsi dan hanya memasukkan isinya (yang akan menyelamatkan saya 17 byte)

Ini contoh kerjanya: 122 121 114

122 hingga 121 byte: Membungkus inisialisasi dalam untuk

121 hingga 114 byte: bharus berupa string

Piyin
sumber
2
Selamat datang di PPCG! Anda tidak dapat menghapus definisi fungsi, tetapi Anda mungkin bisa menggunakan fungsi lambda saja (saya tidak tahu JS jadi saya tidak bisa membantu Anda dengan itu).
Tn. Xcoder
Terima kasih sudah membereskannya. Saya tidak berpikir fungsi lambda dapat menyimpan karakter apa pun, tetapi saya akan mencoba. Juga, karena Anda mengatakan "Setiap metode / format Input dan Output yang masuk akal diizinkan", bisakah saya menerima string sebagai bdan menyimpan b=''+b,?
Piyin
Aku berhasil mendapatkan 115 byte meskipun saya tidak tahu JavaScript: f=(a,b)=>{for(b=''+b,i=a.sort().length;--i+1;)if(a[i]!=a[i+1]&&a[i]!=a[i-1]&&!(b.split(a[i]).length-2))return a[i]}.
Tn. Xcoder
1
Ya tentu input string akan baik
Tn. Xcoder
Tetapi JavaScript yang Anda buat adalah ES5, bukan ES6. Jawaban ES6 sudah diposting, itulah sebabnya saya memposting ES5. Dan terima kasih telah menjawab pertanyaan kedua hehe
Piyin
1

SQLite , 118 byte

SELECT MAX(x)FROM(SELECT X FROM A GROUP BY X HAVING COUNT(X)=1
INTERSECT
SELECT X FROM B GROUP BY X HAVING COUNT(X)=1)

Cobalah online!

Pertama kali dalam SQL, bantuan apa pun diterima!

aloisdg kata Reinstate Monica
sumber
1

Jq 1,5 , 76 byte

def m(n):[.[indices(.[])|select(length==n)[]]]|unique[];[map(m(1))|m(2)]|max

Diperluas

def m(n): # function to emit elements of multiplicity n
  [
    .[                         # select elements with
         indices(.[])          # number of indices in the array
       | select(length==n)[]   # equal to specified multiplicity
    ]
  ] | unique[]                 # emit deduped values
;

[
    map(m(1))   # collect multiplicity 1 elements from each array
  | m(2)        # collect multiplicity 2 elements
] | max         # choose largest of these elements

Cobalah online!

Berikut adalah solusi lain yang memiliki panjang yang sama:

def u:[keys[]as$k|[.[$k]]-(.[:$k]+.[$k+1:])]|add;map(u)|.[0]-(.[0]-.[1])|max

Diperluas

def u: # compute unique elements of input array
  [
      keys[] as $k                   # for each index k
    | [.[$k]] - (.[:$k]+.[$k+1:])    # subtract other elements from [ .[k] ]
  ]                                  # resulting in [] if .[k] is a duplicate
  | add                              # collect remaining [ .[k] ] arrays
;
  map(u)                             # discard duplicates from each input array
| .[0]-(.[0]-.[1])                   # find common elements using set difference
| max                                # kepp largest element

Cobalah online!

jq170727
sumber
1

APL, 47 byte

{1↑R[⍒R←((1={+/⍵=A}¨A)/A←⍺)∩(1={+/⍵=B}¨B)/B←⍵]}

Menyatakan fungsi anonim yang mengambil dua vektor, menghilangkan elemen duplikat, lalu menemukan elemen terbesar di persimpangan hasil.

A←⍺dan B←⍵menyimpan argumen yang diteruskan ke fungsi di Adan B.

a=bmengembalikan vektor dengan 1 di setiap indeks yang asama dengan b. Jika askalar (yaitu kuantitas tunggal dan bukan vektor) ini mengembalikan vektor dengan 1 di mana pun elemen dalam badalah adan 0 ketika tidak. Sebagai contoh:

Input: 1=1 2 3
Output: 1 0 0

{+/⍵=A}: fungsi anonim bersarang; menemukan kemunculan argumen dalam vektor Adan menambahkannya yaitu menemukan jumlah kemunculan argumen diA

1={+/⍵=A}¨A: terapkan fungsi anonim bersarang untuk setiap elemen dalam A dan temukan elemen yang sama dengan 1 yaitu elemen unik

((1={+/⍵=A}¨A)/A←⍺): setelah menemukan lokasi elemen unik, pilih saja elemen-elemen ini dalam vektor asli (/ pilih dari elemen argumen kanan yang lokasinya sesuai dengan 1 pada argumen kiri)

R←((1={+/⍵=A}¨A)/A←⍺)∩(1={+/⍵=B}¨B)/B←⍵: ulangi proses untuk argumen kedua; sekarang kita hanya memiliki elemen unik, temukan persimpangan yaitu elemen umum dan simpan dalam vektorR

R[⍒R]: mengakses elemen Rdalam urutan menurun

1↑R[⍒R]: ambil elemen pertama Rsaat diurutkan dalam urutan menurun

Kasus cobaan:

Input: 17 29 39 29 29 39 18 18 {1↑R[⍒R←((1={+/⍵=A}¨A)/A←⍺)∩(1={+/⍵=B}¨B)/B←⍵]} 19 19 18 20 17 18
Output: 17
Arc676
sumber
1

J , 30 byte

[:>./@,[*([*+/"1(1=*/)+/)@(=/)

Bagaimana itu bekerja:

Saya mulai dengan pengujian di mana kedua daftar tumpang tindih oleh =/(memasukkan uji kesetaraan antara semua anggota daftar:

   a =. 1 3 4 6 6 9
   b =. 8 7 6 3 4 3
   ]c=. a =/ b 
0 0 0 0 0 0
0 0 0 1 0 1
0 0 0 0 1 0
0 0 1 0 0 0
0 0 1 0 0 0
0 0 0 0 0 0

Lebih dari satu 1 di kolom yang sama berarti bahwa angka tersebut tidak unik untuk argumen kiri (6 dalam kasus ini); di baris - untuk argumen yang benar (3)

Lalu saya meringkas semua baris dan semua kolom untuk menemukan di mana duplikatnya:

   +/ c
0 0 2 1 1 1
   +/"1 c
0 2 1 1 1 0

Saya menemukan produk kartesius dari daftar di atas dan mengatur anggota lebih besar dari 1 menjadi 0.

    m =. (+/"1 c) (1=*/) +/c
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 1 1 1
0 0 0 1 1 1
0 0 0 1 1 1
0 0 0 0 0 0

Saya menutupi matriks kesetaraan c dengan m untuk menemukan elemen unik yang umum untuk kedua daftar dan mengalikan argumen kiri dengan ini.

]l =. a * m * c
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 4 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0

Lalu saya meratakan daftar dan menemukan elemen maks:

 >./,l 
4

Cobalah online!

Galen Ivanov
sumber
1

C # (.NET Core) , 66 + 31 = 97 65 + 31 = 96 byte

a=>b=>a.Intersect(b).Where(x=>a.Concat(b).Count(y=>y==x)<3).Max()

Cobalah online!

+31 byte untuk using System;using System.Linq;

Saya mengambil inspirasi dari jawaban @ aloisdg. Namun, alih-alih mencari nilai unik di kedua array, saya membalikkan urutan operasi sehingga yang intersectpertama, dan kemudian menemukan nilai maksimum item yang terjadi dua kali ketika array digabungkan dan berada di berpotongan. Saya bisa menggunakan <3sebagai Countakan setidaknya 2 untuk nilai apapun, karena akan berada di kedua array.

Ucapan Terima Kasih

-1 byte terima kasih kepada @aloisdg dan sarannya untuk menggunakan Funccurrying.

Ayb4btu
sumber
1
Ide bagus! Aku benar-benar menyukainya
aloisdg mengatakan Reinstate Monica
3 byte dimenangkan dalam F # :) codegolf.stackexchange.com/a/147073/15214
aloisdg mengatakan Reinstate Monica
Dengan kari Anda dapat memenangkan 1 byte! Cobalah online!
aloisdg berkata Reinstate Monica
0

Oktaf , 57 56 byte

@(x)max(intersect(cellfun(@(x){x(sum(x'==x)==1)},x){:}))

Fungsi anonim yang mengambil input sel array dari dua array numerik.

Cobalah online!

Penjelasan

Untuk setiap ( cellfun(@(x)...)) dari dua array input, ini membuat matriks perbandingan kesetaraan berpasangan antara entri ( x.'==x); menyimpan ( x(...)) hanya entri yang jumlah kolomnya 1( sum(...)==1); dan mengemas hasilnya dalam sel ( {...}). Perpotongan ( intersect) dari dua hasil ( {:}) dihitung, dan maksimum ( max(...)) diambil.

Luis Mendo
sumber