(zainspirowany tym wyzwaniem na łamigłówkach - SPOILERY dla tej układanki są poniżej, więc przestań czytać tutaj, jeśli chcesz rozwiązać tę zagadkę samodzielnie!)

Jeśli litera w słowie występuje alfabetycznie później niż poprzednia litera w słowie, nazywamy to wzrostem między dwiema literami. W przeciwnym razie, w tym jeśli jest to ta sama litera , nazywa się to upadkiem .

Na przykład słowo ACEma dwa wzloty ( Ado Ci Cdo E) i nie ma spadków, podczas gdy THEma dwa spadki ( Tdo Hi Hdo E) i nie ma wzlotów.

Nazywamy słowo Wyboisty, jeśli sekwencja wzlotów i upadków zmienia się. Na przykład, BUMPidzie w górę ( Bdo U), w dół ( Udo M), w górę ( Mdo P). Zauważ, że pierwsza sekwencja nie musi być wzrostem - BALDprzechodzi od spadku do spadku i jest również wyboista.

Wyzwanie

Biorąc pod uwagę słowo, wypisz, czy jest wyboisty, czy nie.

Wkład

• Słowo (niekoniecznie słowo słownikowe) składające się wyłącznie z alfabetu ASCII ( [A-Z]lub [a-z]), w dowolnym odpowiednim formacie .
• Twój wybór, jeśli dane wejściowe są pisane wielkimi lub małymi literami, ale muszą być spójne.
• Słowo będzie miało co najmniej 3 znaki.

Wydajność

Truthy / falsey wart, czy słowo wejściowego jest Bumpy (truthy) lub nie Bumpy (falsey).

Zasady

• Dopuszczalny jest pełny program lub funkcja.
• Standardowe luki są zabronione.
• To jest golf golfowy, więc obowiązują wszystkie zwykłe zasady gry w golfa, a wygrywa najkrótszy kod (w bajtach).

Przykłady

Prawda:

ABA
ABB
BAB
BUMP
BALD
BALDY
UPWARD
EXAMINATION
AZBYCXDWEVFUGTHSIRJQKPLOMN

Falsey:

AAA
BBA
ACE
THE
BUMPY
BALDING
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Liderów

Oto fragment kodu, który pozwala wygenerować zarówno zwykłą tabelę wyników, jak i przegląd zwycięzców według języka.

Aby upewnić się, że twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

# Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

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

Jeśli chcesz umieścić w nagłówku wiele liczb (np. Ponieważ twój wynik jest sumą dwóch plików lub chcesz osobno wymienić kary za flagi tłumacza), upewnij się, że rzeczywisty wynik jest ostatnią liczbą w nagłówku:

# Perl, 43 + 2 (-p flag) = 45 bytes

Możesz także ustawić nazwę języka jako link, który pojawi się we fragmencie tabeli wyników:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=93005,OVERRIDE_USER=42963;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

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><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

MATL, 4 bajty

d0>d

Wyjaśnienie:

d     % Implicitly take input. Take difference between each element
 0>   % Check whether diff's are positive. Should result in [0 1 0 1 ...] pattern.
   d  % Again take the difference. Any consecutive rises or falls results in a 
      % difference of 0, which is a falsy value in MATL

To jest mój pierwszy wpis w MATL, więc zastanawiam się, jak wiele ulepszeń można uzyskać dzięki temu naiwnemu portowi po mojej próbie MATLAB / Octave (która byłaby @(a)all(diff(diff(a)>0))). Zauważ, że allnie jest to konieczne, ponieważ dowolne zero powoduje, że tablica jest fałszywa, więc nie ma go Aw porcie MATL.

JavaScript (ES6), 75 69 63 46 43 bajty

Zaoszczędzono 3 bajty dzięki Neilowi:

f=([c,...s])=>s[1]?c<s[0]^s[0]<s[1]&&f(s):1

Niszczenie parametru ciągu zamiast s.slice(1).

f=s=>s[2]?s[0]<s[1]^s[1]<s[2]&&f(s.slice(1)):1

Co się stało z poprzedniego rozwiązania krok po kroku:

f=(s,i=0,a=s[i++]<s[i])=>s[i+1]&&(b=a^(a=s[i]<s[i+1]))?f(s,i):b // (63) Original
f=(s,i=0,a=s[i++]<s[i])=>s[i+1]&&(b=a^(s[i]<s[i+1]))?f(s,i):b   // (61) No point in reassigning `a`, it's not used again
f=(s,i=0,a=s[i++]<s[i])=>s[i+1]&&(b=a^s[i]<s[i+1])?f(s,i):b     // (59) Remove unnecessary parentheses
f=(s,i=0)=>s[i+2]&&(b=s[i++]<s[i]^s[i]<s[i+1])?f(s,i):b         // (55) `a` is now just a waste of bytes
f=(s,i=0)=>s[i+2]?(b=s[i++]<s[i]^s[i]<s[i+1])?f(s,i):b:1        // (56) Rearrange conditional expressions to allow for more golfing
f=(s,i=0)=>s[i+2]?(b=s[i++]<s[i]^s[i]<s[i+1])&&f(s,i):1         // (55) Rearrange conditional expression
f=(s,i=0)=>s[i+2]?(s[i++]<s[i]^s[i]<s[i+1])&&f(s,i):1           // (53) `b` is now also a waste of bytes
f=(s,i=0)=>s[i+2]?s[i++]<s[i]^s[i]<s[i+1]&&f(s,i):1             // (51) Remove unnecessary parentheses
f=s=>s[2]?s[0]<s[1]^s[1]<s[2]&&f(s.slice(1)):1                  // (46) Use `s.slice(1)` instead of `i`

f=(s,i=0,a=s[i++]<s[i])=>s[i+1]&&(b=a^(a=s[i]<s[i+1]))?f(s,i):b

69 bajtów:

f=(s,i=0,a=s[i++]<s[i])=>i+1<s.length&&(b=a^(a=s[i]<s[i+1]))?f(s,i):b

75 bajtów:

f=(s,a=s[0]<s[1])=>{for(i=1;i+1<s.length&&(b=a^(a=s[i++]<s[i])););return b}

Wszystkie litery w słowie muszą mieć tę samą wielkość liter.

LabVIEW, 36 równoważnych bajtów

Gra w golfa przy użyciu logicznych równoważników:

Nie golfowany:

Najpierw konwertujemy na małe litery, a następnie na tablicę bajtów. Przytnij pierwszy element tablicy bajtów, ponieważ nie ma on precedensu. Następnie, dla każdego elementu w tablicy, sprawdź, czy jest większy niż poprzedni (znak U8 odwzorowuje na ASCII, jak się spodziewasz) i zapisz wynik dla następnej iteracji, a także w tablicy do przeglądania ogólnej nierówności. Jeśli bieżąca i wcześniejsza kontrola logiczna są równe, przerywamy pętlę i nie jest to wyboista. W przeciwnym razie jest wyboisty!

Python, 56 bajtów

lambda s:all((x<y)^(y<z)for x,y,z in zip(s,s[1:],s[2:]))

Wszystkie przypadki testowe są w ideone

Przeskakuje przez trójki znaków ws i sprawdza, czy wszystkie takie trójki mają lewą i prawą parę o różnych właściwościach wznoszenia / opadania.
Działa dla wszystkich wielkich lub małych liter.

Rubin, 57 48 bajtów

Oczekuje, że dane wejściowe będą składać się z wielkich liter.

->s{!s.gsub(/.(?=(.)(.))/){($&<$1)^($1<$2)}[?f]}

Zobacz na repl.it: https://repl.it/D7SB

Wyjaśnienie

Wyrażenie regularne /.(?=(.)(.))/pasuje do każdego znaku, po którym następują dwa kolejne znaki. (?=...)jest pozytywnym spojrzeniem w przyszłość, co oznacza, że ​​dopasowujemy dwa kolejne znaki, ale nie „konsumujemy” ich w ramach meczu. Wewnątrz nawiasów klamrowych $&znajduje się dopasowany tekst - pierwszy znak z trzech - $1i $2są one schwytanymi postaciami z góry. Innymi słowy, jeśli łańcuch jest "BUMPY", najpierw dopasuje "B"(i wstawi $&) i przechwyci "U"oraz "M"(i umieści je w $1i $2). Następny będzie pasować "U"i wychwytywania "M"i "P", i tak dalej.

Wewnątrz bloku sprawdzamy, czy pierwsza para znaków ( $&i $1) jest wzniesieniem, a druga ( $1i $2) jest spadkiem lub odwrotnie, podobnie jak większość innych odpowiedzi. To ^wyrażenie zwraca truelub false, które jest konwertowane na ciąg znaków i wstawiane w miejsce dopasowania. W rezultacie nasz przykład "BUMPY"wygląda następująco:

