Trova il numero maggiore più vicino

30

L'obiettivo

Dato qualsiasi array di numeri interi, ad esempio:

[-1,476,578,27,0,1,-1,1,2]

e un indice di tale array (questo esempio utilizza l' indicizzazione basata su 0 , sebbene sia possibile utilizzare anche l' indicizzazione basata su 1 ):

         index = 5
                 v
[-1,476,578,27,0,1,-1,1,2]

Quindi restituisce il numero più vicino maggiore dell'elemento in quell'indice . Nell'esempio, il numero più vicino maggiore di 1 è 27 (a 2 indici di distanza).

         index = 5
                 v
[-1,476,578,27,0,1,-1,1,2]
            ^
Nearest greater number

Output = 27

ipotesi

  • Il più vicino non include il wrapping.
  • Al programma non verrà mai assegnato un array di lunghezza 1 (es.; [55]).
  • Devi presumere che ci sia sempre un numero maggiore dell'elemento dato.
  • Se ci sono 2 numeri maggiori dell'elemento a uguali distanze, puoi restituire uno dei due .

Coppie I / O

Input:
Index = 45
Array = [69, 43, 89, 93, 62, 25, 4, 11, 115, 87, 174, 60, 84, 58, 28, 67, 71, 157, 47, 8, 33, 192, 187, 87, 175, 32, 135, 25, 137, 92, 183, 151, 147, 7, 133, 7, 41, 12, 96, 147, 9, 134, 197, 3, 107, 164, 90, 199, 21, 71, 77, 62, 190, 122, 33, 127, 185, 58, 92, 106, 26, 24, 56, 79, 71, 24, 24, 114, 17, 84, 121, 188, 6, 177, 114, 159, 159, 102, 50, 136, 47, 32, 1, 199, 74, 141, 125, 23, 118, 9, 12, 100, 94, 166, 12, 9, 179, 147, 149, 178, 90, 71, 141, 49, 74, 100, 199, 160, 120, 14, 195, 112, 176, 164, 68, 88, 108, 72, 124, 173, 155, 146, 193, 30, 2, 186, 102, 45, 147, 99, 178, 84, 83, 93, 153, 11, 171, 186, 157, 32, 90, 57, 181, 5, 157, 106, 20, 5, 194, 130, 100, 97, 3, 87, 116, 57, 125, 157, 190, 83, 148, 90, 44, 156, 167, 131, 100, 58, 139, 183, 53, 91, 151, 65, 121, 61, 40, 80, 40, 68, 73, 20, 135, 197, 124, 190, 108, 66, 21, 27, 147, 118, 192, 29, 193, 27, 155, 93, 33, 129]
Output = 199

Input:
Index = 2
Array = [4,-2,1,-3,5]
Output = 4 OR 5

Input:
Index = 0
Array = [2124, -173, -155, 146, 193, -30, 2, 186, 102, 4545]
Output = 4545

Input:
Index = 0
Array = [1,0,2,3]
Output = 2

Input:
Index = 2
Array = [3,-1,-3,-2,5]
Output = -1 OR -2
code-golf  array-manipulation  integer 
— Graviton
fonte
Potresti aggiungere un caso di test in cui cerca un risultato a sinistra anziché a destra? vale a dire1; [7,1,-4,2]
— Kevin Cruijssen
Penso che 2; [3,-1,-3,-2,5]sia un bel test case. Ci sono numeri positivi, ma il risultato è negativo.
— Stewie Griffin,
Posso usare 2 indicizzati?
— Tito,
@Titus Voglio dire se vuoi davvero
— Graviton,

Risposte:

7

MATL , 10 byte

yt&y)>fYk)

Questo utilizza l'indicizzazione basata su 1. Provalo online!

Spiegazione

Considera gli input [4,-2,1,-3,5], 3come esempio.

y     % Take two inputs implicitly. Duplicate 2nd-top element in the stack
      % STACK: [4,-2,1,-3,5], 3, [4,-2,1,-3,5]
t     % Duplicate top of the stack
      % STACK: [4,-2,1,-3,5], 3, [4,-2,1,-3,5], [4,-2,1,-3,5]
&y    % Duplicate 3rd-top element in the stack
      % STACK: [4,-2,1,-3,5], 3, [4,-2,1,-3,5], [4,-2,1,-3,5], 3
)     % Index: select elements from first input as indicated by second input
      % STACK: [4,-2,1,-3,5], 3, [4,-2,1,-3,5], 1
