Czy jest guz?


39

Biorąc pod uwagę listę dodatnich liczb całkowitych, określ, czy istnieje element, który jest większy niż jego dwóch sąsiadów lub mniejszy niż jego dwóch sąsiadów („wypukłość”). Żeby było jasne, wypukłość nigdy nie może być pierwszą lub ostatnią pozycją na liście, ponieważ mają tylko jednego sąsiada.

Twój program powinien wypisać jedną z dwóch spójnych wartości, z których każda odpowiada albo liście bez nierówności, albo liście z nierównościami. To, jakie są wartości, nie ma znaczenia, możesz sam je wybrać.

To jest więc odpowiedzi będą liczone w bajtach, przy czym mniej bajtów będzie lepszych.

Przypadki testowe

[] -> False
[1] -> False
[1,2] -> False
[1,2,1] -> True
[1,2,2] -> False
[1,2,3] -> False
[1,2,2,1] -> False
[1,2,2,3] -> False
[1,2,1,2] -> True
[1,3,2] -> True
[3,1,2] -> True
[2,2,2] -> False

5
Żądanie przypadku testowego: Dozwolone / niedozwolone liczby inne niż 0-1-2-3?
Magic Octopus Urn

Sugerowany przypadek testowy: [1,3,3](zapewnia, że ​​odpowiedzi przy użyciu algorytmu Dennisa przyjmują znak przyrostów zamiast samych samych przyrostów)
ETHproductions

1
@ETHproductions Czy to jeszcze nie jest objęte [1,2,2]? A może coś mi brakuje?
Nic Hartley,

2
@NicHartley, delty [1,2,2]są takie same jak znaki tych delt, ale tak nie jest [1,3,3].
Kudłaty

Odpowiedzi:


15

Galaretka , 5 bajtów

IṠIỊẠ

Zwraca 0, jeśli jest nierówność, 1 jeśli nie.

Wypróbuj online!

Jak to działa

IṠIỊẠ  Main link. Argument: A (integer array)

I      Increments; take all forward differences of A.
 Ṡ     Take the signs.
       The signs indicate whether the array is increasing (1), decreasing (-1), or
       constant at the corresponding point. A 1 followed by a -1 indicates a local
       maximum, a -1 followed by a 1 a local minimum.
  I    Increments; take the forward differences again.
       Note that 1 - (-1) = 2 and (-1) - 1 = -2. All other seven combinations of
       signs map to -1, 0, or 1.
   Ị   Insignificant; map each difference d to (-1 ≤ d ≤ 1).
    Ạ  All; return 1 if all differences are insignificant, 0 if not.

1
Co to jest „Przyrosty”. Co jest zwiększane i co to robi?
Wheat Wizard

1
@WheatWizard Myślę, że jest to odpowiednik polecenia delta (¥) 05AB1E: tablica [n0, n1, n2, n3] jest wstawiana, a tablica [n1-n0, n2-n1, n3-n2] jest wypychana.
Kaldo

10

JavaScript (ES6), 38 bajtów

Zwraca wartość logiczną.

a=>a.some(x=n=>x*(x=a<n|-(a>(a=n)))<0)

Przypadki testowe

W jaki sposób?

Używamy a do przechowywania poprzedniej wartości n . Ustawiamy x na 1, jeśli a <n , -1 jeśli a> n lub 0, jeśli a = n . I sprawdzamy, czy old_x * x <0 , co jest możliwe tylko wtedy, gdy ( old_x = 1 i x = -1 ) lub ( old_x = -1 i x = 1 ).

Ponieważ x jest inicjowany do anonimowej funkcji zwrotnej niektórych () , jest on wymuszany na NaN podczas pierwszej iteracji, co powoduje, że test jest fałszywy.


To rzuci w trybie ścisłym.
Aluan Haddad

2
@AluanHaddad Cóż, 99% kodu golfowego JS rzuca w tryb ścisły tylko z powodu niezadeklarowanych zmiennych. PPCG i podgląd kodu nie mieszają się dobrze. : P
Arnauld

To uczciwe, nie bardzo lubię golfa.
Aluan Haddad

4
Po co więc komentować lol
Mark C.

8

Haskell , 42 bajty

any(<0).f(*).f(-)
f a b=zipWith a b$tail b

Wypróbuj online!

Wyjaśnienie

