giriş

Bir arkadaş bugün bu soruyu biraz farklı bir şekilde ortaya koydu: "Tek bir [Python] komutu bazı tamsayıların en büyüğünü VE eşit olmadıklarını belirleyebilir mi?".

Biz bunu "tek bir komut" makul tanımları içinde yapmak için bir yol bulamadı , ama ben golf için eğlenceli bir sorun olabilir düşündüm.

 Meydan okuma

" Tamsayılar listesinin büyük Return eğer-ve-only-eğer hepsi eşit değildir. "

Daha spesifik olarak:

Yalnızca virgülle ayrılmış bir tam sayı listesi içeren bir dize verildiğinde:

• Eğer hepsi eşitse, hiçbir şey döndürmez / vermez
• Başka, en büyük dönüş / çıkış

kurallar

• Giriş tamsayılar yalnızca virgülle ayrılmış listesini içeren bir dize olmalıdır
• Çıktı o girişindeyken olarak temsil girişten da bir şey (hiçbir tür çıkış), ya da başka büyük elemanı olmalıdır

Girişleri test etmek için bir yol sağlamanız şartıyla, tam bir program veya sadece bir işlev olabilir!

Varsayımlar

• Giriş listesi öğelerinin birden fazla basamak olabileceğini, ancak (2 ^32-1 )
• Giriş listesinde bir milyondan fazla öğe bulunmadığını varsayalım
• Girdinin negatif değerler içermeyeceğini varsayın
• Girişin asla boş kalmayacağını varsayalım

^{Şüpheye yer bırakmamak için, "Daha spesifik olarak" ifadesinden hemen sonra verilen mücadelenin açıklaması, üstündeki mücadelenin ifadesini geçersiz kılar ("En büyüğü döndür ...").}

 Örnekler

(1) Hepsi eşit:

Input: 1,1
Output:

(2) Farklı:

Input: 1,2
Output: 2

(3) Sıfır !:

Input: 0,0,0,0,0,0,0,1,0,0
Output: 1

(4) Rastgele:

Input: 7,3,8,4,8,3,9,4,6,1,3,7,5
Output: 9

(5) Büyük numaralar, büyük liste:

Input: 627,3894,863,5195,7789,5269,8887,3262,1448,3192
Output: 8887

Ek örnekler:

(6) Hepsi eşit, daha büyük liste:

Input: 7,7,7,7,7,7,7,7,7
Output:

(7) Tüm eşit, büyük liste, büyük sayılar:

Input: 61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976,61976
Output:

(8) Eşit değil, daha büyük liste, daha büyük sayılar:

Input: 96185,482754,96185,96185,96185,96185,96185,96185,7,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,96185,961185,96185,96185,96185
Output: 961185

puanlama

Bu, code-golfen az sayıda bayt içeren kod kazanır!

R , 50 37 bayt

DigEmAll sayesinde -33 bayt! -13 bayt sayesinde rturnbull!

x=scan(se=",");if(any(diff(x)))max(x)

Çevrimiçi deneyin!

MathGolf , 5 bayt

è▀s╞╙

Çevrimiçi deneyin!

açıklama

è      Read whole input as int array
 ▀     Get unique elements
  s    Sort list
   ╞   Discard from left of array
    ╙  Get maximum of list

Bu, hem maksimum operatör hem de sol operatörden atılan boş listeler için hiçbir şey yapmadığı için çalışır. Maksimum operatör listeyi kaldırır ve boş listeler için hiçbir şey zorlamaz.

Giriş bir liste olarak alınabiliyorsa 4 bayt olabilir.

Perl 6 , 26 23 22 bayt

Nwellnhof sayesinde -1 bayt

{.max if .Set>1}o&EVAL

Çevrimiçi deneyin!

Her şey eşitse boş bir fiş döndürür.

açıklama

                o&EVAL  # Eval the string to a list of integers
{              }         # Pass to code block
 .max            # Return the max
      if .Set>1  # If the list converted to a set has more than one element

