(Inspirado por este desafío en Puzzling - A continuación encontrarás SPOILERS para ese rompecabezas, ¡así que deja de leer aquí si quieres resolver ese rompecabezas por tu cuenta!)

Si una letra en una palabra aparece alfabéticamente más tarde que la letra anterior en la palabra, llamamos a eso un aumento entre las dos letras. De lo contrario, incluso si es la misma letra , se llama caída .

Por ejemplo, la palabra ACEtiene dos subidas ( Ato Cy Cto E) y ninguna caída, mientras que THEtiene dos caídas ( Tto Hy HtoE ) y ninguna subida.

Llamamos a una palabra desigual si la secuencia de subidas y bajadas alterna. Por ejemplo, BUMPsube ( Ba U), cae ( Ua M), sube ( MaP ). Tenga en cuenta que la primera secuencia no necesita ser un aumento: BALDva caída-subida-caída y también es desigual.

El reto

Dada una palabra, muestra si es Bumpy o no.

Entrada

• Una palabra (no necesariamente una palabra del diccionario) que consta de letras del alfabeto ( [A-Z]o [a-z]) ASCII solamente, en cualquier formato adecuado .
• Usted elige si la entrada es todo en mayúsculas o minúsculas, pero debe ser consistente.
• La palabra tendrá al menos 3 caracteres de longitud.

Salida

Un valor verdadero / falso para saber si la palabra de entrada es Bumpy (verdadero) o no Bumpy (falsey).

Las normas

• Un programa completo o una función son aceptables.
• Lagunas estándar están prohibidas.
• Este es el código de golf, por lo que se aplican todas las reglas habituales de golf, y gana el código más corto (en bytes).

Ejemplos

Verdad:

ABA
ABB
BAB
BUMP
BALD
BALDY
UPWARD
EXAMINATION
AZBYCXDWEVFUGTHSIRJQKPLOMN

Falsey

AAA
BBA
ACE
THE
BUMPY
BALDING
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Tablas de clasificación

Aquí hay un fragmento de pila para generar una tabla de clasificación regular y una descripción general de los ganadores por idioma.

Para asegurarse de que su respuesta se muestre, comience con un título, usando la siguiente plantilla de Markdown:

# Language Name, N bytes

¿Dónde Nestá el tamaño de su envío? Si mejora su puntaje, puede mantener los puntajes antiguos en el título, tachándolos. Por ejemplo:

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

Si desea incluir varios números en su encabezado (por ejemplo, porque su puntaje es la suma de dos archivos o desea enumerar las penalizaciones de la bandera del intérprete por separado), asegúrese de que el puntaje real sea el último número en el encabezado:

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

También puede hacer que el nombre del idioma sea un enlace que luego aparecerá en el fragmento de la tabla de clasificación:

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

Explicación:

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

Esta es mi primera entrada de MATL, así que me pregunto cuánta mejora puede haber de este puerto ingenuo de mi intento de MATLAB / Octave (que sería @(a)all(diff(diff(a)>0))). Tenga en cuenta que allno es necesario porque cualquier cero hace que una matriz sea falsa, por lo que no hay Aen el puerto MATL.

JavaScript (ES6), 75 69 63 46 43 bytes

Guardado 3 bytes gracias a Neil:

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

Desestructuración del parámetro de cadena en lugar de s.slice(1) .

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

Lo que pasó de la solución anterior paso a paso:

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}

Todas las letras en una palabra deben tener el mismo caso.

LabVIEW, 36 bytes equivalentes

Golfed hacia abajo utilizando equivalencias lógicas:

Sin golf:

Primero convertimos a minúsculas, luego a byte array. Recorte el primer elemento de la matriz de bytes, ya que no tiene precedentes. Luego, para cada elemento de la matriz, verifique si es mayor que el anterior (los mapas de caracteres U8 se asignan a ASCII como espera) y almacene el resultado para la próxima iteración, así como en una matriz para ver la irregularidad general. Si la verificación booleana actual y anterior son iguales, terminamos el ciclo y no está lleno de baches. ¡De lo contrario, está lleno de baches!

Python, 56 bytes

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

Todos los casos de prueba están en ideone

Comprime los triples de caracteres en sy comprueba que todos estos triples tienen pares izquierdo y derecho con diferentes propiedades de subida / caída.
Funciona para mayúsculas o minúsculas.

