Fungsi minmod adalah varian dari min yang familier , yang muncul dalam skema resolusi tinggi yang membatasi-lereng untuk persamaan diferensial parsial. Diberikan sejumlah lereng, ia mengambil kemiringan yang paling rata, sambil menjaga tanda relatif di antara lereng.

Fungsi ini mengambil sejumlah parameter yang berubah-ubah. Kemudian minmod (x ₁ , x ₂ , ..., x _n ) didefinisikan sebagai:

• min (x ₁ , x ₂ , ..., x _n ) , jika semua x _i benar-benar positif
• maks (x ₁ , x ₂ , ..., x _n ) , jika semua x _i benar-benar negatif
• 0 , jika tidak.

Kami hanya akan mempertimbangkan input integer, karena itu tidak benar-benar mempengaruhi implementasi dan harus lebih inklusif untuk beberapa bahasa (esoterik).

Tulis sebuah program atau fungsi, yang mengambil n bilangan bulat yang ditandatangani (untuk n> 0 ) melalui STDIN, ARGV atau argumen fungsi (Anda dapat menggunakan array jika itu lebih nyaman daripada fungsi variadic), dan mengembalikan atau mencetak (ke STDOUT) hasilnya dari minmod (a, b) .

Anda tidak boleh menggunakan fungsi min atau maks bawaan (dan jelas, tidak ada minmod bawaan juga, jika Anda dapat menemukannya). Selain itu, Anda tidak harus menggunakan built-in menyortir fungsi, kecuali untuk mengurutkan tetap sejumlah kecil item (kurang dari 5).

Jika bahasa Anda tidak memiliki tipe yang ditandatangani, Anda dapat menggunakan tipe yang tidak ditandatangani dan menafsirkannya sebagai pelengkap dari dua bahasa. Misalnya, jika bahasa Anda hanya menggunakan byte yang tidak ditandatangani, Anda dapat menggunakannya 255untuk bertahan -1dan 128bertahan -128, dll.

Ini kode golf, jadi jawaban tersingkat (dalam byte) menang.

Uji Kasus

Input          Output

2              2
-3             -3
0              0
3 -5           0
2 4 1          1
0 1 2          0
-1 1 2         0
-4 -2 -3 -2    -2
-5 0 -1        0
1 0 -1         0

Papan peringkat

Cuplikan Stack berikut menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa. Jadi, bahkan jika bahasa pilihan Anda tidak membiarkan Anda memenangkan seluruh tantangan, mengapa tidak mencoba merebut tempat di daftar kedua?

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda bisa menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

# Ruby, <s>104</s> <s>101</s> 96 bytes

