(Inspiriert von dieser Herausforderung bei Puzzling - SPOILERS für dieses Rätsel finden Sie weiter unten. Lesen Sie hier also nicht weiter, wenn Sie das Rätsel selbst lösen möchten!)

Wenn ein Buchstabe in einem Wort alphabetisch später als der vorherige Buchstabe im Wort vorkommt, nennen wir dies einen Anstieg zwischen den beiden Buchstaben. Andernfalls, auch wenn es derselbe Buchstabe ist , spricht man von einem Sturz .

Zum Beispiel hat das Wort ACEzwei Anstiege ( Azu Cund Czu E) und keine Anstiege , während THEes zwei Anstiege ( Tzu Hund Hzu E) und keine Anstiege hat.

Wir nennen ein Wort holprig, wenn sich die Abfolge von Anstieg und Abfall abwechselt. Zum Beispiel BUMPsteigt ( Bnach U), fällt ( Unach M), steigt ( Mnach P). Beachten Sie, dass es sich bei der ersten Sequenz nicht unbedingt um einen Anstieg handelt, sondern um einen BALDFall-Anstieg-Fall-Vorgang, der ebenfalls holprig ist.

Die Herausforderung

Geben Sie bei gegebenem Wort aus, ob es holprig ist oder nicht.

Eingang

• Ein Wort (nicht unbedingt ein Wörterbuchwort), das nur aus ASCII-Buchstaben ( [A-Z]oder [a-z]Buchstaben) in einem geeigneten Format besteht .
• Sie können wählen, ob die Eingabe nur in Groß- oder Kleinbuchstaben erfolgen soll, sie muss jedoch konsistent sein.
• Das Wort wird mindestens 3 Zeichen lang sein.

Ausgabe

Ein Wert für Wahr / Falsch, der angibt , ob das Eingabewort holprig (wahr) oder nicht holprig (falsch) ist.

Die Regeln

• Es ist entweder ein vollständiges Programm oder eine Funktion zulässig.
• Standardlücken sind verboten.
• Dies ist Codegolf, daher gelten alle üblichen Golfregeln, und der kürzeste Code (in Byte) gewinnt.

Beispiele

Wahrheit:

ABA
ABB
BAB
BUMP
BALD
BALDY
UPWARD
EXAMINATION
AZBYCXDWEVFUGTHSIRJQKPLOMN

Falsey:

AAA
BBA
ACE
THE
BUMPY
BALDING
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Bestenlisten

Hier ist ein Stack-Snippet, um sowohl eine reguläre Rangliste als auch eine Übersicht der Gewinner nach Sprache zu generieren.

Um sicherzustellen, dass Ihre Antwort angezeigt wird, beginnen Sie Ihre Antwort mit einer Überschrift. Verwenden Sie dazu die folgende Markdown-Vorlage:

# Language Name, N bytes

Wo Nist die Größe Ihres Beitrags? Wenn Sie Ihren Score zu verbessern, Sie können alte Rechnungen in der Überschrift halten, indem man sich durch das Anschlagen. Zum Beispiel:

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

Wenn Sie mehrere Zahlen in Ihre Kopfzeile aufnehmen möchten (z. B. weil Ihre Punktzahl die Summe von zwei Dateien ist oder wenn Sie die Strafen für Interpreter-Flags separat auflisten möchten), stellen Sie sicher, dass die tatsächliche Punktzahl die letzte Zahl in der Kopfzeile ist:

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

Sie können den Namen der Sprache auch als Link festlegen, der dann im Leaderboard-Snippet angezeigt wird:

# [><>](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 Bytes

d0>d

Erläuterung:

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

Dies ist mein erster MATL-Eintrag, daher frage ich mich, wie viel sich von diesem naiven Port ausgehend von meinem MATLAB / Octave-Versuch (der wäre @(a)all(diff(diff(a)>0))) verbessern lässt . Beachten Sie, dass dies allnicht erforderlich ist, da eine Null ein Array falsch macht, sodass Ader MATL-Port leer ist.

JavaScript (ES6), 75 69 63 46 43 Byte

3 Bytes gespart dank Neil:

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