Najpierw mamy funkcję, fktóra pobiera funkcję binarną i listę i stosuje funkcję binarną do każdej sąsiedniej pary na liście.

Następnie nasza główna funkcja dotyczy f(-)listy wejść. Oblicza to listę różnic. Następnie ubiegamy f(*)się o listę, aby pomnożyć każdą sąsiednią parę. Na koniec pytamy, czy jakakolwiek para jest mniejsza niż zero.

Liczba na liście końcowej może być ujemna tylko wtedy, gdy jest iloczynem liczby ujemnej i dodatniej z listy różnic. Dlatego w celu uzyskania wpisu ujemnego (a następnie zwrócenia wartości true) pierwotna lista musi przejść z wartości rosnącej na malejącą lub odwrotnie, tzn. Musi mieć nierówność.


Miły sposób na radzenie sobie z pustą listą!
Laikoni


5

Oktawa z pakietem obrazów, 34 32 bajty

2 bajty zapisane dzięki @StewieGriffin !

@(x)0||prod(im2col(diff(x),2))<0

Wypróbuj online!

Wyjaśnienie

Oblicza kolejne różnice, układa je w przesuwne bloki o długości 2, uzyskuje iloczyn każdego bloku i sprawdza, czy jakikolwiek taki produkt jest ujemny.


0||prod(...)oszczędza 2 bajty. Możesz również pominąć całą anyczęść i użyć domyślnej definicji truey / falsy, aby zapisać 5 bajtów .
Stewie Griffin

Cholera, oszczędność 5 bajtów sprawi, że twoje rozwiązanie będzie krótsze niż moje :( Ładne wykorzystanie pakietu obrazów. Nie wiedziałem, że było na TIO.
Stewie Griffin

1
@StewieGriffin Ponieważ wyzwanie wymaga dwóch spójnych wartości, których nie mogę usunąć any. Dzięki za 0||pomysł!
Luis Mendo,

4

R, 48 bajtów

function(x)any(apply(embed(diff(x),2),1,prod)<0)

Wypróbuj online!

Jak to działa krok po kroku na przykładzie c (1,4,1,4):

> x=c(1,4,1,4)
> diff(x)
[1]  3 -3  3
> embed(diff(x),2)
     [,1] [,2]
[1,]   -3    3
[2,]    3   -3
> apply(embed(diff(x),2),1,prod)
[1] -9 -9
> any(apply(embed(diff(x),2),1,prod)<0)
[1] TRUE

Jako bonus, oto rozwiązanie o podobnej długości i koncepcji wykorzystujące pakiet zoo:

function(x)any(zoo::rollapply(diff(x),2,prod)<0)

1
schludny! Uwaga do siebie: pamiętaj, embedistnieje. Szkoda, że rowProdsi colProdsnie istnieje jako alias w R.
Giuseppe

1
@Giuseppe z desperacji faktycznie sprawdziłem, czy istnieją :), ale rzeczywiście tylko rowSumsi rowMeans...
plannapus

1
Cóż, przynajmniej przeglądając dokumenty, .colSumsprzekształcę dane wejściowe w matrycę na podstawie dodatkowych danych wejściowych, które prawdopodobnie mają gdzieś zastosowanie w golfie ... teraz muszę je znaleźć!
Giuseppe,

@Guiseppe: spójrz na funkcje w matrixStatspakiecie.
Michael M

@MichaelM Niestety z powodu długości nazwy pakietu nie czyni go konkurencyjnym (57 bajtów:) function(x)any(matrixStats::colProds(embed(diff(x),2)))<0. Ale dla wszystkiego innego niż golf golfowy, ten pakiet jest rzeczywiście skarbnicą.
plannapus

4

Haskell , 33 bajty

f(p:r@(c:n:_))=(c-p)*(c-n)>0||f r

Wypróbuj online!

True jeśli jest nierówność, błędy, jeśli nie ma.


l`zip3`tail l$drop 2ljest po prostu krótszy o włos. Zastanawiam się, czy dopasowanie wzorca jest jakoś jeszcze krótsze?
Lynn

3

Perl 6 , 39 bajtów

{so~(.[1..*]Zcmp$_)~~/'re L'|'s M'/}

Wypróbuj online!

