Wprowadzenie

Znajomy zadał dziś to pytanie w nieco inny sposób - „Czy jedno polecenie [Python] może określić największą z liczb całkowitych ORAZ, że nie są one równe?”.

Chociaż nie znaleźliśmy sposobu na zrobienie tego w rozsądnych definicjach „jednego polecenia”, pomyślałem, że może to być fajny problem z golfem.

 Wyzwanie

„ Zwraca największą z liczb całkowitych, jeśli-i-tylko-jeśli nie wszystkie są równe. ”

Dokładniej:

Biorąc pod uwagę ciąg zawierający tylko listę liczb całkowitych oddzielonych przecinkami:

• Jeśli wszystkie są równe, nic nie zwraca / zwraca
• W przeciwnym razie zwracaj / wysyłaj największe

Zasady

• Dane wejściowe muszą być ciągiem zawierającym tylko listę liczb całkowitych oddzielonych przecinkami
• Dane wyjściowe muszą być albo niczym (brak danych wyjściowych), albo też największym elementem z danych wejściowych, przedstawionym tak, jak w danych wejściowych

Wpisy mogą być pełnym programem lub tylko funkcją, pod warunkiem, że podasz sposób ich przetestowania!

Założenia

• Załóżmy, że elementy listy wprowadzania mogą mieć więcej niż jedną cyfrę, ale nie mogą być większe niż (2 ^32-1 )
• Załóżmy, że lista wejściowa zawiera nie więcej niż milion elementów
• Załóż, że dane wejściowe nie będą zawierać wartości ujemnych
• Załóż, że dane wejściowe nigdy nie będą puste

^{Aby uniknąć wątpliwości, wyjaśnienie wyzwania podane tuż po „Bardziej szczegółowo” zastępuje oświadczenie o wyzwaniu powyżej („Zwróć największe ...”).}

 Przykłady

(1) Wszyscy równi:

Input: 1,1
Output:

(2) Odmienne:

Input: 1,2
Output: 2

(3) Zero !:

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

(4) Losowo:

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

(5) Większe liczby, większa lista:

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

Dodatkowe przykłady:

(6) Wszystkie równe, większa lista:

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

(7) Wszystkie równe, większa lista, większe liczby:

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) Nie równa, większa lista, większe liczby:

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

Punktacja

Tak code-golfwięc wygrywa kod z najmniejszą liczbą bajtów!

R , 50 37 bajtów

-33 bajtów dzięki digEmAll! -13 bajtów dzięki rturnbull!

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

Wypróbuj online!

MathGolf , 5 bajtów

è▀s╞╙

Wypróbuj online!

Wyjaśnienie

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

Działa to, ponieważ zarówno operator maksymalny, jak i odrzucenie od lewego operatora nie robią nic dla pustych list. Cóż, operator max usuwa listę i nie wypycha niczego dla pustych list.

Może to być 4 bajty, jeśli dane wejściowe można by traktować jako listę.

Perl 6 , 26 23 22 bajtów

-1 bajt dzięki nwellnhof

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

Wypróbuj online!

Zwraca pusty kupon, jeśli wszystko jest równe.

Wyjaśnienie

                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

Galaretka , 4 bajty

ḟṀE?

Pełny program akceptujący dane wejściowe jako argument wiersza poleceń (niecytowany), który wypisuje wymagane dane wyjściowe

(Należy pamiętać, że dotyczy to: pustych danych wejściowych jak , danych wejściowych dla pojedynczego elementu, takich jak dane wejściowe dla 7wielu elementów, jak na 7,8,7przykład specyfikacja.

Wypróbuj online!

W jaki sposób?

ḟṀ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 Classic) , 6 bajtów

⍪⌈/~⌊/

Wypróbuj online!

pociąg obliczenie maksimum ( ⌈/) (bez ~) Do minium ( ⌊/) zmienił się w matrycy ( ⍪)

jeśli wejście zawiera tylko jeden odrębny element, ⌈/~⌊/będzie puste i ⍪zwróci macierz 0 × 1, która jest renderowana jako nic

w przeciwnym razie ⌈/~⌊/będzie to wektor 1-elementowy i ⍪będzie to macierz 1x1 (wizualnie nie do odróżnienia od skalara), która zawiera maksimum

CJam , 16 13 bajtów

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

Wypróbuj online!

