ท้าทาย:

ใช้เวกเตอร์ / รายการเลขจำนวนเต็มเป็นอินพุตและส่งออกจำนวนที่มากที่สุดที่อยู่ติดกับศูนย์

ข้อมูลจำเพาะ:

• รูปแบบอินพุตและเอาต์พุตตัวเลือกเช่นเคย
• คุณอาจคิดว่าจะมีอย่างน้อยหนึ่งศูนย์และอย่างน้อยหนึ่งองค์ประกอบที่ไม่ใช่ศูนย์

กรณีทดสอบ:

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

ขอให้โชคดีและเล่นกอล์ฟอย่างมีความสุข!

เยลลี่ขนาด 8 ไบต์

ṡ2ẠÐḟS€Ṁ

ลองออนไลน์!

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

MATL 10 ไบต์

t~5BZ+g)X>

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

ลองทำ[-4 -6 -2 0 -9]ตัวอย่างเป็นตัวอย่าง

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 ไบต์

ü‚D€P_ÏOZ

คำอธิบาย

ü‚         # 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

ไม่ทำงานในล่ามออนไลน์ แต่ทำงานแบบออฟไลน์

Haskell, 63 43 ไบต์

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

ขอบคุณ @MartinEnder สำหรับ 4 ไบต์!

Pyth, 12 11 10 ไบต์

eSsM/#0,Vt

แบบฟอร์มคู่ตัวกรองโดยสมาชิกศูนย์เรียงตามผลรวมผลตอบแทนที่ใหญ่ที่สุด

JavaScript (ES6), 59 57 56 ไบต์

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

แก้ไข: บันทึก 2 ไบต์ขอบคุณ Huntro
แก้ไข: บันทึก 1 ไบต์ขอบคุณ ETHproductions

JavaScript (ES6), 53 ไบต์

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

reduceเพราะผมชอบใช้ ทางเลือกอื่นเช่น 53 ไบต์:

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

Python ขนาด 49 ไบต์

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

การทดสอบอยู่ที่ideone

ซิปผ่านคู่ผลรวมที่มีศูนย์ใด ๆ ส่งคืนค่าสูงสุด

Ruby, 51 ไบต์

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

การใช้

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 ไบต์

-3 ไบต์จากนิรนาม -4 และ -2 จาก MartinEnder

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

ทำงานด้วย php -r '<code>' '<space separated values>'

Java 7, 118 105 106 ไบต์

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 ไบต์ด้วย@cliffrootโดยใช้วิธีการทางคณิตศาสตร์แทน 1 ไบต์เพิ่มเติมขอบคุณ@mrcoหลังจากที่เขาพบข้อผิดพลาด (กรณีทดสอบเพิ่ม2, 1, 0จะกลับมา2แทน1)

Ungolfed & รหัสการทดสอบ:

ลองที่นี่

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

เอาท์พุท:

7
9
-2
0
20
1

CJam , 16 ไบต์

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

ลองออนไลน์! (เป็นชุดทดสอบ)

คำอธิบาย

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 พร้อมกล่องเครื่องมือประมวลผลภาพ 32 ไบต์

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

นี่คือฟังก์ชั่นที่ไม่ระบุชื่อ ตัวอย่างใช้สำหรับกรณีทดสอบ:

>> 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 ไบต์

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

⌈/ ใหญ่ที่สุดของ

∊แบน (" eรายการ"

2(... )/คู่

 + ผลรวม (ศูนย์บวกบางสิ่งบางอย่าง)

 ↑⍨ ถ่ายถ้า

 0 ศูนย์

 ∊ เป็นสมาชิกของ

 , คู่ (lit. การต่อข้อมูลหมายเลขทางซ้ายและหมายเลขทางขวา)

ลองใช้ออนไลน์!

R, 48 47 ไบต์

แก้ไข: แก้ไขข้อผิดพลาดด้วย @Vlo และเปลี่ยนเป็นอ่านอินพุตจาก stdins บันทึกหนึ่งไบต์โดยการกำหนดwและข้าม parantheses

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]

คำอธิบายที่ไม่ได้ซ้อน

1. ค้นหาดัชนีที่เวกเตอร์vใช้กับค่า 0:w <- which(v == 0)
2. สร้างเวกเตอร์ใหม่ที่มีดัชนี+-1: w-1และw+1
3. แยกองค์ประกอบที่ตรงกับดัชนีw-1และw+1
4. เรียงลำดับจากมากไปน้อยและแยกองค์ประกอบกำปั้น

โปรดทราบว่าถ้าองค์ประกอบสุดท้ายหรือครั้งแรกของการvเป็นศูนย์w+-1ได้อย่างมีประสิทธิภาพจะเรียกนอกดัชนีของความยาวของเวกเตอร์ที่แสดงให้เห็นว่าผลตอบแทนv[length(v)+1] NAนี้โดยทั่วไปไม่มีปัญหา แต่max()ฟังก์ชั่นลำบากกลับNAหากมีเหตุการณ์ใด ๆ na.rm=Tในเวกเตอร์เว้นแต่ระบุตัวเลือก ดังนั้นจึงสั้นกว่า 2 ไบต์ในการเรียงลำดับและแยกองค์ประกอบแรกที่ใช้max()เช่น:

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

