Herausforderung:

Nehmen Sie einen Vektor / eine Liste von Ganzzahlen als Eingabe und geben Sie die größte Zahl aus, die einer Null benachbart ist.

Spezifikationen:

• Wie immer optionales Eingabe- und Ausgabeformat
• Sie können davon ausgehen, dass es mindestens ein Null- und mindestens ein Nicht-Null-Element gibt.

Testfälle:

1 4 3 6 0 3 7 0
7

9 4 9 0 9 0 9 15 -2
9

-4 -6 -2 0 -9
-2

-11 0 0 0 0 0 -12 10
0

0 20 
20

Viel Glück und viel Spaß beim Golfen!

Gelee , 8 Bytes

ṡ2ẠÐḟS€Ṁ

Probieren Sie es online!

ṡ2            Overlapping pairs
  ẠÐḟ         Remove pairs without zeroes
     S€       Sum of each pair
       Ṁ      Maximum

MATL , 10 Bytes

t~5BZ+g)X>

Probieren Sie es online! Oder überprüfen Sie alle Testfälle .

Erläuterung

Nehmen wir [-4 -6 -2 0 -9]als Beispiel die Eingabe .

t     % Input array. Duplicate
      %   STACK: [-4 -6 -2 0 -9],  [-4 -6 -2 0 -9]
~     % Logical negate. Replaces zeros by logical 1, and nonzeros by logical 0
      %   STACK: [-4 -6 -2 0 -9],  [0 0 0 1 0]
5B    % Push logical array [1 0 1] (5 in binary)
      %   STACK: [-4 -6 -2 0 -9], [0 0 0 1 0], [1 0 1]
Z+    % Convolution, maintaining size. Gives nonzero (1 or 2) for neighbours of
      % zeros in the original array, and zero for the rest
      %   STACK: [-4 -6 -2 0 -9], [0 0 1 0 1]
g     % Convert to logical
      %   STACK: [-4 -6 -2 0 -9], [0 0 1 0 1]
)     % Use as index into original array
      %   STACK: [-2 -9]
X>    % Maximum of array.
      %   STACK: -2
      % Implicitly display

05AB1E , 9 Bytes

ü‚D€P_ÏOZ

Erläuterung

ü‚         # pair up elements
  D        # duplicate
   €P      # product of each pair (0 if the pair contains a 0)
     _     # logical negate, turns 0 into 1 and everything else to 0
      Ï    # keep only the pairs containing at least 1 zero
       O   # sum the pairs
        Z  # take max

Funktioniert nicht im Online-Interpreter, funktioniert aber offline.

Haskell, 63 43 Bytes

f x=maximum[a+b|(a,b)<-tail>>=zip$x,a*b==0]

Danke an @MartinEnder für 4 Bytes!

Pyth, 12 11 10 Bytes

eSsM/#0,Vt

Bildet Paare, filtert nach Nullelement, sortiert nach Summe und gibt den größten Wert zurück.

JavaScript (ES6), 59 57 56 Bytes

let f =
    
l=>l.map((n,i)=>m=l[i-1]==0|l[i+1]==0&&n>m?n:m,m=-1/0)|m

console.log(f([1, 4, 3, 6, 0, 3, 7, 0]));       // 7
console.log(f([9, 4, 9, 0, 9, 0, 9, 15, -2]));  // 9
console.log(f([-4, -6, -2, 0, -9]));            // -2
console.log(f([-11, 0, 0, 0, 0, 0, -12, 10]));  // 0
console.log(f([3, 0, 5]));                      // 5
console.log(f([28, 0, 14, 0]));                 // 28

Edit: dank Huntro 2 Byte gespeichert
Edit: dank ETHproductions 1 Byte gespeichert

JavaScript (ES6), 53 Byte

a=>(m=-1/0,a.reduce((l,r)=>(m=l*r||l+r<m?m:l+r,r)),m)

Weil ich gerne benutze reduce. Alternativlösung, auch 53 Bytes:

a=>Math.max(...a.map((e,i)=>e*a[++i]==0?e+a[i]:-1/0))

Python, 49 Bytes

lambda a:max(sum(x)for x in zip(a,a[1:])if 0in x)

Tests sind bei ideone

Zippt durch die Paare, summiert die Nullen und gibt das Maximum zurück.

Ruby, 51 Bytes

->a{a.each_cons(2).map{|a,b|a*b!=0?-1.0/0:a+b}.max}

Verwendung

f=->a{a.each_cons(2).map{|a,b|a*b!=0?-1.0/0:a+b}.max}
p f[gets.split.map(&:to_i)]

PHP, 77 68 71 Bytes

-3 Bytes von anonym, -4 und -2 von MartinEnder

preg_match_all("#(?<=\b0 )\S+|\S+(?= 0)#",$argv[1],$m);echo max($m[0]);

renn mit php -r '<code>' '<space separated values>'

Java 7, 118 105 106 Bytes

int d(int[]a){int i=0,m=1<<31,c;for(;++i<a.length;m=a[i]*a[i-1]==0&(c=a[i]+a[i-‌​1])>m?c:m);return m;}

13 Bytes werden dank @cliffroot mithilfe eines arithmetischen Ansatzes eingespart . 1 zusätzliches Byte danke an @mrco, nachdem er einen Fehler entdeckt hatte (der hinzugefügte Testfall 2, 1, 0würde zurückkehren 2anstatt 1).

Ungolfed & Testcode:

Probieren Sie es hier aus.

class M{
  static int c(int[] a){
    int i,
        m = a[i=0],
        c;
    for(; ++i < a.length; m = a[i] * a[i-1] == 0 & (c = a[i] + a[i - 1]) > m)
                           ? c
                           : m);
    return m;
  }

  public static void main(String[] a){
    System.out.println(c(new int[]{ 1, 4, 3, 6, 0, 3, 7, 0 }));
    System.out.println(c(new int[]{ 9, 4, 9, 0, 9, 0, 9, 15, -2 }));
    System.out.println(c(new int[]{ -4, -6, -2, 0, -9 }));
    System.out.println(c(new int[]{ -11, 0, 0, 0, 0, 0, -12, 10 }));
    System.out.println(c(new int[]{ 0, 20 }));
    System.out.println(c(new int[]{ 2, 1, 0 }));
  }
}

Ausgabe:

7
9
-2
0
20
1

CJam , 16 Bytes

q~2ew{0&},::+:e>

Probieren Sie es online! (Als Testsuite.)

Erläuterung

q~    e# Read and eval input.
2ew   e# Get all (overlapping) pairs of adjacent values.
{0&}, e# Keep only those that contain a 0.
::+   e# Sum each pair to get the other (usually non-zero) value.
:e>   e# Find the maximum.

MATLAB mit Image Processing Toolbox, 32 Byte

@(x)max(x(imdilate(~x,[1 0 1])))

Dies ist eine anonyme Funktion. Anwendungsbeispiel für die Testfälle:

>> f = @(x)max(x(imdilate(~x,[1 0 1])))
f =
  function_handle with value:
    @(x)max(x(imdilate(~x,[1,0,1])))

>> f([1 4 3 6 0 3 7 0])
ans =
     7

>> f([9 4 9 0 9 0 9 15 -2])
ans =
     9

>> f([-4 -6 -2 0 -9])
ans =
    -2

>> f([-11 0 0 0 0 0 -12 10])
ans =
     0

>> f([0 20])
ans =
    20

Dyalog APL , 14 Bytes

⌈/∊2(+↑⍨0∊,)/⎕

⌈/ größte von

∊die Abgeflachten (" e nlisted")

2(... )/paarweise

 + Summe (Null plus etwas ist etwas)

 ↑⍨ genommen wenn

 0 Null

 ∊ ist ein Mitglied von

 , das Paar (lit. die Verkettung der linken und der rechten Nummer)