>     % Greater than, element-wise
      % STACK: [4,-2,1,-3,5], 3, [1,0,0,0,1]
f     % Find: gives indices of non-zero entries
      % STACK: [4,-2,1,-3,5], 3, [1,5]
Yk    % Closest element: gives closest element of each entry in second input
      % ([1,5]) to each entry in the first input (3). In case of a tie it 
      % gives the left-most one
      % STACK: [4,-2,1,-3,5], 1
)     % Index: select elements from first input as indicated by second input
      % STACK: 4
      % Implicitly display
— Luis Mendo
fonte
2
Hai una spiegazione?
— Nick Clifford,
@NickClifford Certo! Stavo aspettando un chiarimento su OP. Spiegazione aggiunta
— Luis Mendo,
4

JavaScript (ES6), 57 55 byte

Accetta l'array ae l'indice inella sintassi del curry (a)(i).

a=>g=(i,p)=>(x=a[i-p])>a[i]||(x=a[i+p])>a[i]?x:g(i,-~p)

Casi test

Mostra snippet di codice

— Arnauld
fonte
Non puoi usare |invece di ||?
— Neil,
@Neil No, non vogliamo xessere sovrascritti quando viene soddisfatta la prima condizione.
— Arnauld,
3

Haskell , 48 byte

i%l=minimum[[j*j,x]|(j,x)<-zip[-i..]l,x>l!!i]!!1

Provalo online! Quadro di prova di Ørjan Johansen.