Jöle , 4 bayt

ḟṀE?

Girdiyi gerekli çıktıyı yazdıran komut satırı bağımsız değişkeni (sıralanmamış) olarak kabul eden tam bir program

(Şununla ilgili olduğunu unutmayın: boş giriş gibi , tek öğe girişi gibi 7ve özellik gibi çoklu öğe girişi 7,8,7şu anda gerektiriyor gibi görünüyor.)

Çevrimiçi deneyin!

Nasıl?

ḟṀE? - Full program: if one argument is present it is evaluated using Python
     -                 so 7,8,7 -> [7,8,7], while 7 -> 7
ḟṀE? - Main Link: list or integer OR no argument (in which case an implicit argument of 0)
   ? - if...
  E  - ...condition: all equal? (for any integer E yields 1 since the argument is
     -                           treated as a list like [integer])
ḟ    - ...then: filter discard (since it's undefined the right argument is implicitly 
     -                          equal to the left; both are treated as lists, so this
     -                          yields an empty list)
 Ṁ   - ...else: maximum (again an integer is treated as a list)
     - implicit print (Jelly's representation of an empty list is an empty string
     -                 furthermore no newline is printed in either case)

APL (Dyalog Klasik) , 6 bayt

⍪⌈/~⌊/

Çevrimiçi deneyin!

Bir tren maksimum (işlem ⌈/olmadan) ( ~) sülyeni (⌊/ ) matrise dönüştü (⍪ ) )

giriş yalnızca bir ayrı öğe içeriyorsa, ⌈/~⌊/ boş olur ve⍪ hiçbir şey oluşturmayan 0 × 1 matris döndürür

aksi takdirde, ⌈/~⌊/1 elementli bir vektör ⍪olacak ve maksimum içeren 1x1 matris (skalerden görsel olarak ayırt edilemez) olacaktır.

CJam , 16 13 bayt

q',/:iL|$1>W>

Çevrimiçi deneyin!

Python 2 , 37 bayt