$_jest argumentem listy tej anonimowej funkcji. .[1..*]to ta sama lista, ale z pominiętym pierwszym elementem. Zcmpzamyka obie listy razem z cmpoperatorem, co daje listę Orderwartości. Na przykład dla listy wejściowej 1, 2, 2, 2, 1spowoduje to powstanie listy More, Same, Same, Less.

Teraz musimy tylko wiedzieć, czy ta lista zawiera dwa sąsiednie elementy, More, Lessczy Less, More. Trik, którego użyłem, to przekonwertowanie listy na łańcuch rozdzielany spacjami za pomocą ~, a następnie przetestowanie, czy zawiera ona podłańcuch, re Lczy s M. (Pierwszy nie może być tylko e Ldlatego, że Samekończy się również na „e”.)

Inteligentny operator dopasowania zwraca Matchobiekt (jeśli dopasowanie się powiedzie) lub Nil(jeśli się nie udało), więc sokonwertuje cokolwiek to jest na wartość logiczną.



3

Rubinowy , 55 46 bajtów

->a{a.each_cons(3).any?{|x,y,z|(y-x)*(y-z)>0}}

Wypróbuj online!

Lambda akceptuje tablicę i zwraca wartość logiczną.

-9 bajtów Wymienić (x<y&&y>z)||(x>y&&y<z)z (y-x)*(y-z)>0(dzięki GolfWolf )

->a{
  a.each_cons(3)              # Take each consecutive triplet
    .any?{ |x,y,z|            # Destructure to x, y, z
      (y-x)*(y-z) > 0         # Check if y is a bump
    }
}

1
Myślę , że możesz użyć |zamiast ||, oszczędzając 1 bajt.
Yytsi


Zaoszczędź 1 bajt z „0 <(yx) * y- = z”
GB

3

PostgreSQL 173 bajtów

SELECT DISTINCT ON(a)a,x>j and x>k OR x<least(j,k)FROM(SELECT a,x,lag(x,1,x)OVER(w)j,lead(x,1,x)OVER(w)k FROM d WINDOW w AS(PARTITION BY rn ORDER BY xn))d ORDER BY 1,2 DESC;
     a     | c 
-----------+---
 {1}       | f
 {1,2}     | f
 {1,2,1}   | t
 {1,2,1,2} | t
 {1,2,2}   | f
 {1,2,2,1} | f
 {1,2,2,3} | f
 {1,2,3}   | f
 {1,3,2}   | t
 {2,2,2}   | f
 {3,1,2}   | t
(11 rows)

Witam na stronie. Nie jestem zaznajomiony z PostgreSQL, ale możesz być w stanie zmniejszyć ilość używanych białych znaków. Zasadniczo większość języków nie wymaga większości używanych odstępów.
Wheat Wizard

@WheatWizard to przykładowe dane do bazy danych, nie ma to znaczenia.
Evan Carroll

Jaki jest twój kod? Nie zezwalamy na wstawianie danych wejściowych bezpośrednio do kodu zamiast danych wejściowych. W takim przypadku należy go przepisać, aby pobierał dane wejściowe standardową metodą .
Kreator pszenicy,


1
Ok, jeśli używasz formatu wejściowego, to w porządku. Powodzenia w grze w golfa, miło jest widzieć ludzi grających w mniej popularnych językach.
Wheat Wizard

3

Java 8, 108 104 101 86 84 79 72 bajtów

a->{int i=a.length,p=0;for(;i-->1;)i|=p*(p=a[i]-a[i-1])>>-1;return-i>1;}

-2 bajty dzięki @ OlivierGrégoire .
-13 bajtów dzięki @Nevay .

Wypróbuj online.


1
84 bajtów . Zmieniłem kolejność iteracji (schodząc w dół), zamieniłem dwa operandy mnożenia, a następnie mogłem usunąć zbędne -1.
Olivier Grégoire

1
79 bajtów: a->{int i=a.length;for(;i-->2;)i|=(a[i]-a[--i])*(a[i]-a[i-1])>>-1;return-~i|3;}(zwraca -1dla prawdziwych przypadków, 3dla falsey) - lub, jeśli używasz obecności / braku wyjątku jako wartości zwracanej 55 bajtów:a->{for(int i=0;++i>0;)i|=(a[i-1]-a[i])*(a[i]-a[i+1]);}
Nevay

1
72 bajty:a->{int i=a.length,p=0;for(;i-->1;)i|=p*(p=a[i]-a[i-1])>>-1;return-i>1;}
Nevay