"truetruefalsePY"

Ponieważ wiemy, że dane wejściowe są pisane wielkimi literami, wiemy, że "f"wystąpią tylko jako część "false"i !result[?f]daje nam odpowiedź.

C #, 64 63 55 bajtów

unsafe bool B(char*s)=>1>s[2]||*s<s[1]!=*++s<s[1]&B(s);

-8 bajtów z sugestii Scepheo

To jest port rozwiązania Hedi do C #. Wymyśliłem również rozwiązanie rekurencyjne, ale rekursja nie była tak dobra. Moje oryginalne rozwiązanie znajduje się poniżej.

My Original C #, 96 94 91 bajtów

unsafe bool B(char*s,bool f=1>0,int i=0)=>1>s[1]||(s[0]<s[1]?f:1>i?!(f=!f):!f)&B(s+1,!f,1);

-2 bajty przy użyciu 1>0zamiast true.

-3 bajty z sugestii Scepheo dla powyższego rozwiązania portu

Nazywa się rekurencyjnie sprawdzając, czy wzrost / opadanie zmienia się za każdym razem.

Nie golfowany:

// unsafe in order to golf some bytes from string operations.
// f alternates with each recursive call
// i is 0 for the first call, 1 for all subsequent calls
unsafe bool B(char* s, bool f = 1 > 0, int i = 0) =>
    1 > s[1] ? 1 > 0// (instead of 1 == s.Length) check if s[1] = NULL, and return true.
    : (
        s[0] < s[1] ? f // Rising, so use f...
        : // Else falling
            1 > i ? !(f=!f) // But this is the first call, so use true (but flip f)...
            : !f // Not first call, so use !f...
    )
    & B(s+1, !f, 1) // ...AND the previous value with a recursive call
                    // s+1 instead of s.Substring(1)
;

C 59 bajtów

r;f(s)char*s;{for(r=0;r=*s?~r&1<<(*s>=*++s):0;);return!*s;}

Galaretka , 6 bajtów

OI>0IẠ

Na podstawie odpowiedzi @sanchises .

Wypróbuj online! lub Zweryfikuj wszystko.

Wyjaśnienie

OI>0IẠ  Input: string S
O       Convert each char in S to an ordinal
 I      Get the increments between each pair
  >0    Test if each is positive, 1 if true else 0
    I   Get the increments between each pair
     Ạ  Test if the list doesn't contain a zero, 1 if true else 0

JavaScript (ES6), 65 bajtów

s=>[...s].map(C=>(c?(R=c<C,i++?t&=r^R:0,r=R):t=1,c=C),c=r=i="")|t

.mapto na pewno nie jest najlepszym rozwiązaniem .

Python 2, 88 bajtów

Proste rozwiązanie.

s=input()
m=map(lambda x,y:y>x,s[:-1],s[1:])
print all(x-y for x,y in zip(m[:-1],m[1:]))

Wypróbuj online

Gdyby te same litery z rzędu nie były ani wzrostem, ani spadkiem, rozwiązaniem byłoby 79 bajtów:

s=input()
m=map(cmp,s[:-1],s[1:])
print all(x-y for x,y in zip(m[:-1],m[1:]))

Perl, 34 bajty