TryAPL online!

R, 48 47 Bytes

BEARBEITEN: Ein Fehler wurde dank @Vlo behoben und so geändert, dass Eingaben aus stdins gelesen und ein Byte durch Zuweisen wund Überspringen von Klammern gespeichert wurden.

function(v)sort(v[c(w<-which(v==0)-1,w+1)],T)[1]

v=scan();w=which(v==0);sort(v[c(w-1,w+1)],T)[1]

Nicht verschachtelte Erklärung

1. Finden Sie Indizes, für die der Vektor vdie Werte 0 annimmt:w <- which(v == 0)
2. Erstellen Sie einen neuen Vektor, der die Indizes enthält +-1: w-1undw+1
3. Extrahieren Sie Elemente, die mit den Indizes w-1und übereinstimmenw+1
4. In absteigender Reihenfolge sortieren und erstes Element extrahieren

Beachten Sie, dass, wenn das letzte oder erste Element von veine Null ist, w+-1effektiv ein Index außerhalb der Länge des Vektors abgerufen wird, was impliziert, dass dieser v[length(v)+1]zurückgibt NA. Dies ist in der Regel kein Problem, aber die max()Funktionen geben unpraktisch zurück, NAwenn der Vektor vorkommt, es sei denn, Sie geben die Option an na.rm=T. So ist es 2 Bytes kürzer, das erste Element zu sortieren und zu extrahieren, als es zu verwenden ist max(), zB:

max(x,na.rm=T)
sort(x,T)[1]

Mathematica, 46 43 Bytes

^{3 Bytes aufgrund von @MartinEnder gespeichert .}