Destructuring the string parameter statt s.slice(1).

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

Was passierte aus der vorherigen Lösung Schritt für Schritt:

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 Bytes:

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 Bytes:

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

Alle Buchstaben in einem Wort müssen die gleiche Groß- und Kleinschreibung haben.

LabVIEW, 36 äquivalente Bytes

Golfen mit logischen Äquivalenzen:

Ungolfed:

Zuerst konvertieren wir in Kleinbuchstaben, dann in Bytearray. Schneiden Sie das erste Element des Byte-Arrays ab, da es keinen Präzedenzfall hat. Überprüfen Sie dann für jedes Element im Array, ob es größer als das vorherige ist (U8-Zeichen wird erwartungsgemäß in ASCII abgebildet), und speichern Sie das Ergebnis für die nächste Iteration sowie in einem Array, um die allgemeine Unebenheit anzuzeigen. Wenn die aktuelle und die vorherige Boolesche Prüfung gleich sind, beenden wir die Schleife und sie ist nicht holprig. Sonst ist es holprig!

Python, 56 Bytes

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

Alle Testfälle sind auf ideone

Zippt durch Dreiergruppen von Zeichen in s und prüft, ob alle Dreiergruppen linke und rechte Paare mit unterschiedlichen Anstiegs- / Abfall-Eigenschaften haben.
Funktioniert entweder für Groß- oder Kleinbuchstaben.

Ruby, 57 48 Bytes

Erwartet, dass die Eingabe in Großbuchstaben erfolgt.

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

Siehe es auf repl.it: https://repl.it/D7SB

Erläuterung

Der reguläre Ausdruck /.(?=(.)(.))/entspricht jedem Zeichen, auf das zwei weitere Zeichen folgen. (?=...)ist ein positiver Lookahead, was bedeutet, dass wir die folgenden beiden Zeichen abgleichen, sie jedoch nicht als Teil des Abgleichs "verbrauchen". In geschweiften Klammern, $&ist die abgestimmte text das erste Zeichen des Drei und $1und $2sind im Inneren des Vorgriffs - die erfassten Zeichen. Mit anderen Worten, wenn es sich um eine Zeichenfolge handelt "BUMPY", wird diese zuerst mit der Zeichenfolge übereinstimmen "B"(und sie einfügen $&) und sie erfassen "U"und "M"(und sie einfügen $1und $2). Als nächstes wird es passen "U"und zu erfassen "M"und "P", und so weiter.

Innerhalb des Blocks prüfen wir, ob das erste Zeichenpaar ( $&und $1) ein Anstieg und das zweite ( $1und $2) ein Abfall ist oder umgekehrt, ähnlich wie bei den meisten anderen Antworten. Dieser ^Ausdruck gibt trueoder zurück false, das in eine Zeichenfolge konvertiert und anstelle der Übereinstimmung eingefügt wird. Infolgedessen lautet unser Beispiel wie "BUMPY"folgt:

"truetruefalsePY"

Da wir wissen, dass die Eingabe nur in Großbuchstaben erfolgt, wissen wir, dass "f"sie nur als Teil von auftritt "false"und !result[?f]geben uns unsere Antwort.

C #, 64 63 55 Bytes

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

-8 Bytes aus Scepheos Vorschlägen

Dies ist eine Portierung von Hedis Lösung für C #. Ich habe auch eine rekursive Lösung gefunden, aber die Rekursion war nicht so gut. Meine ursprüngliche Lösung ist unten.

My Original C #, 96 94 91 Bytes

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 Bytes mit 1>0anstelle von true.

-3 Bytes aus Scepheos Vorschlägen für die Port-Lösung oben

Ruft sich selbst rekursiv auf und prüft, ob das Steigen / Fallen jedes Mal wechselt.

Ungolfed:

// 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 Bytes

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

Gelee , 6 Bytes

OI>0IẠ

Basierend auf der Antwort von @sanchises .

Probieren Sie es online! oder Alle überprüfen.

Erläuterung

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 Byte

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

.mapist definitiv nicht die beste lösung .

Python 2, 88 Bytes