Python 2 , 37 bajtów

wyjścia do stderr (debugowanie na tio).

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

Wypróbuj online!

Python 2 , 42 41 bajtów

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

Wypróbuj online!

Haskell , 77 75 61 bajtów

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

Wypróbuj online!

('[':).(++"]")bierze ciąg (np. "1,2,1,3") i zamyka go w nawiasach kwadratowych ( "[1,2,1,3]"). Następnie readzamienia ciąg w listę liczb całkowitych ( [1,2,1,3]).

Funkcja fużywa tej wskazówki dla krótszych warunków, jeśli jednym z wyników jest pusta lista. any(/=a!!0+0)asprawdza, czy lista azawiera dowolny element, który nie jest równy pierwszemu elementowi a!!0. ( +0Potrzebny jest taki, który readwie, że musi szukać listy liczb.) Jeśli wszystkie elementy są równe, to wynik testu Falsei zwracany jest pusty ciąg znaków. W przeciwnym razie show(maximum a)zwracana jest maksymalna liczba list przekonwertowanych na ciąg.

Czerwony, 81 bajtów

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

Podobnie jak w przypadku rozwiązania R, duża część kodu obsługuje ciąg wejściowy „1,1,2,44,1”. Jeśli możemy mieć to jako blok, np .:: x: [1 1 2 44 1], możemy to zrobić w 41 bajtach:

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

APL (Dyalog Unicode) , 12 bajtów

Pełny program Monituje o ciąg znaków ze standardowego wejścia.

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

Wypróbuj online!

⎕ monituj i oceniaj wyrażenie (przecinki łączą liczby w listę)

{… } Zastosuj następującą anonimową lambda ( ⍵argument; lista liczb):

 1≠ [jeśli] 1 różni się od…

 ≢ zestawienie…

 ∪ unikalne liczby w…

 ⍵ Lista

 : następnie

 ⌈/ zwróć maks. w poprzek (podświetlona maksymalna redukcja)…

 ⍵ Lista

 [else: nic nie rób]

JavaScript (Node.js) , 49/53 bajtów

Moja oryginalna wersja .every(), 53 bajtów

Czy funkcja zwracająca „” liczy się jako brak wyjścia? Jasne, że można to poprawić po ...

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

Wypróbuj online!

Ulepszona wersja wykorzystaniem Set()przez Kudłaty , 49 bajtów

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

Wypróbuj online!

Neim , 4 bajty

𝐐𝐎Ξ𝐠

Wyjaśnienie:

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

Wypróbuj online!

Oktawa , 28 bajtów

Zwraca maksimum (liczbę, która jest macierzą 1x1) lub pustą (1x0) macierz.

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

Wypróbuj online!

Japt, 16 bajtów

Byłoby to 9, gdyby nie niepotrzebnie ścisły format wejściowy, 7, jeśli zgłoszenie błędu jest liczone jako brak wyjścia.

Zakłada, że ​​ciąg zawiera co najmniej 2 liczby całkowite.

q, mn
â ÊÉ?Urw:P

Spróbuj

Common Lisp, 102 bajty

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

Wypróbuj online!

Rozmiar wynika głównie z wprowadzania danych; przy wprowadzaniu jako regularnej liście długość zmniejsza się do 46 bajtów:

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

XPath 3.1, 54 bajty

z ciągiem wejściowym jako elementem kontekstu:

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

Można zmniejszyć o jeden znak, jeśli pozwalasz kontekstowi na powiązanie krótszego prefiksu niż „xs” z przestrzenią nazw schematu XML.

Objaśnienie: pobiera ciąg wejściowy, tokenizuje na separatorze „,”, stosuje się xs:int()do każdego tokenu do konwersji na liczbę całkowitą, oblicza maksimum sekwencji, wyprowadza maksimum pod warunkiem, że predykat $t!=$tjest prawdziwy. Jeśli A i B są sekwencjami, to A!=Bjest prawdą, jeśli istnieje para elementów (a z A, b z B), takich jak a!=b.

Jeśli dane wejściowe można podać jako ciąg liczb całkowitych $ s zamiast ciągu oddzielonego przecinkami, wówczas rozwiązanie zmniejsza się do

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

(15 bajtów - co może być najkrótszym rozwiązaniem w języku, który nie jest przeznaczony do zwięzłości)