Obejmuje +3 dla -p(kod zawiera, 'więc -enie można go użyć)

Podaj duże litery w STDIN:

bump.pl <<< AAA

bump.pl

#!/usr/bin/perl -p
s%.%$&.z lt$'|0%eg;$_=!/(.)\1./

Python, 51 bajtów

g=lambda a,b,c,*s:((a<b)^(b<c))*(s==()or g(b,c,*s))

Pobiera dane wejściowe g('B','U','M','P')i wyjściowe 1lub 0.

Używa rozpakowywania argumentów, aby pobrać pierwsze trzy litery i sprawdzić, czy pierwsze dwa różnią się od dwóch pozostałych. Następnie powtarza się w pozostałej części, używając mnożenia dla and.

Galaretka , 6 5 bajtów

-1 bajt dzięki @Dennis (użyj skumulowanej redukcji)

<2\IẠ

Wszystkie przypadki testowe znajdują się w TryItOnline

W jaki sposób?

<2\IẠ - main link takes an argument, s,    e.g. "BUMP"    or "BUMPY"
<    - less than comparison (a dyad)
 2   - literal 2 (a nilad)
  \  - n-wise overlapping reduction when preceded by a dyad-nilad chain
       (i.e. reduce the list by pairs with less than)
                                           e.g. [1,0,1]   or [1,0,1,1]
   I  - consecutive differences,           e.g. [-1,1]    or [-1,1,0]
    Ạ - All, 0 if any values are 0 else 1, e.g. 1         or 0

Działa dla wszystkich wielkich lub małych liter.

Japt, 8 bajtów

Uä> ä- e

Przetestuj online!

Jak to działa

Uä> ä- e  // Implicit: U = input string
Uä>       // Map each pair of chars X, Y in U to X > Y.
    ä-    // Map each pair of items in the result to X - Y.
          // If there are two consecutive rises or falls, the result contains a zero.
       e  // Check that every item is truthy (non-zero).
          // Implicit: output last expression

C # 105 104 Bajtów

bool f(char[]x){int t=1;for(int i=2,p=x[1],f=x[0]-p>>7;i<x.Length;)f^=t&=p<(p=x[i++])?1-f:f;return t>0;}

105 bajtów Rozwiązanie:

bool f(char[]x){bool t=1>0,f=x[0]<x[1];for(int i=2,p=x[1];i<x.Length;)f^=t&=p<(p=x[i++])?!f:f;return t;}

Wypróbuj online

Za pomocą tablicy znaków zapisano jeden bajt, ponieważ spację można pominąć po nawiasach. f(string x)vsf(char[]x)

To 101 bajtów, jeśli mogę zwrócić int 1/0 zamiast bool true / false

int f(char[]x){int t=1;for(int i=2,p=x[1],f=x[0]-p>>7;i<x.Length;)f^=t&=p<(p=x[i++])?1-f:f;return t;}

Haskell, 52 bajty

f x=and$g(/=)$g(>)x
  where g h y=zipWith h(tail y)y

Podejrzewam, że mógłbym zmniejszyć ten kawałek, jeśli udało mi się pozbyć konstruktu „gdzie”, ale prawdopodobnie utknąłem z zipWith.

Działa to poprzez utworzenie listy wzlotów (Prawda) i upadków (Fałsz), a następnie sporządzenie listy, jeśli sąsiednie wpisy na tej liście są różne

To jest moja pierwsza próba jednego z nich, więc przejdę przez proces myślowy, na wypadek, gdybym gdzieś strasznie się pomylił.

Wersja bez golfa (168 bajtów)

isBumpy :: [Char] -> Bool
isBumpy input = and $ areBumps $ riseFall input
  where
    riseFall ax@(x:xs) = zipWith (>) xs ax
    areBumps ax@(x:xs) = zipWith (/=) xs ax

Skróć nazwy, usuń informacje o typie (100 bajtów)

f x = and $ g $ h x
  where
    h ax@(x:xs) = zipWith (>) xs ax
    g ax@(x:xs) = zipWith (/=) xs ax

Przenieś h do głównej funkcji, ponieważ jest używana tylko raz (86 bajtów)

f ax@(x:xs) = and $ g $ zipWith (>) xs ax
  where
    g ax@(x:xs) = zipWith (/=) xs ax

Zrozum, że areBumps i riseFall są wystarczająco podobne do abstrakcyjnych (73 bajtów)

f x  = and $ g (/=) $ g (>) x
  where
    g h ya@(y:ys) = zipWith h ys ya

Zauważ, że (ogon y) jest krótszy niż ya @ (y: ys) (70 bajtów)

f x  = and $ g (/=) $ g (>) x
  where
    g h y = zipWith h (tail y) y

Sprzątać; usuń niepotrzebne spacje (52 bajty)

f x=and$g(/=)$g(>)x
  where g h y=zipWith h(tail y)y

Java 7, 157 153 150 125 117 bajtów

int c(char[]z){for(int i=2,a,b,c;i<z.length;i++)if(((a=z[i-1])<(c=z[i])&(b=z[i-2])<a)|(a>=c&b>=a))return 0;return 1;}

Przypadki bez golfa i testy:

Wypróbuj tutaj.

class M{
  static int c(char[] z){
    for(int i = 2, a, b, c; i < z.length; i++){
      if(((a = z[i-1]) < (c = z[i]) & (b = z[i-2]) < a) | (a >= c & b >= a)){
        return 0; //false
      }
    }
    return 1; //true
  }

  public static void main(String[] a){
    System.out.print(c("ABA".toCharArray()) + ", ");
    System.out.print(c("ABB".toCharArray()) + ", ");
    System.out.print(c("BAB".toCharArray()) + ", ");
    System.out.print(c("BUMP".toCharArray()) + ", ");
    System.out.print(c("BALD".toCharArray()) + ", ");
    System.out.print(c("BALDY".toCharArray()) + ", ");
    System.out.print(c("UPWARD".toCharArray()) + ", ");
    System.out.print(c("EXAMINATION".toCharArray()) + ", ");
    System.out.print(c("AZBYCXDWEVFUGTHSIRJQKPLOMN".toCharArray()) + ", ");

    System.out.print(c("AAA".toCharArray()) + ", ");
    System.out.print(c("ACE".toCharArray()) + ", ");
    System.out.print(c("THE".toCharArray()) + ", ");
    System.out.print(c("BUMPY".toCharArray()) + ", ");
    System.out.print(c("BALDING".toCharArray()) + ", ");
    System.out.print(c("ABCDEFGHIJKLMNOPQRSTUVWXYZ".toCharArray()) + ", ");
  }
}

Wydajność:

1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0

PowerShell v2 +, 83 bajty

param($n)($a=-join(1..($n.Length-1)|%{+($n[$_-1]-lt$n[$_])}))-eq($a-replace'00|11')

Trochę innego podejścia. Te pętle przez wejście $n, każda iteracja widząc czy poprzedni znak $n[$_-1]jest -less than obecny charakter $n[$_], a następnie rzucając wynik tego operatora logicznego do int z +. Są one -joinedytowane razem w ciąg, przechowywany w $a. Następnie sprawdzamy, czy $ajest to -eqprzydatne $aprzy jakichkolwiek podciągach 00lub 11usuniętych.

Python 2.7, 84 bajty

s=input()
b=s[0]<s[1]
o=1
for i in range(len(s)-1):o&=(s[i]<s[i+1])==b;b^=1
print o

Zwraca 1 dla wyboistej, 0 dla innej

Nauczyłem się fajnych rzeczy z bitowym & i ^.
Zaczyna się od wartości logicznej b definiującej pierwszą parę jako góra / dół, a następnie testuje i odwraca b dla każdej następnej pary.
o zmienia się na fałsz, jeśli test się nie powiedzie i zaciął.
Wymaga cudzysłowu wokół danych wejściowych (+4 bajty dla raw_input (), jeśli łamie to jakąś regułę)

Sprawdź to

05AB1E , 9 bajtów

SÇ¥0›¥_O_

Wyjaśnienie

SÇ          # convert to list of ascii values
  ¥         # take delta's
   0›       # check if positive, giving a list of 1's and 0's
            # if they alternate, the word is bumpy
     ¥      # take delta's again, if we have any 0's in the list the word is not bumpy
      _     # logical negation, turning 0 into 1 and everything else to 0
       O    # sum, producing 0 for a bumpy word and 1 for a non-bumpy word
        _   # logical negation, inverting the previous 1 into 0 and vice versa

Wypróbuj online!

Python 2.7 (ponownie, 84 83 bajty)

def a(s):x=s[1:];return[cmp(s[0],x)]+a(x) if x else []
print len(set(a(input())))>1

Lub 78 77 bajtów bez nadruku.

Nawiasem mówiąc, powyższy 56-bajtowy przykład Python 2.7 łamie się, na przykład, "abbab"lub inne dane wejściowe z powtarzającymi się znakami. Nieważne, nie przeczytałem instrukcji. Korekta

Okej, do 83. Trojka jest jednak ładniejsza.

CJam , 15 bajtów

l2ew::<2ew::^:*

Wypróbuj online! (Jako pakiet testowy oddzielony od linii).

Wyjaśnienie

l    e# Read input.
2ew  e# Get all (overlapping) pairs.
::<  e# Check whether each pair is strictly ascending (1) or not (0).
2ew  e# Get all (overlapping) pairs.
::^  e# Take the bitwise XOR of each pair, giving 1 if a rise and a fall alternate,
     e# and zero if there are two rises or two falls in succession.
:*   e# Product. Gives 1 only if the previous step yielded a list of 1s, meaning
     e# that any two consecutive rises/falls will turn this into a zero.

PHP, 80 bajtów

$s=$argv[1];for($c=$s[0];$n=$s[++$i];$c=$n,$d=$e)if($d===$e=$n>$c)break;echo!$n;

lub

for($c=$argv[1][0];$n=$argv[1][++$i];$c=$n,$d=$e)if($d===$e=$n>$c)break;echo!$n;

puste wyjście dla false, 1dla true

lub rekursywne podejście Hedi przeniesione i trochę golfa za 70 bajtów:

function f($s){return!$s[2]|$s[0]<$s[1]^$s[1]<$s[2]&&f(substr($s,1));}

W rzeczywistości powinno to powtarzać się w nieskończoność dla wyboistych słów, ale tak nie jest!

Haskell, 30 37 bajtów

q f=tail>>=zipWith f;k=and.q(/=).q(>)

Stosowanie:

Prelude> k <$> words "ABA ABB BAB BUMP BALD BALDY UPWARD EXAMINATION AZBYCXDWEVFUGTHSIRJQKPLOMN"
[True,True,True,True,True,True,True,True,True]

Prelude> k <$> words "AAA BBA ACE THE BUMPY BALDING ABCDEFGHIJKLMNOPQRSTUVWXYZ"
[False,False,False,False,False,False,False]

PHP 7, 137 118 bajtów

for($i=0;$i<strlen($argv[1])-2;$i++)if(((($s[$i]<=>$s[$i+1])<0)?1:0)==((($s[$i+1]<=>$s[$i+2])<0)?1:0)){echo"0";break;}

Puste wyjście dla Wyboista, 0dla Nie wyboista.

To moja pierwsza próba gry w golfa i muszę wiele poprawić, ale była to dla mnie wspaniała metoda uczenia się nowych rzeczy. Chciałem też rzucić wyzwanie temu zadaniu, używając nowego operatora kosmicznego PHP 7, który wydaje się bardzo interesujący.

W każdym razie nie jestem z tego zadowolony, przede wszystkim dlatego, że musiałem dodać dodatkowy, if(isset($s[$i+2]))aby sprawdzić, czy zmienna istnieje, ponieważ nie znalazłem innego obejścia problemu, ale na razie to tyle. (Uwaga: Naprawiłem to, zmieniając strlen($s)-1na strlen($s)-2, tak naprawdę nie widziałem tego wcześniej ...).

Kod testowy:

$as = array("ABA", "ABB", "BAB", "BUMP", "BALD", "BALDY", "UPWARD", 
            "EXAMINATION", "AZBYCXDWEVFUGTHSIRJQKPLOMN", "AAA", "BBA", 
            "ACE", "THE", "BUMPY", "BALDING", "ABCDEFGHIJKLMNOPQRSTUVWXYZ");

foreach ($as as $s) {
    for($i=0;$i<strlen($s)-2;$i++)if(((($s[$i]<=>$s[$i+1])<0)?1:0)==((($s[$i+1]<=>$s[$i+2])<0)?1:0)){echo"0";break;}
}

Przetestuj online

JavaScript ES6, 100 bajtów

d="charCodeAt";a=b=>{f=r=0;for(i=1;i<b.length;i++){if(b[d](i)<=b[d](i-1)){f=1}else{r=1}}return f&&r}

Wypróbuj tutaj:

d="charCodeAt";a=b=>{f=r=0;for(i=1;i<b.length;i++){if(b[d](i)<=b[d](i-1)){f=1}else{r=1}}return f&&r}
alert(a(prompt()));

Och, dwie osoby już mnie pobiły o 40 bajtów ... cokolwiek

Python 3, 148 139 127 bajtów

def _(w):*r,=map(lambda a,b:0>ord(a)-ord(b)and-1or 1,w,w[1:]);s=len(r)%2==0and r+[r[0]]or r;return sum(s)in(-1,1)and s==s[::-1]

kod testowy

positives = ('ABA', 'ABB', 'BAB', 'BUMP', 'BALD', 'BALDY', 'UPWARD', 'EXAMINATION', 'AZBYCXDWEVFUGTHSIRJQKPLOMN')
negatives = ('AAA', 'BBA', 'ACE', 'THE', 'BUMPY', 'BALDING', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')

for w in positives:
    print(_(w), w)
    assert _(w)

for w in negatives:
    print(_(w), w)
    assert not _(w)

DO, 65 57 60 bajtów

 r;f(char*s){for(r=0;*++s&&(r=~r&1<<(*s>*(s-1))););return r;}

jest naprawiony

r;f(char*s){for(;*++s&&(r=~r&1<<(*s>*(s-1))););return r;}

który działa poprawnie z dowolnymi danymi tylko przy wywołaniu jednej funkcji (gdy zmienna globalna rjest inicjowana na zero).

Ale w każdym razie jest to krótsze niż poprzednie rozwiązanie (65 bajtów) z powodu użycia forzamiast while. Ale poprzednie (poniższe) jest nieco łatwiejsze do zrozumienia:

r;f(char*s){while(*++s)if(!(r=~r&1<<(*s>*(s-1))))break;return r;}

Moje rozwiązanie opiera się na bitowym &odwróceniu poprzedniego i bieżącego kodu kierunkowego, gdzie kod kierunkowy może być 2( 1<<1) dla zwiększenia kodu znakowego ( *s > *(s-1)) lub 1( 1<<0) w przeciwnym razie. Wynik tej operacji stał się 0, jeśli użyjemy tego samego kodu kierunkowego co poprzedni i bieżący, tj. Gdy słowo nie jest nierówne.

AKTUALIZACJA:

Kod do testowania:

#include <stdio.h>
#include <string.h>

r;f(char*s){for(;*++s&&(r=~r&1<<(*s>*(s-1))););return r;}

int main(void)
{
    char * Truthy[] = { "ABA", 
                        "ABB", 
                        "BAB",
                        "BUMP",
                        "BALD",
                        "BALDY",
                        "UPWARD",
                        "EXAMINATION",
                        "AZBYCXDWEVFUGTHSIRJQKPLOMN" };
    char * Falsey[] = { "AAA",
                        "BBA",
                        "ACE",
                        "THE",
                        "BUMPY",
                        "BALDING",
                        "ABCDEFGHIJKLMNOPQRSTUVWXYZ"};
    int posTestNum = sizeof(Truthy) / sizeof(char *);
    int negTestNum = sizeof(Falsey) / sizeof(char *);
    int i;
    int rate = 0;
    int tests = 0;
    int res = 0;
    printf("Truthy (%d tests):\n", posTestNum);
    for (i = 0; i < posTestNum; i++)
    {
        tests++;
        printf("%s - %s\n", Truthy[i], f(Truthy[i]) ? (rate++, "OK") : "Fail");
        r = 0;
    }
    printf("\nFalsey (%d tests):\n", negTestNum);
    for (i = 0; i < negTestNum; i++)
    {
        tests++;
        printf("%s - %s\n", Falsey[i], f(Falsey[i]) ? "Fail" : (rate++, "OK"));
        r = 0;
    }
    printf("\n%d of %d tests passed\n", rate, tests);
    return 0;
}

PHP, 100 bajtów

for($s=$argv[1];$i<strlen($s)-1;$i++)$s[$i]=$s[$i+1]>$s[$i]?r:f;echo str_replace([rr,ff],'',$s)==$s;

Zastępuje każdy char łańcucha (z wyjątkiem ostatniego, oczywiście) z rza wzrost lub fna jesieni i następnie sprawdza, czy rrlub ffwystąpić w ciągu. Aby uniknąć sytuacji, w której ostatni pozostały znak przeszkadza w tym, dane wejściowe muszą być pisane wielkimi literami.

Jestem bardzo niezadowolony z pętli, na przykład mam wrażenie, że musi istnieć sposób na połączenie $i++jednej z kilku $iużywanych w pętli, ale nie udało mi się jej znaleźć. Może ktoś to widzi.

(Dlatego też opublikowałem swój kod, mimo że jest on o 20 (!) Bajtów dłuższy niż dobre rozwiązanie Tytusa).

Java 8, 114 90 bajtów

(c,b)->{b=c[0]<c[1];for(int i=2;i<c.length;i++)if(c[i]>c[i-1]!=(b=!b))return 0;return 1;};

Nie testowany program testowy

public static void main(String[] args) {
    BiFunction<char[], Boolean, Integer> func = (c, b) -> {
        b = c[0] < c[1];
        for (int i = 2; i < c.length; i++) {
            if (c[i] > c[i - 1] != (b = !b)) {
                return 0;
            }
        }
        return 1;
    };

    System.out.println(func.apply("ABCDEFG".toCharArray(), false));
    System.out.println(func.apply("AZBYCXDGEF".toCharArray(), false));
    System.out.println(func.apply("ZXZXZX".toCharArray(), false));
    System.out.println(func.apply("ZXCYZ".toCharArray(), false));
    System.out.println(func.apply("AAA".toCharArray(), false));
}