— XNOR
fonte
È possibile salvare un byte utilizzando un elenco e !!1invece (basta cambiare Integera Intnell'intestazione).
— Ørjan Johansen,
@ ØrjanJohansen Grazie, ci avevo provato e non ero sicuro del perché si lamentasse dei tipi.
— xnor
2

x86-64 Assembly, 40 byte

Ispirato dall'analisi di Johan du Toit e delle soluzioni C del 2501 , la seguente è una funzione che può essere assemblata con MASM per piattaforme x86-64.

Segue la convenzione di chiamata x64 di Microsoft per il passaggio dei parametri, quindi viene passata la lunghezza totale dell'array, viene passata ECXla posizione di interesse e viene passato EDXil puntatore all'array interoR8 (è una piattaforma a 64 bit, quindi è un puntatore a 64 bit).

Restituisce il risultato (il "numero maggiore più vicino") in EAX.

             FindNearestGreater PROC      
8B F2       \    mov     esi, edx     ; move pos parameter to preferred register
8B D9       |    mov     ebx, ecx     ; make copy of count (ecx == i; ebx == count)
            | MainLoop:
8B C6       |    mov     eax, esi     ; temp  = pos
2B C1       |    sub     eax, ecx     ; temp -= i
99          |    cdq
33 C2       |    xor     eax, edx
2B C2       |    sub     eax, edx     ; temp = AbsValue(temp)
            | 
41 8B 14 B0 |    mov     edx, DWORD PTR [r8+rsi*4]
41 39 14 88 |    cmp     DWORD PTR [r8+rcx*4], edx
7E 04       |    jle     KeepGoing    ; jump if (pValues[i] <= pValues[pos])
3B D8       |    cmp     ebx, eax
77 02       |    ja      Next         ; jump if (count > temp)
            | KeepGoing:
8B C3       |     mov     eax, ebx    ; temp = count
            | Next:
8B D8       |     mov     ebx, eax    ; count = temp
E2 E3       |     loop    MainLoop    ; equivalent to dec ecx + jnz, but smaller (and slower)
            | 
            |     ; Return pValues[temp + pos]
03 C6       |     add     eax, esi
41 8B 04 80 |     mov     eax, DWORD PTR [r8+rax*4]
C3          /     ret
             FindNearestGreater ENDP

Se si desidera chiamarlo dal codice C, il prototipo sarebbe:

extern int FindNearestGreater(unsigned int count,
                              unsigned int pos,
                              const    int *pValues);
— Cody Grey
fonte
1

Haskell , 53 byte

(#)accetta un Inte un elenco di Ints Integer(in realtà qualsiasi Ordtipo) e restituisce un elemento dell'elenco.

n#l=[x|i<-[1..],x:_<-(`drop`l)<$>[n-i,n+i],x>l!!n]!!0

Come funziona

  • nè l'indice indicato ed lè l'elenco / "array" indicato.
  • i, assumendo valori da 1 in su, è la distanza da quella nattualmente in fase di test.
  • Per ciascuno i, controlliamo gli indici n-ien+i .
  • xè l'elemento di lessere testato. Se supera i test sarà un elemento della comprensione dell'elenco risultante.
    • L'indicizzazione di indici arbitrari con !!potrebbe dare un errore fuori limite, mentre dropin questo caso restituisce l'intero elenco o un elenco vuoto. La corrispondenza del motivo x:_verifica che il risultato non sia vuoto.
    • x>l!!nverifica che il nostro elemento sia maggiore dell'elemento nell'indice n(che è garantito che esista).
    • !!0 alla fine restituisce la prima corrispondenza / elemento della comprensione dell'elenco.

Provalo online!

— Ørjan Johansen
fonte
1

Brachylog , 17 byte

hH&∋₎<.&t:I≜+:H∋₍

Provalo online!

Spiegazione

hH                      Call the list H
  &∋₎<.                 Output is greater than the number at the specified index
       &t:I≜            Label I (0, then 1, then -1, then 2, then -2, …)
            +           Sum I with the input Index
             :H∋₍       Output is the element of H at index <the sum>
— Fatalize
fonte
1

Java (OpenJDK 8) , 98 byte

int f(int n,int[]a){for(int s=1,i=1,x=a[n];;n+=i++*s,s=-s)if(0<=n&n<a.length&&a[n]>x)return a[n];}

Provalo online!

Verifica gli indici nell'ordine specificato dalle somme parziali della seguente somma:

initial value + 1 - 2 + 3 - 4 + 5 - 6 + ...
— Perdente Suora
fonte
Stavo solo leggendo la domanda e volevo iniziare a scrivere una risposta. A proposito, perché il s=1,e ,s=-s, non ha alcuna utilità nella tua risposta. Hai dimenticato di rimuoverlo da un vecchio approccio?
— Kevin Cruijssen,
1
@KevinCruijssen è un errore e lo sto risolvendo ora. Ha superato le prove perché in tutte quelle prove, il numero maggiore più vicino è a destra.
— Leaky Nun,
1

C, 69 byte

t;b;f(*d,c,p){for(b=c;c--;)d[c]>d[p]&(t=abs(p-c))<b?b=t:0;*d=d[p+b];}

Il primo argomento è un argomento in / out. L'output è memorizzato nel suo primo elemento.

Guardalo funzionare online .

— 2501
fonte
1

R, 59 byte

function(l,i)l[j<-l>l[i]][which.min(abs(1:length(l)-i)[j])]

restituisce una funzione anonima. Nel caso in cui vi siano due elementi maggiori a uguale distanza, verrà restituito il primo (indice minore).

Provalo online!

— Giuseppe
fonte
1

PHP, 73 byte

function($i,$a){for(;$b<=$a[$i];)$b=max($a[++$d+$i],$a[$i-$d]);return$b;}

la chiusura prende l'indice e l'array basati su 0 dagli argomenti. Verifica tutti i casi di test .

— Titus
fonte
Non il prossimo valore più alto. Hai bisogno di un valore con la distanza più bassa che sia maggiore
— Jörg Hülsermann
@ JörgHülsermann Grazie per la segnalazione.
— Tito,
0

Java, 96 byte

int f(int n,int[]a){for(int s=1,i=1,x=a[n];0>(n+=i++*s)|n>=a.length||a[n]<=x;s=-s);return a[n];}

Gli identificatori sono chiamati come la risposta di @Leaky Nun. Inoltre, la maggior parte delle parti è stata allineata per essere sostanzialmente la stessa: in confronto, ifè stata sostituita dalla condizione for(sacrificando il punto e virgola aggiuntivo). I due punti sono stati rimossi spostando la parte incrementale in condizione (quindi le parentesi della precedente istruzione if praticamente "spostate") - cambiando & in | non ha avuto alcun impatto sul conteggio dei personaggi.

— Johannes
fonte
0

Clojure, 95 byte

#(%(nth(nth(sort-by first(for[i(range(count %)):when(>(% i)(% %2))][(Math/abs(- i %2))i]))0)1))

Questo è il più breve che ho potuto inventare :( Ho anche provato a giocare con questo, ma non sono riuscito a portarlo al traguardo:

#(map(fn[f c](f c))[reverse rest](split-at %2 %))
— NikoNyrh
fonte
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.