function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){$.ajax({url:answersUrl(page++),method:"get",dataType:"jsonp",crossDomain:true,success:function(e){answers.push.apply(answers,e.items);if(e.has_more)getAnswers();else process()}})}function shouldHaveHeading(e){var t=false;var n=e.body_markdown.split("\n");try{t|=/^#/.test(e.body_markdown);t|=["-","="].indexOf(n[1][0])>-1;t&=LANGUAGE_REG.test(e.body_markdown)}catch(r){}return t}function shouldHaveScore(e){var t=false;try{t|=SIZE_REG.test(e.body_markdown.split("\n")[0])}catch(n){}return t}function getAuthorName(e){return e.owner.display_name}function process(){answers=answers.filter(shouldHaveScore).filter(shouldHaveHeading);answers.sort(function(e,t){var n=+(e.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0],r=+(t.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0];return n-r});var e={};var t=1;answers.forEach(function(n){var r=n.body_markdown.split("\n")[0];var i=$("#answer-template").html();var s=r.match(NUMBER_REG)[0];var o=(r.match(SIZE_REG)||[0])[0];var u=r.match(LANGUAGE_REG)[1];var a=getAuthorName(n);i=i.replace("{{PLACE}}",t++ +".").replace("{{NAME}}",a).replace("{{LANGUAGE}}",u).replace("{{SIZE}}",o).replace("{{LINK}}",n.share_link);i=$(i);$("#answers").append(i);e[u]=e[u]||{lang:u,user:a,size:o,link:n.share_link}});var n=[];for(var r in e)if(e.hasOwnProperty(r))n.push(e[r]);n.sort(function(e,t){if(e.lang>t.lang)return 1;if(e.lang<t.lang)return-1;return 0});for(var i=0;i<n.length;++i){var s=$("#language-template").html();var r=n[i];s=s.replace("{{LANGUAGE}}",r.lang).replace("{{NAME}}",r.user).replace("{{SIZE}}",r.size).replace("{{LINK}}",r.link);s=$(s);$("#languages").append(s)}}var QUESTION_ID=42079;var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";var answers=[],page=1;getAnswers();var SIZE_REG=/\d+(?=[^\d&]*(?:&lt;(?:s&gt;[^&]*&lt;\/s&gt;|[^&]+&gt;)[^\d&]*)*$)/;var NUMBER_REG=/\d+/;var LANGUAGE_REG=/^#*\s*([^,]+)/

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src=https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js></script><link rel=stylesheet type=text/css href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id=answer-list><h2>Leaderboard</h2><table class=answer-list><thead><tr><td></td><td>Author<td>Language<td>Size<tbody id=answers></table></div><div id=language-list><h2>Winners by Language</h2><table class=language-list><thead><tr><td>Language<td>User<td>Score<tbody id=languages></table></div><table style=display:none><tbody id=answer-template><tr><td>{{PLACE}}</td><td>{{NAME}}<td>{{LANGUAGE}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table><table style=display:none><tbody id=language-template><tr><td>{{LANGUAGE}}<td>{{NAME}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table>

GolfScript, 10 9 byte

~{0]$1=}*

Mengasumsikan input dari stdin dalam format [-4 -2 -3 -2]

Ini menggunakan fungsi sortir built-in $, tetapi setiap kali dipanggil itu pada array 3 elemen, yang diizinkan.

Demo online

Mathematica, 19 byte

Median[#~Riffle~0]&

Kode dan golf berkat Martin Büttner.

Ini adalah fungsi murni tanpa nama yang mengambil dalam daftar bilangan bulat sebagai input. Meminta itu seperti

Median[#~Riffle~0]&[{-2, -3, -2, -4}]

atau disimpan serupa ke variabel.

Kode pertama riffles nol di antara setiap dua elemen dari daftar input, yang menyisipkan n-1nol di antara nelemen. Kemudian, dibutuhkan median untuk menghasilkan jawaban.

Ini memberikan min-mod karena menangani setiap kasus:

1. Semua angka positif, dalam hal ini nol di bawahnya dan median adalah angka positif terendah.

2. Semua angka negatif, dalam hal ini nol di atas mereka dan median adalah angka paling negatif.

3. Ada angka positif dan negatif, dan elemen tengahnya adalah nol.

Jika Mathematica mengimplementasikan mediannya menggunakan algoritma seleksi linear-waktu , maka ini juga O (n).

Haskell, 62 61 39 38 37 byte

f s=last[x|x<-0:s,and[x*x<=x*y|y<-s]]

menggunakan beberapa perbandingan sihir yang dipinjam dari jawaban @ Zgarb *, yaitu x*x<=x*y,.

x*x<=x*ybenar hanya ketika xdan ymemiliki tanda yang sama dan ynilai absolut lebih besar. dicatat bahwa ketika xadalah 0selalu benar.

kami menentukan bahwa xini adalah hasil jika terkandung dalam s, dan bahwa untuk semua ydalam s xmemiliki tanda yang sama ydan lebih kecil dalam nilai absolut. jika tidak ada nilai dalam smemenuhi definisi ini, maka 0hasilnya.

fkemudian bekerja dengan mencari selemen untuk memenuhi ini, dan menggunakan 0sebagai default.

_{* Meskipun dia tidak menggunakannya karena alasan saya menggunakannya, dan dia benar-benar menyingkirkannya sekarang}

JavaScript (ES6), 39 byte

a=>a.reduce((p,c)=>p*c>0?p*p>c*c?c:p:0)

Python 2, 53

lambda l:reduce(lambda a,b:sorted([a,b,0])[1],l,l[0])

Idenya adalah menggunakan reduceuntuk mengubah min-mod finder dua-input menjadi n-input satu. Saya datang dengan itu secara independen dari jawaban lain yang menggunakannya. Hanya Python 2 yang mendukung reduce.

Solusi dua input hanya menemukan median dari dua angka dan nol. Lihat jawaban Mathematica saya untuk cara yang lebih langsung untuk menggunakan median.

Kurang bermain golf:

def f(l):
 A=l[0]
 for x in l:A=sorted([a,b,0])[1]
 return A

Gabungan hipotetis Python 2 dan Python 3 akan menjadi karakter yang lebih pendek, dengan penugasan berbintang dari Python 3 dan input()dan printdari Python 2.

#Not real code!
A,*l=input()
for x in l:A=sorted([A,x,0])[1]
print A

Kode lama, tanpa mengurutkan:

lambda l:reduce(lambda a,b:[a,b][a*a>b*b]*(a*b>0),l,l[0])

Marbelous, 210 byte

@0
00
]]\\&002
/\..//&0@0
00..02
MMMMMM//\\
:M
}0}1}0}1}0}1}0}2..}2
^7^7||||&0&1&4<3&0=2{>
EqalLteq{0{<{<<2&1--
&2..&3..}100..&2\/{>
>0&6=0&4&5&6..\/
&3..&5\/{<{0
\/..\/
:|
}000}0
&0Subt
{0&1
}0{0
^7
=0&1
&0
\/

Ada tiga papan yang digunakan di sini.

The |setrika ( Abdalam versi dibaca) mengambil nilai absolut dari kelereng (baik oleh mengembalikan marmer lulus atau nol minus marmer berlalu, karena semua aritmatika di Marbelous adalah unsigned).

The Msetrika ( Minabsdalam versi dibaca) temuan dan output ke kiri baik pertama atau kedua marmer lulus (mana memiliki nilai absolut yang lebih kecil), dan keluar jika marmer ditandatangani berbeda dilewatkan.

The Mpapan juga melepaskan marmer itu memegang bawah bukan ke kiri setelah karakter terakhir dari STDIN diambil.

The Mpapan digunakan dalam papan utama untuk menyimpan minmod dari semua nilai diperiksa pada waktu tertentu, karena melepaskan nilai yang akan disimpan ke kiri, yang kemudian dibelokkan kembali.

Tempat sampah ( \/) hanya ditempatkan di bawah penyinkron yang akan mencetak ke STDIN.

Input / Output menggunakan STDIN / STDOUT. Keduanya berurusan dengan nilai 8-bit (jika Anda ingin memberikan + 0x30 dan + 0x38, masukkan 08ke dalam STDIN).

Perpustakaan dan papan silindris keduanya diperlukan. Dianjurkan untuk melihat output sebagai angka desimal (perhatikan bahwa ini menampilkan nilai yang tidak ditandai dari hasil minmod).

Uji di sini.

Catatan: Untuk input / output yang lebih ramah manusia, tambahkan di Dpbawah baris terakhir papan utama (sebelumnya :M), ganti ]]dengan Rd, dan tambahkan yang berikut di bagian bawah:

:Rd
}0}0}0
]]]]]]{>
-O-O-O
-O-O-O
*A
Plus
\\*A
..Plus
..{0
:*A
}0}0
<<<<
<<
<<
Plus
{0

Ini hanya mengubah output menjadi 3 angka desimal. Demikian juga, input dengan perubahan ini membutuhkan daftar yang dipisahkan spasi 3 digit desimal per angka.

Versi yang Dapat Dibaca:

Haskell, 83 40 39 byte

Ini mungkin bukan solusi Haskell sesingkat mungkin (dan tentu saja tidak akan mengalahkan yang lain di sini), tapi ini awal. EDIT: Sekarang lebih dari 50% lebih pendek! EDIT2: Satu byte lebih sedikit ...

a#b|a*b<0=0|a*a<b*b=a|1<2=b
m=foldr1(#)

Ini hanya lipatan langsung (atau kurangi, seperti beberapa bahasa menyebutnya) oleh operator biner #, yang menghitung median dari a, bdan 0. Meskipun aturan sekarang memungkinkan saya untuk mengurutkan daftar kecil, ini membutuhkan impor di Haskell dan menghasilkan jumlah byte yang lebih tinggi ( 49 byte, tetapi 31 tanpa impor):

import Data.List
a#b=sort[a,b,0]!!1
m=foldr1(#)

TIS-100, 696 526 byte

@1
MOV UP ACC
SAV
ADD 999
JEZ A
SWP
MOV 1 ANY
MOV ACC ANY
JRO -7
A:MOV 12 ANY
@5
S:JRO UP
MOV UP ACC
JLZ A
JEZ B
MOV 1 DOWN
JMP B
A:MOV 7 DOWN
NEG
B:MOV 1 RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
JMP S
MOV 14 DOWN
MOV 9 RIGHT
@6
MOV 999 ACC
L:JRO LEFT
SAV
SUB ANY
JGZ A
MOV ANY NIL
SWP
JMP L
A:MOV ANY ACC
JMP L
MOV ACC ANY
@9
S:JRO UP
JEZ A
SUB 1
JEZ A
JMP X
A:MOV 1 ACC
JMP S
JEZ B
SUB 2
JEZ B
X:MOV 6 ACC
JMP S
B:MOV 2 ACC
JMP S
MOV ACC ANY
@10
MOV LEFT ACC
ADD 1
JRO ACC
JRO 6
MOV UP ANY
MOV UP ACC
NEG
MOV ACC ANY
!NOP
MOV 0 ANY

Berharap urutan diakhiri oleh -999. TIS-100 lebih baru dari pertanyaan ini, tapi bukan itu yang penting di sini.

Node 9 melacak apakah kita semua positif, semua negatif atau campuran. Node 5 dan 6 berfungsi untuk menemukan nilai absolut minimum dari semua angka input. Node 10 kemudian memilih minimum, negasi minimum, atau 0 tergantung pada keadaan node 9.

CJam, 20 byte (atau 10 byte)

q~{]__~z\z<=\~*0>*}*

Menggunakan pendekatan @ xnor, kurangi kalkulasi minmod dari 2 angka sekaligus dari array.

Ini akan menjadi 19 byte jika :zberhasil

Menggunakan aturan baru menggunakan macam pada array pendek:

q~{0]$1=}*

yang persis sama dengan jawaban @ Peter

Asnwer 26 byte sebelumnya:

q~_{g}%_|:+\(z\{za+_~>=}/*

Ini bisa bermain golf lebih lanjut ...

Input (via STDIN) adalah array integer seperti:

[-4 -2 -3 -2]

dan output adalah minmod dari array input

Coba di sini

Jika saja :gdan :zberfungsi, ini akan menjadi 4 byte lebih pendek.

Java, 84 byte

Ini adalah Java dengan segala kemuliaannya. Mengalahkan GolfScript dengan faktor sedikit di atas 900%.

int f(int[]a){int b=a[0],c;for(int d:a)b=(c=d<0?-1:1)*b<0?0:d*c<b*c?d:b;return b;}

Dibungkus dalam kelas:

public class MinModGolfed{

    public static void main(String[] args){
        int[] numbers = new int[args.length];
        for (int i = 0; i < args.length; i++){
            numbers[i] = Integer.parseInt(args[i]);
        }
        System.out.println(new MinModGolfed().f(numbers));
    }

    int f(int[]a){int b=a[0],c;for(int d:a)b=(c=d<0?-1:1)*b<0?0:d*c<b*c?d:b;return b;}

}

Diperluas dengan komentar:

public class MinModExpandedGolfed{

    public static void main(String[] args){
        int[] numbers = new int[args.length];
        for (int i = 0; i < args.length; i++){
            numbers[i] = Integer.parseInt(args[i]);
        }
        System.out.println(new MinModExpandedGolfed().f(numbers));
    }

    int f(int[]a){                  //a is the input numbers
        int b=a[0],c;             //b is the best number found so far.
        for(int d:a)               //Iterate over a with current element as d.
            b=(c=d<0?-1:1)         //c is equal to the sign of d.
                    *b<0?
                        0:          //If b has opposite sign of d, b = 0.
                        d*c<b*c?d:b;//If the absolute value of d is less than b, b = d. 
        return b;
    }

}

Catatan: Ini dapat ditingkatkan menggunakan Java 8.

Catatan: Upaya untuk meningkatkan di Java 8 gagal.

J, 20 12 byte

Berfungsi mengambil daftar sebagai argumen. Dicuri dari Skrip Golf / CJam / apa pun.

(1{0/:~@,,)/

Minmod dari xdan yadalah median (urutkan /:~dan ambil tengah 1{) dari daftar tiga item 0,x,y. Kurangi daftar ( lipat dalam bahasa J) dengan mengambil minmod ini antara elemen yang berdekatan.

Digunakan di REPL. (J mengeja tanda negatifnya _.)

   (1{0/:~@,,)/ _4 _2 _3 _2
_2
   f =: (1{0/:~@,,)/    NB. give it a name
   f 1 1 2
1
   f 0 1 2
0
   f _1 1 2
0

Sampah lama, sebelum saya perhatikan jenis-jenis pendek diperbolehkan: 0:`<.`>.@.(*@]*0<*))/minmod dari xdan y0 ( 0:) jika 0 lebih besar atau sama dengan produk dari xdan y, selain itu min ( <.) atau maks ( >.) antara xdan ytergantung pada tanda . Lipat ini di seluruh daftar.

TI-BASIC, 19 byte

Mengasumsikan input dalam format {-2,4,3}.

Bekerja mirip dengan jawaban xnor:

Input L₁              get user input into the L1 array
dim(L₁)2-1→dim(L₁     get the length of the array; multiply by 2 and subtract 1
                      make this the new length (new elements always default to 0)
median(L₁             calculate and return (since it's the last line) median of new array

Python 2, 82 79 71 69 61 byte

lambda l:reduce(lambda G,H:[H,G][(G>H)^(G>0)]*(G*H>0),l,l[0])

Ini didasarkan pada jawaban saya, yang terinspirasi oleh jawaban Mig .

Jawaban lama:

l=input()
m=l[0]
k=1-2*(m<0)
for i in l:m=[m,i][m>i*k]
print(k*m>0)*m

Ini jawaban yang sangat panjang. Saya merasa seperti memiliki 2 variabel adalah pemborosan ...? Saya benar...? ish? ; p

KDB / Q, 43 karakter untuk definisi fungsi tubuh

Berkat ide-ide bagus dari posting sebelumnya:

f:{$[all 1_0<(*':)x;{$[<[x*x;y*y];x;y]}/[x];0]}

Masukkan nomor tunggal menggunakan daftar

f[enlist 2]
f[enlist 0]
f[enlist -2]
f[2 4 1]
f[0 1 2]
f[1 0 2]
f[-1 1 2]
f[-4 -2 -3 -2]
f[-5 0 -1]
f[-5 -0 -1]
f[1 0 -1]

Saya yakin beberapa guru Q dapat membuat yang lebih pendek.

Pyth, 25 22 20 12

uhtS[0GH)QhQ

Mungkin bukan novel, tetapi asli: P

Pre-sorting diperbolehkan

u*?Gx>GH>G0H>*GHZQhQ

Pyth

Cobalah online.

Ide untuk menggunakan reducedan pernyataan ternary dicuri dari jawaban Mig tanpa malu-malu , tapi saya tidak tahu apakah algoritma ini bahkan serupa, karena saya tidak bisa membaca pernyataan ternary.

Penjelasan:

Q=eval(input)         : implicit
u                QhQ  : print reduce(lambda G,H: ..., Q, Q[0])
 *          >*GHZ     : ... * (G*H>0)
  ?G       H          : G if ... else H
    x>GH>G0           : G>H xor G>0

C #, 101 byte

Percobaan pertama saya di golf kode dan dalam bahasa bermusuhan golf cantik. Berdasarkan pengurangan ( Aggregatedalam LINQ) dan sangat mirip dengan jawaban JavaScript oleh Mig . Dapat dijalankan seperti (new System.Linq.M()).m(new[] {1, 2, 3}). Lewati semua kasus uji, tetapi tidak menangani array input kosong.

namespace System.Linq{class M{public int m(int[]i){return i.Aggregate((a,b)=>a*b>0?a*a<b*b?a:b:0);}}}

J, 12 byte

   (=&**>&|{,)/

Fungsi ini mengurangi daftar (disebut lipat ( /) dalam J) dengan ekspresi:

(signum(x) == signum(y)) * [x,y][abs(x)>abs(y)] dimana

[x,y][abs(x)>abs(y)]adalah yjika abs(x) > abs(y)yang lainx .

Contoh:

   (=&**>&|{,)/ 5 2 6
2

Cobalah online di sini.

Bahasa Game Maker, 489 byte

Tentang Bahasa Pembuat Game

Riffles the array (nol ditambahkan) dan mengembalikan median (mirip dengan jawaban saya yang lain)

i=0a=argument0
while(variable_local_array_get(a,i))i++
for(j=0;j++;j<i-1)a[j+i]=0var i,j,d,m=0d=ds_list_create()if variable_local_exists(a){if variable_local_array_get(a,0){for(i=0;i<32000;i++){if variable_local_array_get(a,i)=0break
ds_list_add(d,variable_local_array_get(a,i))}ds_list_sort(d,0)i=ds_list_find_value(d,ds_list_size(d) div 2)j=ds_list_find_value(d,(ds_list_size(d) div 2)-1)m=ds_list_find_value(ds,ds_list_size(d) mod 2)ds_list_destroy(d)}if m return (i+j)/2return i
break}

Java, 353 304 124 byte

Kumpulkan bahasa terburuk untuk golf kode dengan pegolf terburuk di dunia dan Anda ...

int m(int[]a){int m=a[0];if(m<0)for(int i:a){m=(i>m)?i:m;m=(i>0)?0:m;}else for(int i:a){m=(i<m)?i:m;m=(i<0)?0:m;}return m;}}

Lepaskan ikatannya dan Anda mendapatkan:

int m(int[] a) {
    int m = a[0];
    if (m < 0) {
        for (int i : a) {
            m = (i > m) ? i : m;
            m = (i > 0) ? 0 : m;
        }
    } else {
        for (int i : a) {
            m = (i < m) ? i : m;
            m = (i < 0) ? 0 : m;
        }
    }
    return m;
}

Ini adalah fungsi (jika tidak cukup jelas) yang menerima array angka dan memproses nilainya, mengembalikan nilai minmod.

Benemoth lama saya tentang solusi juga termasuk, yang merupakan keseluruhan program - seperti biasa.

class M{public static void main(String[]a){java.util.Scanner s=new java.util.Scanner(System.in);int n,m=0;try{m=s.nextInt();if(m<0)while(true){n=s.nextInt();m=(n>m)?n:m;m=(n>0)?0:m;}else while(true){n=s.nextInt();m=(n<m)?n:m;m=(n<0)?0:m;}}catch(java.util.InputMismatchException e){System.out.print(m);}}}

Lepaskan ikatannya dan Anda mendapatkan:

class M {

    public static void main(String[] a) {
        java.util.Scanner s = new java.util.Scanner(System.in);
        int n = 0, m = 0;
        try {
            m = s.nextInt();
            if (m < 0) {
                do {
                    n = s.nextInt();
                    m = (n > m) ? n : m;
                    m = (n > 0) ? 0 : m;
                } while (true);
            } else {
                do {
                    n = s.nextInt();
                    m = (n < m) ? n : m;
                    m = (n < 0) ? 0 : m;
                } while (true);
            }
        } catch (java.util.InputMismatchException e) {
            System.out.print(m);
        }
    }
}

Menerima angka tak terbatas, berhenti ketika nilai bukan angka dimasukkan, menyajikan nilai Minmon.

R, 20 karakter

R biasanya tidak baik untuk codegolf, tetapi saya menggunakannya untuk pekerjaan saya, jadi saya ingin mencoba. Sebelum saya mencoba, saya tidak tahu bahwa R bersedia menerima sintaks yang kotor! :-) 52 karakter :

if((q=summary(x))[6]<0)q[6]else if(q[1]>0)q[1]else 0

Kemudian saya melihat jawaban lain yang saya coba trik median genial @ xnor, yang bagus!

median(c(x-x,x)[-1])

Python, 52

Saya masih tidak dapat menahan perasaan bahwa memiliki dua lambdas itu buruk . Fungsi ini mengambil daftar dan kemudian mengembalikan daftar satu elemen yang berisi hasilnya.

f=lambda a:a[1:]and[sorted([a.pop(),0]+f(a))[1]]or a

Mudah-mudahan, itu tidak akan menyebabkan sejumlah besar pelanggaran memiliki hasil dalam daftar satu elemen.

Matlab / Oktaf, 26

Ini pada dasarnya hanya terjemahan dari jawaban Mathematica oleh xnor. Ia bekerja dengan menambahkan satu nol kurang dari panjang vektor input. Perhatikan bahwa menambahkan satu lagi tidak akan berhasil, karena hasilnya akan menjadi 0 sepanjang waktu. Terima kasih kepada MartinBüttner untuk -4 karakter dari solusi ini =)

@(x)median([x,0*x(2:end)])

Python, 72 60 byte

Ini adalah solusi pertama yang saya pikirkan, dan itu cukup naif. Babak kedua pada dasarnya merupakan duplikat dari bagian pertama dari kode, tetapi saya tidak yakin bagaimana cara melangsingkannya. Saya ingin tahu apakah itu bisa disingkat menggunakaneval ...

Sunting: Mengubah lambdas ke pemahaman.

Coba di sini

lambda l:min(l)*all(x>0for x in l)+max(l)*all(x<0for x in l)

Ini hanya 4 karakter lagi, tetapi masih layak dilihat, menggunakan TIP Sp3000 .

lambda l:eval("+m%s%s(l)*all(x%s0for x in l)"*2%tuple("ax<in>"))

Javascript, 63

a=>a.reduce((p,c)=>p<0?c<0?Math.max(p,c):0:c>0?Math.min(p,c):0)

Versi yang lebih mudah dibaca:

function (arr) {
    return arr.reduce(function (p, c) {
        if (p < 0) {
            if (c < 0) {
                return Math.max(p, c);
            } else {
                return 0;
            }
        } else {
            if (c > 0) {
                return Math.min(p, c);
            } else {
                return 0;
            }
        }
    });
}