Mathematica, 46 43 ไบต์

^{ที่บันทึกไว้ 3 ไบต์เนื่องจาก@MartinEnder}

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

ฟังก์ชั่นไม่ระบุชื่อ รับรายการจำนวนเต็มเป็นอินพุตและส่งคืนเลขจำนวนเต็มเป็นเอาต์พุต อ้างอิงจากโซลูชัน Ruby

Perl, 42 ไบต์

รวม +1 สำหรับ -p

ให้หมายเลขในบรรทัดบน 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])))...)

สร้างสิ่งอันดับสำหรับค่าที่อยู่ใกล้เคียงรับสิ่งอันดับที่มี 0, ผลรวมของค่าอันดับและหาค่าสูงสุด

Python 2, 74 ไบต์

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

วงจรผ่านทุกองค์ประกอบถ้ามีอยู่ในตำแหน่งของทั้งซ้ายหรือขวาขององค์ประกอบปัจจุบันที่รวมไว้ในเครื่องกำเนิดไฟฟ้าและเรียกมันผ่าน0 maxเราจำเป็นต้อง pad รายการด้วย0หมายเลขที่ไม่ใช่ มันจะไม่ถูกรวมเพราะส่วน[-1:2:2]จะไม่รวมอะไรเลย

T-SQL, 182 ไบต์

แข็งแรงเล่นกอล์ฟ:

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 @

ซอ

PowerShell v3 +, 62 ไบต์

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

ค่อนข้างนานกว่าคำตอบอื่น ๆ แต่เป็นวิธีที่ดี

$nจะเข้า แล้ว loops ผ่านดัชนี0..$n.count, ใช้Where-Object( |?{...}) เพื่อดึงออกจากดัชนีผู้ที่รายการก่อนหน้าหรือถัดไปในอาร์เรย์เป็นและฟีดกลับเหล่านั้นลงในอาร์เรย์ชิ้น0 $n[...]จากนั้นเราจะองค์ประกอบเหล่านั้นและนำที่ใหญ่ที่สุด|sort[-1]

ตัวอย่าง

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 ไบต์

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

J, 18 ไบต์

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

คำอธิบาย

[:>./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 ไบต์

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

ขยาย:

# 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 ไบต์

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

ตรงไปตรงมาสวย iterates มากกว่าการป้อนข้อมูลและเมื่อจำนวนคือ0จะกำหนด$mจำนวนสูงสุดของ 2 หมายเลขที่อยู่ติดกันและ$mค่าก่อนหน้าใด ๆ

ทำงานแบบนี้ ( -dเพิ่มเพื่อความสวยงามเท่านั้น):

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 ไบต์

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

คำอธิบาย:

ใช้ zip เพื่อเข้าร่วมอาร์เรย์ด้วยตัวเอง แต่ข้ามค่าแรกในการอ้างอิงที่ 2 เพื่อให้รายการศูนย์รวมกับรายการหนึ่ง คูณ a คูณ b หากผลลัพธ์เป็นศูนย์หนึ่งในนั้นต้องเป็นศูนย์และส่งออกเป็น + b มิฉะนั้นให้ส่งออกจำนวนเต็มที่น้อยที่สุดที่เป็นไปได้ในภาษา ด้วยสมมติฐานที่ว่าเราจะมีศูนย์และไม่เป็นศูนย์เสมอค่าต่ำสุดนี้จะไม่ถูกส่งออกเป็นสูงสุด

การใช้งาน:

[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 ไบต์

s=scan()

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

อ่านเวกเตอร์จากอินพุตคอนโซลจากนั้นรับค่าสูงสุดเหนือค่าทั้งหมดที่อยู่ติดกับ 0

แก้ไข: จับ NAs ที่ผลิตที่ขอบเขตขอบคุณ rturnbull!

แร็กเก็ต 183 ไบต์

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

รุ่นโดยละเอียด:

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

การทดสอบ:

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

เอาท์พุท:

7
9
-2
0
20

C 132 ไบต์

เอาท์พุทโดยใช้รหัสส่งคืนของหลัก:

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

ฉันรู้สึกว่าฉันควรจะสามารถบันทึกได้สองสามไบต์โดยการบันทึกการโทรหนึ่งสาย แต่ฉันไม่สามารถหาวิธีที่มีประสิทธิภาพได้ ( ,tบวกt=บวก,บวกtสองครั้งยาวเกินไป) เทคนิคนี้ใช้ลักษณะการทำงานที่ไม่ได้กำหนด (การตั้งค่า _ [a] ถึง "1") แต่คอมไพเลอร์ทั้งหมดที่ฉันรู้จักอนุญาตโดยค่าเริ่มต้น

กลยุทธ์: วางส่วนเริ่มต้นและจุดจบของอาร์เรย์ด้วย 1 จากนั้นวนรอบส่วนภายในเพื่อตรวจสอบแต่ละเพื่อนบ้าน

PHP 69 64 ไบต์

บางไบต์เปิดและปิดจากJörgHülsermannและ Titus =(-5)

ต้องเปิดใช้งาน register_globals การใช้งาน: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;

แข็งแรงเล่นกอล์ฟ:

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