Einfache lösung.

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:]))

Probieren Sie es online aus

Wenn die gleichen Buchstaben in einer Reihe weder ein Anstieg noch ein Abfall wären, wäre die Lösung 79 Bytes:

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

Perl, 34 Bytes

Beinhaltet +3 für -p(Code enthält 'so-e kann also nicht verwendet werden)

Geben Sie bei STDIN Großbuchstaben ein:

bump.pl <<< AAA

bump.pl

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

Python, 51 Bytes

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

Nimmt Ein- g('B','U','M','P')und Ausgänge wie 1oder0 .

Verwendet das Auspacken von Argumenten, um die ersten drei Buchstaben zu nehmen und zu prüfen, ob die ersten beiden anders sind als die zweiten beiden. Wiederholt dann den Rest mit der Multiplikation für and.

Gelee , 6 5 Bytes

-1 Byte dank @Dennis (verwenden Sie eine kumulative Reduktion)

<2\IẠ

Alle Testfälle sind bei TryItOnline

Wie?

<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

Funktioniert entweder für Groß- oder Kleinbuchstaben.

Japt, 8 Bytes

Uä> ä- e

Online testen!

Wie es funktioniert

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 Bytes

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 Bytes Lösung:

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

Probieren Sie es online aus

Durch die Verwendung eines Arrays von Zeichen wurde ein Byte gespart, da das Leerzeichen hinter den Klammern weggelassen werden kann. f(string x)vsf(char[]x)

Es sind 101 Bytes, wenn ich ein int 1/0 anstelle von bool true / false zurückgeben kann

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 Bytes

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

Ich vermute, ich könnte diesen Teil verkleinern, wenn ich das "where" -Konstrukt entfernen könnte, aber ich stecke wahrscheinlich mit zipWith fest.

Dies funktioniert, indem eine Liste der Aufstiege (True) und Abfälle (False) erstellt und dann eine Liste erstellt wird, ob die angrenzenden Einträge in dieser Liste unterschiedlich sind

Dies ist mein erster Versuch, also werde ich meinen Denkprozess durchgehen, falls ich irgendwo schrecklich schief gelaufen bin.

Ungolfed Version (168 Bytes)

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

Namen kürzen, Typinformationen entfernen (100 Bytes)

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

Bewegen Sie h in die Hauptfunktion, da diese nur einmal verwendet wird (86 Bytes)

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

Stellen Sie fest, dass areBumps und riseFall abstrakt genug sind (73 Byte)

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

Beachten Sie, dass (tail y) kürzer ist als ya @ (y: ys) (70 Bytes)

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

Aufräumen; entferne nicht benötigte Leerzeichen (52 Bytes)

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

Java 7, 157 153 150 125 117 Bytes

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

Ungolfed & Testfälle:

Probieren Sie es hier aus.

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()) + ", ");
  }
}

Ausgabe:

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

PowerShell v2 +, 83 Byte

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

Ein etwas anderer Ansatz. Diese Schleifen durch den Eingang $n, da jede Iteration , ob die vorhergehenden Zeichen $n[$_-1]sind -less than das aktuelle Zeichen $n[$_], dann mit dem Ergebnis des booleschen Operators in einen int Gießen +. Diese werden -joinzu einer Zeichenfolge zusammengefasst und in gespeichert $a. Wir prüfen dann , ob $aist -equal zu $amit irgendwelchen Teil von 00oder 11entfernt.

Python 2.7, 84 Bytes

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

Gibt 1 für holprig, 0 für sonst

Ich habe ein paar coole Sachen mit bitweise & und ^ gelernt.
Beginnt mit dem Booleschen Wert b, der das erste Paar als Auf / Ab definiert, und testet und kippt b für jedes folgende Paar.
o wechselt zu false, wenn der Test fehlschlägt und nicht erfolgreich ist.
Erfordert Anführungszeichen um die Eingabe (+4 Bytes für raw_input (), wenn dies gegen eine Regel verstößt)

Probier es aus

05AB1E , 9 Bytes

SÇ¥0›¥_O_

Erläuterung

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

Probieren Sie es online!