UWAGA : nie spełnia to wymogu „reprezentowanego tak, jak jest na wejściu” - jeśli na wejściu jest liczba całkowita z zerami wiodącymi lub znakiem plus, zostaną one utracone. Podejrzewam, że dotyczy to również wielu innych rozwiązań.

K4 , 38 35 bajtów

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

Przypadki testowe:

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)

Nie jestem biegły w żadnym z wariantów K dostępnych na TiO, więc nie ma dostępnego przykładu online, spróbuję jednak wymyślić jeden

Wyjaśnienie

Jeśli zastanawiasz się, dlaczego niektóre operacje są wykonywane przed innymi, K4 nie ma pierwszeństwa operatora, zamiast tego interpretuje od prawej do lewej (chociaż możesz użyć nawiasów dla pierwszeństwa). Wyrażenia rozdzielone średnikami.

   $[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

Prawdopodobnie można go bardziej pograć w golfa, a nie fanem konieczności korzystania z tej prowizorycznej funkcji max na końcu.

EDYCJA: Jeśli przecinki w danych wyjściowych stanowią problem, można to naprawić za pomocą dwóch dodatkowych bajtów:

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

Biorąc w sumie 40 37, ale przecinek przed liczbą oznacza po prostu, że jest to lista pojedynczego elementu w przeciwieństwie do atomu.

PHP (<= 5,6) 64 74 bajty

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

Uruchom jako potok -nRlub przetestuj go online

splitzostał usunięty w PHP7, ale ponieważ musiałem dodać 10, aby naprawić kilka problemów, warto było użyć zamiast tego w explodeprzybliżeniu w tym przypadku.

Japt -hF , 8 bajtów

q, ün Åc

Spróbuj

-3 bajty, jeśli dane wejściowe można przyjąć jako tablicę.

05AB1E , 9 8 bajtów

',¡ZsËiõ

-1 bajt dzięki @Cowabunghole .

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

',¡        '# 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 bajty

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

Wypróbuj online!

Ohm v2 , 9 bajtów

Ul1E?Oq¿↑

Wypróbuj online! Wyjaśnienie:

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

Węgiel drzewny , 15 bajtów

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

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

≔Ｉ⪪Ｓ,θ

Podziel dane wejściowe przecinkami i wyrzuć każdą wartość na liczbę całkowitą.

¿›⌈θ⌊θ

Sprawdź, czy maksymalna wartość jest większa niż wartość minimalna.

Ｉ⌈θ

Jeśli tak, wyrzuć maksymalną wartość na ciąg i wydrukuj.

Mathematica, 43 bajty

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

Czysta funkcja. Pobiera na wejściu ciąg rozdzielany przecinkami i zwraca liczbę lub Null. Uważam, że jest to poprawne, ponieważ Nullnie jest przedstawione graficznie:

C (gcc) , 91 bajtów

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

Wypróbuj online!

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 bajtów

Itl{QeS

Wypróbuj online!
Wszystkie przypadki testowe (nieco inny kod dla lepszego formatowania wyjściowego)

Ponieważ Pyth jest oparty na Pythonie, dane wejściowe użytkownika są zawsze interpretowane jako ciąg znaków, który następnie można przekazać eval() . Wszystkie programy Pyth są automatycznie uruchamiane Q=eval(input())jako pierwsza instrukcja.

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 bajtów

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

Wypróbuj online!

Wyjaśniono

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
}

Rozwiązanie premiowe!

Mimo dołożenia wszelkich starań nie mogłem uzyskać tego rozwiązania przy użyciu wyrażeń regularnych i strumieni do mniej niż 105 bajtów, ale naprawdę podobała mi się jego elegancja, dlatego musiałem wyróżnić ją;

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

MATL , 15 9 bajtów

U&=?}1MX>

Wypróbuj online!
Wiele przypadków testowych

Staram się tylko, żeby moje kotlety MATL nie zardzewiały!

Edytować : w końcu zardzewiały; zapisane 6 bajtów, dzięki @LuisMendo.

Wyjaśnienie

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 bajtów

a^:',MXaRMMNa

Wypróbuj online!

Wykorzystuje podejście z rozwiązania APL firmy ngn :

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

Pierwsze 5 bajtów a^:', podzieliło łańcuch wejściowy na przecinki.

Alternatywne 13-bajtowe rozwiązania:

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