3

R , 58 56 bajtów

function(x)any(abs(diff(sign(diff(c(NA,x)))))>1,na.rm=T)

Wypróbuj online!

Zaoszczędzono 2 bajty dzięki Giuseppe


3
Możesz pozbyć się nawiasów klamrowych {}za -2 bajty.
Giuseppe,

dodatkowo myślę, że możesz przenieść podejście Stewiego Griffina na 42 bajty
Giuseppe

@Giuseppe, myślę, że Stewie przeniósł moją metodę, z tą różnicą, że moja może poprawnie obsługiwać pusty wektor wymieniony w przypadkach testowych. Matlab jest nieco łagodniejszy z pustymi wektorami w porównaniu do R.
NofP

c()to NULLnie to samo, co pusty wektor liczb całkowitych, integer(0)podczas gdy w MATLAB []jest doubledomyślnie, ale jeśli chcesz zachować to w ten sposób, jest to całkowicie rozsądne.
Giuseppe,

3

J , 16 15 bajtów

-1 bajt dzięki FrownyFrog

1 e.0>2*/\2-/\]

Wypróbuj online!

Oryginał: 16 bajtów

0>[:<./2*/\2-/\]

2-/\] - różnice między sąsiadującymi elementami

2*/\ - produkty z każdej sąsiedniej pozycji

[:<./ - minimum

0> - jest negatywny?

Wypróbuj online!


Cześć ! Czy nie można tego skrócić do tego prostszego jawnego formularza 0> <./ 2 * / \ 2 - / \ (13 bajtów)?
Mathias Dolidon

@Mathias Dolidon Działa to w tłumaczu, ale tutaj w PPCG często podaje się funkcję (czasownik J), jeśli są jakieś dane wejściowe. Jeśli czasownik jest milczący, nie liczymy f=.bajtów przypisania . Pamiętaj, że jestem stosunkowo nowym użytkownikiem :)
Galen Iwanow

Ja też, a ty wyjaśniłeś mi zasadę. Dzięki ! :)
Mathias Dolidon

1
1 e.0>2*/\2-/\]
FrownyFrog,

@ FrownyFrog Dziękujemy! Wygląda na to, że rzadko używam e. :)
Galen Iwanow



2

Attache , 39 bajtów

Any&:&{_*~?Sum[__]}@Slices&2@Sign@Delta

Wypróbuj online!

Całkiem zadowolony z tego, jak to się potoczyło.

Wyjaśnienie

Jest to kompozycja czterech funkcji:

Delta
Sign
Slices&2
Any&:&{_*~?Sum[__]}

Deltapobiera różnice między elementami. =

Następnie Signstosuje się do każdej różnicy, dając nam tablicę 1s, 0s i -1s. =

Następnie Slices&2daje wszystkie wycinki długości dwa z tablicy, podając wszystkie pary różnic.

Wreszcie Any&:&{_*~?Sum[__]}jest równoważne z danymi wejściowymi x:

Any[&{_*~?Sum[__]}, x]
Any[[el] -> { el[0] and not (el[0] + el[1] = 0) }, x]

Wyszukuje elementy, które sumują się do zera, ale nie są zerem. Jeśli istnieje jakakolwiek taka para elementów, oznacza to nierówność.



2

Łuska , 7 bajtów

V<0Ẋ*Ẋ-

Wypróbuj online!

Wyjaśnienie

V<0Ẋ*Ẋ-  Implicit input, say [2,5,5,1,4,5,3]
     Ẋ-  Consecutive differences: [3,0,-4,3,1,-2]
   Ẋ*    Consecutive products: [0,0,-12,3,-2]
V<0      Is any of them negative? Return 1-based index: 3

2

Oktawa , 33 bajty

@(x)0||abs(diff(sign(diff(x))))>1

Wypróbuj online!

Wyjaśnienie:

@(x)                           % Anonymous function taking x as input
                  diff(x)       % Takes the difference between consecutive elements
             sign(diff(x))      % The sign of the differences
        diff(sign(diff(x)))     % The difference between the signs
    abs(diff(sign(diff(x)))>1   % Check if the absolute value is 2
@(x)abs(diff(sign(diff(x)))>1   % Output as matrices that are treated truthy or falsy

2

Brachylog , 10 bajtów

s₃.¬≤₁∧¬≥₁

Wypróbuj online!

Udaje się ( true.), jeśli występuje nierówność, i nie ( false.), jeśli nie ma nierówności.

Wyjaśnienie

Jest to już dość czytelne:

s₃.           There is a substring of the input…
  .¬≤₁        …which is not non-decreasing…
      ∧       …and…
       ¬≥₁    …which is not non-increasing

2

05AB1E , 7 bajtów

¥ü‚P0‹Z

Wypróbuj online!

Wyjaśnienie

¥         # calculate delta's
 ü‚       # pair each element with the next element
   P      # product of each pair
    0‹    # check each if less than 0
      Z   # max

Czy nie istniała 1-bajtowa alternatywa, 0‹która w zasadzie sprawdza liczbę pod kątem znaku ujemnego?
Magic Octopus Urn

@MagicOctopusUrn: dsłuży do sprawdzania, czy tylko góra stosu jest zawarta [0-9], co jest przeciwieństwem tego, co chcemy tutaj. Ale teraz jest bardziej inteligentny, a liczby ujemne / zmiennoprzecinkowe są również liczone jako liczby.
Emigna

Ahhhh ... czy mógłbym przysiąc, azobaczył negativeznak i wrócił prawdą czy coś ... Ale myślę, że masz rację, pamiętam twoją dsztuczkę.
Magic Octopus Urn

2

Brachylog , 10 bajtów

s₃s₂ᶠ-ᵐ×<0

Wypróbuj online!

Nie jest tak schludny i elegancki jak istniejąca 10-bajtowa odpowiedź @ Fatalize, ale działa!

s₃   % There exists a substring of three elements [I,J,K] in the array such that

s₂ᶠ  % When it's split into pairs [[I,J],[J,K]]

-ᵐ   % And each difference is taken [I-J, J-K]

×    % And those differences are multiplied (I-J)*(J-K)
     % (At a bump, one of those will be negative and the other positive. 
     % At other places, both differences will be positive, or both negative, 
     %  or one of them 0 - ultimately resulting in a non-negative product.)

<0   % The product is negative





1

Wolfram Language (Mathematica) , 37 36 bajtów

FreeQ[(d=Differences)@Sign@d@#,-2|2]&

Podaje przeciwieństwo odpowiedzi na przypadki testowe (odwrócone False i True). Przygotuj a, !aby przejść do normalnej postaci.

LUB

Abs@(d=Differences)@Sign@d@#~FreeQ~2&

Odwrócona także wyjście, więc zastąpić FreeQz MatchQnormalnej formie.

Objaśnienie: Weź znak różnic w sekwencji. Jeśli wynikowa sekwencja obejmuje {1, -1} lub {-1,1} występuje nierówność. Bezwzględna wartość różnic {1, -1} lub {-1,1} wynosi 2 w obu przypadkach.

Ogol kolejny bajt, wyrównując ostateczną listę zamiast przyjmując wartość bezwzględną:

FreeQ[(d=Differences)@Sign@d@#^2,4]&

Wypróbuj online!


1

Perl, 35 bajtów

Obejmuje +3dla-p

bump.pl:

#!/usr/bin/perl -p
s%\S+ %$a*1*($a=$&-$')%eg;$_=/-/

Uruchom jako:

bump.pl <<< "3 1 2"

1

Julia 0.6 , 57 56 bajtów

l->any(p>c<n||p<c>n for(p,c,n)=zip(l,l[2:end],l[3:end]))

Zasadniczo, po prostu całkowicie ludzka odpowiedź na python. -1 bajt od użytkownika 71546

Wypróbuj online!

Julia 0.6 , 39 bajtów

f(x,y,z,a...)=x>y<z||x<y>z||f(y,z,a...)

Styl rekurencji Lispy, czyli odpowiedź pytona Dennisa. Zwraca, truegdy występuje nierówność, w przeciwnym razie zgłasza błąd. Powinno to być może 42 bajty, ponieważ musisz przeliterować go podczas rozmowy. Np. Dzwonisz a=[1,2,1]jako f(a...). f(a)=f(a...)usunę tę potrzebę, ale jest ona dłuższa. Muszę poprawić rekurencję i nie lubię pisać kodu, który generuje błąd.

Wypróbuj online!


1
wydaje się, że for
kolejne
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.