Max[Tr/@Partition[#,2,1]~Select~MemberQ@0]&

Anonyme Funktion. Nimmt eine Liste von Ganzzahlen als Eingabe und gibt eine Ganzzahl als Ausgabe zurück. Basierend auf der Ruby-Lösung.

Perl, 42 Bytes

Beinhaltet +1 für -p

Geben Sie die Zahlen online auf STDIN

largest0.pl <<< "8 4 0 0 5 1 2 6 9 0 6"

largest0.pl:

#!/usr/bin/perl -p
($_)=sort{$b-$a}/(?<=\b0 )\S+|\S+(?= 0)/g

Julia, 56 55 Bytes

f(l)=max(map(sum,filter(t->0 in t,zip(l,l[2:end])))...)

Erstellen Sie Tupel für benachbarte Werte, nehmen Sie die Tupel mit 0, summieren Sie die Tupelwerte und finden Sie das Maximum

Python 2, 74 Bytes

def f(x):x=[9]+x;print max(x[i]for i in range(len(x)) if 0in x[i-1:i+2:2])

Durchlaufen Sie jedes Element. Wenn sich 0links oder rechts vom aktuellen Element ein befindet, fügen Sie es in den Generator ein und führen Sie es durch max. Wir müssen die Liste mit einer Nicht- 0Nummer auffüllen . Es wird niemals enthalten sein, da das Slice [-1:2:2]nichts enthält.

T-SQL, 182 Bytes

Golf gespielt:

DECLARE @x varchar(max)='1 5 4 3 6 1 3 17 1 -8 0 -7'

DECLARE @a INT, @b INT, @ INT WHILE @x>''SELECT @a=@b,@b=LEFT(@x,z),@x=STUFF(@x,1,z,''),@=IIF(@a=0,IIF(@b<@,@,@b),IIF(@b<>0 or @>@a,@,@a))FROM(SELECT charindex(' ',@x+' ')z)z PRINT @

Ungolfed:

DECLARE @x varchar(max)='1 5 4 3 6 1 3 17 1 -8 0 -7'

DECLARE @a INT, @b INT, @ INT
WHILE @x>''
  SELECT 
   @a=@b,
   @b=LEFT(@x,z),
   @x=STUFF(@x,1,z,''),
   @=IIF(@a=0,IIF(@b<@,@,@b),IIF(@b<>0 or @>@a,@,@a))
  FROM(SELECT charindex(' ',@x+' ')z)z 
PRINT @

Geige

PowerShell v3 +, 62 Byte

param($n)($n[(0..$n.count|?{0-in$n[$_-1],$n[$_+1]})]|sort)[-1]

Ein bisschen länger als die anderen Antworten, aber ein geschickter Ansatz.

Übernimmt die Eingabe $n. Durchlaufen Sie dann die Indizes 0..$n.count, verwenden Sie das Where-Object( |?{...}), um die Indizes abzurufen, bei denen sich das vorherige oder nächste Element im Array befindet 0, und geben Sie diese zurück in den Array-Slice $n[...]. Wir dann |sortdiese Elemente und nehmen die größten [-1].

Beispiele

PS C:\Tools\Scripts\golfing> @(1,4,3,6,0,3,7,0),@(9,4,9,0,9,0,9,15,-2),@(-4,-6,-2,0,-9),@(-11,0,0,0,0,0,-12,10)|%{""+$_+" --> "+(.\largest-number-beside-a-zero.ps1 $_)}
1 4 3 6 0 3 7 0 --> 7
9 4 9 0 9 0 9 15 -2 --> 9
-4 -6 -2 0 -9 --> -2
-11 0 0 0 0 0 -12 10 --> 0

PS C:\Tools\Scripts\golfing> @(0,20),@(20,0),@(0,7,20),@(7,0,20),@(7,0,6,20),@(20,0,6)|%{""+$_+" --> "+(.\largest-number-beside-a-zero.ps1 $_)}
0 20 --> 20
20 0 --> 20
0 7 20 --> 7
7 0 20 --> 20
7 0 6 20 --> 7
20 0 6 --> 20

q, 38 Bytes

{max x where 0 in'x,'(next x),'prev x}

J, 18 Bytes

[:>./2(0&e.\#+/\)]

Erläuterung

[:>./2(0&e.\#+/\)]  Input: array A
                 ]  Identity. Get A
     2              The constant 2
      (         )   Operate on 2 (LHS) and A (RHS)
               \    Get each subarray of size 2 from A and
             +/       Reduce it using addition
           \        Get each subarray of size 2 from A and
       0&e.           Test if 0 is a member of it
            #       Filter for the sums where 0 is contained
[:>./               Reduce using max and return

Perl 6 , 53 Bytes

{max map ->$/ {$1 if !$0|!$2},(1,|@_,1).rotor(3=>-2)}

Erweitert:

# bare block lambda with implicit signature of (*@_)
{
  max

    map

      -> $/ {           # pointy lambda with parameter ｢$/｣
                        # ( ｢$0｣ is the same as ｢$/[0]｣ )
        $1 if !$0 | !$2 # return the middle value if either of the others is false
      },

      ( 1, |@_, 1 )     # list of inputs, with added non-zero terminals
      .rotor( 3 => -2 ) # grab 3, back-up 2, repeat until less than 3 remain
}

PHP, 66 Bytes

foreach($a=$argv as$k=>$v)$v||$m=max($m,$a[$k-1],$a[$k+1]);echo$m;

Ziemlich einfach. Durchläuft die Eingabe, und wenn eine Zahl vorhanden ist 0, wird sie $mauf die höchste Zahl der 2 benachbarten Zahlen und auf den vorherigen Wert von gesetzt $m.

Laufen Sie wie folgt ( -dnur aus ästhetischen Gründen hinzugefügt):

php -d error_reporting=30709 -r 'foreach($a=$argv as$k=>$v)$v||$m=max($m,$a[$k-1],$a[$k+1]);echo$m;' -- -4 -6 -2 0 -9;echo

C # 76 74 Bytes

using System.Linq;i=>i.Zip(i.Skip(1),(a,b)=>a*b==0?1<<31:a+b).Max(‌​);

Erläuterung:

Verwenden Sie zip, um das Array mit sich selbst zu verbinden, aber überspringen Sie den ersten Wert in der zweiten Referenz, sodass Element Null mit Element Eins verbunden wird. Multiplizieren Sie a mit b. Wenn das Ergebnis Null ist, muss einer von ihnen Null sein und a + b ausgeben. Andernfalls geben Sie die minimal mögliche Ganzzahl in der Sprache aus. Unter der Annahme, dass wir immer eine Null und eine Nicht-Null haben, wird dieser Minimalwert niemals als der Maximalwert ausgegeben.

Verwendung:

[TestMethod]
public void LargestFriend()
{
    Assert.AreEqual(7, F(new int[] { 1, 4, 3, 6, 0, 3, 7, 0 }));
    Assert.AreEqual(9, F(new int[] { 9, 4, 9, 0, 9, 0, 9, 15, -2 }));
    Assert.AreEqual(-2, F(new int[] { -4, -6, -2, 0, -9 }));
    Assert.AreEqual(0, F(new int[] { -11, 0, 0, 0, 0, 0, -12, 10 }));
    Assert.AreEqual(20, F(new int[] { 0, 20 }));
}

R, 48 54 Bytes

s=scan()

w=which;max(s[c(w(s==0)+1,w(s==0)-1)],na.rm=T)

Liest den Vektor von der Konsoleneingabe und nimmt dann das Maximum über alle Werte neben 0 an.

Edit: Fängt NAs ab, die an der Grenze produziert wurden, danke rturnbull!

Schläger 183 Bytes

(λ(k)(let*((lr(λ(l i)(list-ref l i)))(l(append(list 1)k(list 1)))(m(for/list((i(range 1(sub1(length l))))
#:when(or(= 0(lr l(sub1 i)))(= 0(lr l(add1 i)))))(lr l i))))(apply max m)))

Ausführliche Version:

(define f
 (λ(k)
    (let* ((lr (λ(l i)(list-ref l i)))
           (l (append (list 1) k (list 1)))
           (m (for/list ((i (range 1 (sub1(length l))))
                         #:when (or (= 0 (lr l (sub1 i)))
                                    (= 0 (lr l (add1 i))) ))
                (lr l i) )))
      (apply max m) )))

Testen:

(f (list 1 4 3 6 0 3 7 0))
(f (list 9 4 9 0 9 0 9 15 -2))
(f (list -4 -6 -2 0 -9))
(f (list -11 0 0 0 0 0 -12 10))
(f (list 0 20 ))

Ausgabe:

7
9
-2
0
20

C 132 Bytes

Ausgaben mit dem Rückkehrcode von main:

int main(int a,char**_){int i,m=0;_[0]=_[a]="1";for(i=1;i<a;++i){m=(*_[i-1]-48||*_[i+1]-48?m>atoi(_[i])?m:atoi(_[i]):m);}return m;}

Ich habe das Gefühl, dass ich in der Lage sein sollte, ein paar Bytes zu sparen, indem ich einen der atoi-Aufrufe speichere, aber ich konnte keinen effizienten Weg finden. ( ,tplus t=plus ,plus tzweimal ist zu lang). Auch dies verwendet technisch undefiniertes Verhalten (Setzen von _ [a] auf "1"), aber jeder mir bekannte Compiler erlaubt es standardmäßig.

Strategie: Füllen Sie den Anfang und das Ende des Arrays mit 1 auf und durchlaufen Sie dann den internen Abschnitt, um jeden Nachbarn zu überprüfen.

PHP 69 64 Bytes

Einige Bytes von Jörg Hülsermann und Titus. =(-5)

Erfordert die Aktivierung von register_globals. Verwendung:http://localhost/notnull.php?i[]=9&i[]=-5i[]=...

$x=$_GET['i'];
$y=0;
foreach($x as $j){
if($y<abs($j)){
$y=$j;
}
}
echo $y;

Golf gespielt:

$x=$_GET['i'];$y=0;foreach($x as $j)if($y<abs($j))$y=$j;echo $y;