stderr çıkışları (tio'da hata ayıklama).

a=input();m=max(a);m>min(a)>exit(`m`)

Çevrimiçi deneyin!

Python 2 , 42 41 bayt

a=input();print('',max(a))[len(set(a))>1]

Çevrimiçi deneyin!

Haskell , 77 75 61 bayt

f.read.('[':).(++"]")    
f a=[0|any(/=a!!0+0)a]>>show(maximum a)

Çevrimiçi deneyin!

('[':).(++"]")bir dize (örn. "1,2,1,3") alır ve bunu parantez karakterleri ( "[1,2,1,3]") içine alır . Sonra readdizeyi bir tamsayılar ( [1,2,1,3]) listesine dönüştürür .

Fonksiyon fkullanırSonuçlardan biri boş liste ise bu ipucunu daha kısa koşullu olarak . any(/=a!!0+0)alistenin ailk öğesine eşit olmayan herhangi bir öğe içerip içermediğini kontrol eder a!!0. (Bir sayı listesi araması +0gerektiğini bilecek şekilde gereklidir read.) Tüm öğeler eşitse bu test sonuçları ortaya çıkar Falseve boş dize döndürülür. Aksi takdirde show(maximum a), bir dizeye dönüştürülen listenin maksimum değeri döndürülür.

Kırmızı, 81 bayt

x: split input","forall x[x/1: load x/1]sort x: unique x if 1 <>length? x[last x]

R çözümü gibi, kodun büyük bir kısmı "1,1,2,44,1" giriş dizesini işliyor. Bunu bir blok olarak alabilirsek, örneğin: x: [1 1 2 44 1]41 baytta yapabiliriz:

sort x: unique x if 1 <>length? x[last x]

APL (Dyalog Unicode) , 12 bayt

Tam program. Stdin'den dize ister.

{1≠≢∪⍵:⌈/⍵}⎕

Çevrimiçi deneyin!

⎕ ifadeyi isteme ve değerlendirme (virgül, sayıları bir liste halinde birleştirir)

{… } Aşağıdaki anonim lambda'yı uygulayın ( ⍵argüman; sayı listesi):

 1≠ [1] 1'den farklıysa ...

 ≢ ...

 ∪ benzersiz sayılar…

 ⍵ liste

 : sonra

 ⌈/ maksimum değeri geri döndür (lit.max azaltma)…

 ⍵ liste

 [başka: hiçbir şey yapma]

JavaScript (Node.js) , 49/53 bayt

Orijinal sürümüm .every() , 53 bayt

'' Döndüren bir işlev çıktı yok mu? Elbette bu geliştirilebilir ...

s=>(a=s.split`,`).every(e=>a[0]==e)?'':Math.max(...a)

Çevrimiçi deneyin!

ShaggySet() tarafından geliştirilmiş sürüm , 49 bayt

s=>new Set(a=s.split`,`).size>1?Math.max(...a):``

Çevrimiçi deneyin!

Neim , 4 bayt

𝐐𝐎Ξ𝐠

Açıklama:

  Ξ   If
𝐐    all elements are equal
  𝐎  not
      then
   𝐠  get greatest element

Çevrimiçi deneyin!

Oktav , 28 bayt

Maksimum (1x1 matrisi olan bir sayı) veya boş (1x0) matrisi döndürür.

@(a)max(a)(1+all(a(1)==a):1)

Çevrimiçi deneyin!

Japt, 16 bayt

Gereksiz derecede katı giriş formatı için değilse bu 9, bir hata atma 7 hiçbir şey çıktı olarak sayılmaz.

Dizenin en az 2 tamsayı içerdiğini varsayar.

q, mn
â ÊÉ?Urw:P

Dene

Ortak Lisp, 102 bayt

(lambda(x &aux(c(read-from-string(concatenate'string"#.`("x")"))))(or(apply'= c)(princ(apply'max c))))

Çevrimiçi deneyin!

Boyut esas olarak verilerin girilmesinden kaynaklanmaktadır; normal bir liste olarak girdi ile uzunluk 46 bayta düşer:

(lambda(x)(or(apply'= x)(princ(apply'max x))))

XPath 3.1, 54 bayt

bağlam öğesi olarak giriş dizesiyle:

let$t:=tokenize(.,',')!xs:int(.)return max($t)[$t!=$t]

Bağlamın XML şeması ad alanına "xs" den daha kısa bir önek bağlamasına izin verirseniz bir karakter azaltılabilir.

Açıklama: giriş dizesini alır, "," ayırıcıda tokenleştirir, xs:int()bir tamsayıya dönüştürmek için her jetona uygulanır , dizinin maksimumunu hesaplar, yüklemin $t!=$tdoğru olması koşuluyla maks . A ve B diziler A!=Bise, bir çift öğe varsa (A'dan A, B'den B'ye) doğrudur.a!=b .

Giriş, virgülle ayrılmış bir dize yerine $ s tamsayılar dizisi olarak sağlanabilirse, çözüm

max($s)[$s!=$s]

(15 bayt - kısaca amaç için tasarlanmamış bir dilde en kısa çözüm olabilir)

NOT : Bu, "girişte olduğu gibi temsil edilen" gereksinimini karşılamaz - girişte önde gelen sıfır veya tam artı işareti olan bir tamsayı varsa bunlar kaybolur. Bunun diğer birçok çözüm için de geçerli olduğundan şüpheleniyorum.

K4 , 38 35 bayt

{$[1=#:t:?:(7h$","\:x)-48;;*:t@>t]}

Test Durumları:

q)k){$[1=#:t:?:(7h$","\:x)-48;;*:t@>t]}"1,2,4,4"
,4
q)k){$[1=#:t:?:(7h$","\:x)-48;;*:t@>t]}"4,4,4,4"
q)
q)k){$[1=#:t:?:(7h$","\:x)-48;;*:t@>t]}"7,3,8,4,8,3,9,4,6,1,3,7,5"
,9
q)k){$[1=#:t:?:(7h$","\:x)-48;;*:t@>t]}"7,7,7,7,7,7,7,7,7,7,7,7,7"
q)

TiO'da bulunan k varyantlarının hiçbirinde çok akıcı değilim, bu yüzden çevrimiçi bir örnek yok, bir tane bulmaya çalışacağım

açıklama

Belirli işlemlerin neden diğerlerinden önce gerçekleştirildiğini merak ediyorsanız, K4'ün operatör önceliği yoktur, bunun yerine sağdan sola yorumlar (öncelik için parantez kullanabilirsiniz). Noktalı virgülle ayrılmış ifadeler.

   $[expr;`True;`False] is the conditional format

{$[1=#:t:?:(7h$","\:x)-48;;*:t@>t]}
               ","\:x                 //split string on commas
            7h$                       //cast strings to long
                      -48             //they'll be from ascii format, so compensate
         ?:                           //get distinct list      
       t:                             //set list to variable t        
     #:                               //get count of t
   1=                                 //check if count t = 1
                         ;;           //return nothing if true
                             t@>t  //if false, sort t descending
                           *:         //return first value

Muhtemelen daha fazla golf edilebilir, sonunda bu geçici max işlevini kullanmak zorunda değilsiniz.

EDIT: Çıktı virgül sorun varsa, iki bayt ile düzeltilebilir:

q)k){$[1=#:t:?:(7h$","\:x)-48;;*:,/t@>t]}"1,2,4,4"
4
                                 ,/                 //joins the single element lists into one

Toplamı 40 37'ye çıkarmak , ancak sayıdan önceki virgül, bir atomun aksine tek bir öğe listesi olduğu anlamına gelir.

PHP (<= 5.6) 64 74 bayt

 echo array_count_values($a=split(',',$argn))[$m=max($a)]==count($a)?'':$m;

Boru olarak çalıştırın -nRveya test edin çevrimiçi

splitPHP7'de kaldırıldı, ancak birkaç sorunu düzeltmek için 10 eklemek zorunda kaldığım için explode, bu durumda kabaca eşdeğer olan kullanmaya değdi .

Japt -hF , 8 bayt

q, ün Åc

Dene

-3 girdi bir dizi olarak alınabiliyorsa bayt.

05AB1E , 9 8 bayt

',¡ZsËiõ

@Cowabunghole sayesinde -1 bayt .

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

',¡        '# Split the (implicit) input by ","
   Z        # Push the maximum (without popping the list)
    s       # Swap so the list is at the top of the stack again
     Ëi     # If all elements are equal:
       õ    #  Push an empty string ""
            # (Implicitly output the top of the stack to STDOUT as result)

Python 2 , 44 bayt

k=eval(input())
if~-len(set(k)):print max(k)

Çevrimiçi deneyin!

Ohm v2 , 9 bayt

Ul1E?Oq¿↑

Çevrimiçi deneyin! Açıklama:

Ul1E?Oq¿↑
U         Uniquify input
 l        Get length
  1E      Push whether length is equak to 1
    ?Oq   If so immediately quit
       ¿↑ Else print maximum

Kömür , 15 bayt

≔Ｉ⪪Ｓ,θ¿›⌈θ⌊θＩ⌈θ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

≔Ｉ⪪Ｓ,θ

Girdileri virgülle ayırın ve her değeri tamsayıya yayınlayın.

¿›⌈θ⌊θ

Maksimum değerin minimum değerden büyük olup olmadığını test edin.

Ｉ⌈θ

Öyleyse, maksimum değeri dizgiye yazdırın ve yazdırın.

Mathematica, 43 bayt

If[!Equal@@#,Max@#]&@@#~ImportString~"CSV"&

Saf fonksiyon. Girdi olarak virgülle ayrılmış bir dize alır ve bir sayı veya döndürür Null. NullGrafiksel olarak görüntülenmediği için bunun geçerli olduğuna inanıyorum :

C (gcc) , 91 bayt

M(s)char*s;{long m=atol(s),o,l=0;for(;s=strchr(s,44);o<0?m-=o:0)l|=o=m-atol(++s);s=l?m:-1;}

Çevrimiçi deneyin!

Degolf

M(s)char*s;{
    long m=atol(s),o,l=0; // Read the first integer from string
    for(;s=strchr(s,44); // Advance pointer to next ','
           o<0?m-=o:0) // End of loop: if difference <0, deduct from max, increasing it to new max.
        l|=o=m-atol(++s); // Read next number, and subtract it from current max. 
                          // Bitwise-OR the difference into the l-variable
    s=l?m:-1; // End of function: if l is non-zero, there were at least two different values.
              // Return -1 if l is zero, otherwise the max value.
}

Pyth, 7 bayt

Itl{QeS

Çevrimiçi deneyin!
Tüm test senaryoları (daha iyi çıktı biçimlendirmesi için biraz farklı kod)

Pyth, Python'a dayandığından, kullanıcı girişi her zaman bir dize olarak yorumlanır ve bu daha sonra geçirilebilir eval(). Tüm Pyth programları otomatik olarak çalışırQ=eval(input()) olarak ilk talimatları .

Itl{QeS  | Full code
Itl{QeSQ | with implicit variables filled
---------+-------------------------------
I        | If
 t       | one less than
  l      | the length of
   {Q    | the deduplicated input
         | is truthy (!=0),
         | print
     e   | the last element of
      SQ | the sorted input

Java (JDK) , 101 bayt

d->{long m=0,c=-1,b;for(var s:d.split(",")){b=new Long(s);c=c<0|c==b?b:0;m=b>m?b:m;}return c>0?"":m;}

Çevrimiçi deneyin!

Açıklaması

d->{                            // Function taking a String input
    long m=0,c=-1,b;            // Initialise variables
    for(var s:d.split(",")){    // Split by comma and loop over elements
        b=new Long(s);          // Parse String to Long
        c=c<0                   // If c<0 (i.e. this is the first element)
            |c==b               // ...or c is equal to the current element
            ?b                  // Set c to the current element (all elements are the same so far
            :0;                 // Otherwise set c to zero to denote that list is not all same element  
        m=b>m?b:m;              // Set m to max of b and m
    }
    return c>0?""               // If c is not zero then all elements are the same, return nothing
                 :m;            // Else return max element
}

Bonus çözümü!

En iyi çabalarıma rağmen regex ve Streams kullanarak 105 bayttan daha azına kadar bu çözümü alamadım, ancak zarafetini gerçekten çok beğendim, bu yüzden onurlu bir söz vermek zorunda kaldım;

d->d.matches("(.+?)(,\\1)+")?"":java.util.Arrays.stream(d.split(",")).map(Long::new).reduce(0L,Long::max)

MATL , 15 9 bayt

U&=?}1MX>

Çevrimiçi deneyin!
Birden fazla testcases

MATL pirzolalarımı çok paslı tutmaya çalışıyorum!

Düzenleme : sonuçta paslı; @LuisMendo sayesinde 6 bayt tasarruf etti.

açıklama

U     % str2num - automatically parses comma-separated strings
&=?   % Are all the values equal? 
}     % if not
1M    % Get the numeric matrix again on the stack
X>    % And find its maximum value.

Pip , 13 bayt

a^:',MXaRMMNa

Çevrimiçi deneyin!

Ngn'in APL çözümünden yaklaşımı kullanır :

     MNa  Minimum of the list
  aRM     Remove it from the list
MX        Take the max of the remaining elements

İlk 5 bayt a^:',girdi dizesini virgülle böler.

Alternatif 13 baytlık çözümler:

I!$=Ya^',PMXy
a^:',$=a?uMXa