Rubí, 57 48 bytes

Espera que la entrada sea todo en mayúscula.

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

Véalo en repl.it: https://repl.it/D7SB

Explicación

La expresión regular /.(?=(.)(.))/coincide con cada carácter seguido de dos caracteres más. (?=...)es una anticipación positiva, lo que significa que hacemos coincidir los dos caracteres posteriores pero no los "consumimos" como parte de la coincidencia. Dentro de las llaves, $&es el texto del primer carácter combinado de los tres-y $1y $2son los personajes capturados dentro de la búsqueda hacia delante. En otras palabras, si la cadena es "BUMPY", primero coincidirá "B"(y la colocará $&) y capturará "U"y "M"(y las colocará $1y $2). Luego coincidirá "U"y capturará "M"y"P" , y así sucesivamente.

Dentro del bloque verificamos si el primer par de caracteres ( $&y $1) es un aumento y el segundo ( $1y $2) es una caída o viceversa, al igual que la mayoría de las otras respuestas. Esta ^expresión devuelve trueo false, que se convierte en una cadena y se inserta en lugar de la coincidencia. Como resultado, nuestro ejemplo se "BUMPY"convierte en esto:

"truetruefalsePY"

Como sabemos que la entrada es todo en mayúscula, sabemos "f"que solo ocurrirá como parte de "false"y !result[?f]nos da nuestra respuesta.

C #, 64 63 55 bytes

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

-8 bytes de las sugerencias de Scepheo

Este es un puerto de la solución de Hedi para C #. También se me ocurrió una solución recursiva, pero la recursividad no fue tan buena. Mi solución original está abajo.

Mi C # original, 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 usando en 1>0lugar de true.

-3 bytes de las sugerencias de Scepheo para la solución de puerto anterior

Se llama a sí mismo de forma recursiva comprobando que el ascenso / descenso se alterna cada vez.

Sin golf:

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

Jalea , 6 bytes

OI>0IẠ

Basado en la respuesta de @sanchises .

Pruébalo en línea! o Verificar todo.

Explicación

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 bytes

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

.mapes definitivamente no es la mejor solución .

Python 2, 88 bytes

Solución simple.

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

Pruébalo en línea

Si las mismas letras seguidas no fueran ni una subida ni una caída, la solución sería de 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