Python 2.7 (wieder 84 83 Bytes)

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

Oder 78 77 Bytes ohne den Druck.

Übrigens, das obige 56-Byte-Python-2.7-Beispiel setzt zum Beispiel bei "abbab"jeder anderen Eingabe mit wiederholten Zeichen ein.Macht nichts, habe keine Anweisungen gelesen. Überarbeitung.

Okay, bis auf 83. Das Dreifache ist allerdings schöner.

CJam , 15 Bytes

l2ew::<2ew::^:*

Probieren Sie es online!(Als durch Zeilenvorschub getrennte Testsuite.)

Erläuterung

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 Bytes

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

oder

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

leere Ausgabe für falsch, 1 für wahr

oder Hedis rekursiver Ansatz portiert und ein wenig golfen für 70 Bytes:

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

Eigentlich sollte dies für holprige Wörter unendlich lange dauern, aber das tut es nicht!

Haskell, 30 37 Bytes

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

Verwendung:

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 Bytes

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

Leere Ausgabe für Bumpy, 0 für nicht holprig.

Dies ist mein erster Versuch, Code Golf zu spielen, und ich muss mich sehr verbessern, aber es war eine wunderbare Methode, um neue Dinge für mich zu lernen. Ich wollte mich bei dieser Aufgabe auch mit dem neuen PHP 7 Spaceship Operator herausfordern, was sehr interessant zu sein scheint.

Jedenfalls bin ich damit nicht zufrieden, vor allem, weil ich ein Extra hinzufügen musste, um if(isset($s[$i+2]))zu überprüfen, ob die Variable existiert, weil ich keine andere Lösung für das Problem gefunden habe, aber das ist es jetzt. (Anmerkung: Ich habe das behoben, indem ich einfach zu gewechselt strlen($s)-1habe strlen($s)-2, das konnte ich vorher nicht wirklich sehen ...).

Testcode:

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

Online testen

Javascript ES6, 100 Bytes

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}

Probieren Sie es hier aus:

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()));

Ach komm schon, zwei Leute haben mich schon um 40 Bytes geschlagen ... was auch immer

Python 3, 148 139 127 Bytes

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]

Testcode

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)

C, 65 57 60 Bytes

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

ist fix von

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

Das funktioniert mit allen Daten nur bei einem einzelnen Funktionsaufruf (wenn die globale Variable rauf Null initialisiert ist).

In jedem Fall ist dies jedoch kürzer als die vorherige Lösung (65 Byte), da foranstelle von verwendet wird while. Aber vorheriges (folgendes) ist ein bisschen einfacher zu verstehen:

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

Meine Lösung basiert auf bitweise &mit invertiertem vorherigen und aktuellen Richtungscode, wobei der Richtungscode 2( 1<<1) sein kann, um den Zeichencode zu erhöhen ( *s > *(s-1)) oder 1( 1<<0) auf andere Weise. Das Ergebnis dieser Operation wurde 0, wenn wir den gleichen Richtungscode wie zuvor und aktuell verwenden, dh wenn das Wort nicht holprig ist.

AKTUALISIEREN:

Code zum Testen:

#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 Bytes

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;

Ersetzt jedes Zeichen der Zeichenkette ( mit Ausnahme des letzten offensichtlich) mit einem rfür Aufstieg oder einem ffür den Herbst und dann überprüft , ob rroder ffin der Zeichenfolge auftreten. Um zu vermeiden, dass das letzte verbleibende Zeichen dies beeinträchtigt, muss die Eingabe in Großbuchstaben erfolgen.

Ich bin sehr unzufrieden mit der Schleife, zum Beispiel habe ich das Gefühl, dass es eine Möglichkeit geben muss, die $i++in einer der mehreren $iin der Schleife verwendeten S zu kombinieren , aber ich habe diese Möglichkeit nicht gefunden. Vielleicht sieht es jemand anderes.

(Das ist auch der Grund, warum ich meinen Code gepostet habe, obwohl er 20 (!) Bytes länger ist als die nette Lösung von Titus.)

Java 8, 114 90 Bytes

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

Ungolfed Testprogramm

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