Incluye +3 para -p(el código contiene, 'por -elo que no se puede usar)

Ingrese mayúsculas en STDIN:

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

Toma entradas como g('B','U','M','P')y salidas1 o0 .

Utiliza el desempaquetado de argumentos para tomar las tres primeras letras y verificar si las dos primeras se comparan de manera diferente a las dos últimas. Luego, recurre en el resto, usando la multiplicación para and.

Jalea , 6 5 bytes

-1 byte gracias a @Dennis (use una reducción acumulativa)

<2\IẠ

Todos los casos de prueba están en TryItOnline

¿Cómo?

<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

Funciona para mayúsculas o minúsculas.

Japt, 8 bytes

Uä> ä- e

¡Pruébelo en línea!

Cómo funciona

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 Solución:

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

Pruébalo en línea

El uso de una matriz de caracteres guarda un byte, ya que el espacio puede omitirse después de los corchetes. f(string x)vsf(char[]x)

Son 101 bytes si puedo devolver un int 1/0 en lugar de bool verdadero / falso

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

Sospecho que podría reducir esto un poco más si lograra deshacerme de la construcción "where", pero probablemente estoy atrapado con zipWith.

Esto funciona haciendo una lista de las subidas (Verdadero) y las caídas (Falso), luego haciendo una lista de si las entradas adyacentes en esta lista son diferentes

Este es mi primer intento de uno de estos, así que pasaré por mi proceso de pensamiento en caso de que me haya equivocado terriblemente en alguna parte.

Versión sin golf (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

Acortar nombres, eliminar información de tipo (100 bytes)

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

Mueva h a la función principal, ya que solo se usa una vez (86 bytes)

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

Tenga en cuenta que areBumps y riseFall son lo suficientemente similares a abstract (73 bytes)

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

Tenga en cuenta que (tail y) es más corto que ya @ (y: ys) (70 bytes)

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

Ordenar; eliminar espacios innecesarios (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;}

Sin golf y casos de prueba:

Pruébalo aquí.

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

Salida:

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

PowerShell v2 +, 83 bytes

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

Un enfoque un poco diferente. Este bucle a través de la entrada $n, cada iteración viendo si el carácter anterior $n[$_-1]es -less than del carácter actual $n[$_], y luego colar el resultado de ese operador booleano a un int con +. Esos se -joineditan juntos en una cadena, almacenados en $a. Luego verificamos si $aes -equal $acon cualquier subcadena de 00o 11eliminado.

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

Devuelve 1 para desigual, 0 para lo contrario

Aprendí algunas cosas interesantes con bitwise & y ^.
Comienza con boolean b definiendo el primer par como arriba / abajo, luego prueba y voltea b para cada par siguiente.
o cambia a falso si la prueba falla y se pega.
Requiere comillas alrededor de la entrada (+4 bytes para raw_input () si eso rompe alguna regla)

Pruébalo

05AB1E , 9 bytes

SÇ¥0›¥_O_

Explicación

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

Pruébalo en línea!

Python 2.7 (nuevamente, 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

O 78 77 bytes sin la impresión.

Por cierto, el ejemplo de Python 2.7 de 56 bytes anterior se rompe, por ejemplo, "abbab"o cualquier otra entrada con caracteres repetidos.No importa, no leí las instrucciones. Revisando

De acuerdo, hasta 83. Sin embargo, el triple es más agradable.

CJam , 15 bytes

l2ew::<2ew::^:*

Pruébalo en línea! (Como un conjunto de pruebas separado por salto de línea).

Explicación

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;

o

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

salida vacía para falso, 1para verdadero

o el enfoque recursivo de Hedi portado y un poco de golf por 70 bytes:

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

En realidad, esto debería repetirse infinitamente para palabras con baches, ¡pero no es así!

Haskell, 30 37 bytes

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

Uso:

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

Salida vacía para desigual, 0 para Not Bumpy.

Este es mi primer intento de golf de código y tengo que mejorar mucho, pero fue un método maravilloso para aprender cosas nuevas para mí. También quería desafiarme en esa tarea usando el nuevo PHP 7 Operador de Nave Espacial que parece muy interesante.

De todos modos, no estoy satisfecho con eso, en primer lugar por el hecho de que tuve que agregar un extra if(isset($s[$i+2]))para verificar si la variable existe porque no encontré otra solución al problema, pero esto es todo por ahora. (Nota: lo arreglé simplemente cambiando strlen($s)-1a strlen($s)-2, realmente no podía ver eso antes ...).

Código de prueba:

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

Prueba en línea

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}

Pruébalo aquí:

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

Oh vamos dos personas ya me ganaron por 40 bytes ... lo que sea

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]

código de prueba

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, sesenta y cinco 57 60 bytes

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

es una solución de

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

que funciona correctamente con cualquier dato solo en la llamada de función única (cuando la variable global rse inicializa a cero).

Pero en cualquier caso, esto es más corto que la solución anterior (65 bytes) debido al uso de en forlugar de while. Pero el anterior (el siguiente) es un poco más fácil de entender:

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

Mi solución se basa en bit a bit &con el código de dirección anterior y actual invertido, donde el código de dirección puede ser 2( 1<<1) para el aumento del código de caracteres ( *s > *(s-1)) o 1(1<<0 ) de lo contrario. El resultado de esta operación se convirtió en 0 si utilizamos el mismo código de dirección que el anterior y el actual, es decir, cuando la palabra no es desigual.

ACTUALIZAR:

Código para pruebas:

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

Reemplaza cada carácter de la cadena (excepto el último obviamente) con un raumento o una fcaída y luego comprueba si se produce rro no ffen la cadena. Para evitar que el último carácter restante interfiera con eso, la entrada debe estar en mayúscula.

Estoy muy insatisfecho con el bucle, por ejemplo, tengo la sensación de que debe haber una forma de combinarlo $i++en uno de los varios $is utilizados en el bucle, pero no pude encontrarlo de esa manera. Quizás alguien más lo vea.

(Por eso también publiqué mi código, a pesar de que es 20 (!) Bytes más largo que la buena solución de 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;};

Programa de prueba sin golf

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