(lấy cảm hứng từ thử thách này trên Puzzling - SPOILERS cho câu đố đó ở bên dưới, vì vậy hãy dừng đọc ở đây nếu bạn muốn tự mình giải câu đố đó!)

Nếu một chữ cái trong một từ xuất hiện muộn hơn so với chữ cái trước đó trong từ, chúng ta gọi đó là sự gia tăng giữa hai chữ cái. Mặt khác, kể cả nếu nó cùng một chữ cái , nó được gọi là một mùa thu .

Ví dụ, từ ACEnày có hai lần tăng ( Ađến Cvà Cđi E) và không có lần rơi, trong khi THEcó hai lần rơi ( Tđến Hvà Hđi E) và không tăng.

Chúng tôi gọi một từ Bumpy nếu chuỗi tăng và giảm xen kẽ. Ví dụ: BUMPđi lên ( Bđến U), giảm ( Uđến M), tăng ( Mđến P). Lưu ý rằng chuỗi đầu tiên không cần phải tăng - BALDđi xuống-tăng-giảm và cũng là Bumpy.

Các thách thức

Đưa ra một từ, đầu ra cho dù đó có phải là Bumpy hay không.

Đầu vào

• Một từ (không nhất thiết phải là một từ trong từ điển) chỉ bao gồm các chữ cái trong bảng chữ cái ASCII ( [A-Z]hoặc [a-z]), ở bất kỳ định dạng phù hợp nào .
• Sự lựa chọn của bạn nếu đầu vào là tất cả chữ hoa hoặc tất cả chữ thường, nhưng nó phải nhất quán.
• Từ này sẽ có ít nhất 3 ký tự.

Đầu ra

Một truthy / falsey giá trị cho dù từ đầu vào là Bumpy (truthy) hay không Bumpy (falsey).

Những quy định

• Một chương trình đầy đủ hoặc một chức năng được chấp nhận.
• Sơ hở tiêu chuẩn bị cấm.
• Đây là môn đánh gôn, vì vậy tất cả các quy tắc chơi gôn thông thường đều được áp dụng và mã ngắn nhất (tính bằng byte) sẽ thắng.

Ví dụ

Sự thật:

ABA
ABB
BAB
BUMP
BALD
BALDY
UPWARD
EXAMINATION
AZBYCXDWEVFUGTHSIRJQKPLOMN

Falsey:

AAA
BBA
ACE
THE
BUMPY
BALDING
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Bảng xếp hạng

Dưới đây là Stack Snippet để tạo cả bảng xếp hạng thông thường và tổng quan về người chiến thắng theo ngôn ngữ.

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

# Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

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

Nếu ở đó bạn muốn bao gồm nhiều số trong tiêu đề của mình (ví dụ: vì điểm của bạn là tổng của hai tệp hoặc bạn muốn liệt kê riêng các hình phạt cờ phiên dịch), hãy đảm bảo rằng điểm thực tế là số cuối cùng trong tiêu đề:

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

Bạn cũng có thể đặt tên ngôn ngữ thành liên kết sau đó sẽ hiển thị trong đoạn trích bảng xếp hạng:

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

d0>d

Giải trình:

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

Đây là mục nhập MATL đầu tiên của tôi, vì vậy tôi tự hỏi có bao nhiêu sự cải thiện có thể có từ cổng ngây thơ này từ nỗ lực MATLAB / Octave của tôi (sẽ có @(a)all(diff(diff(a)>0))). Lưu ý rằng điều allnày là không cần thiết bởi vì bất kỳ số 0 nào đều làm cho một mảng sai, vì vậy không có Atrong cổng MATL.

JavaScript (ES6), 75 69 63 46 43 byte

Đã lưu 3 byte nhờ Neil:

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

Phá hủy tham số chuỗi thay vì s.slice(1).

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

Điều gì đã xảy ra từ giải pháp trước từng bước:

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

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

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

Tất cả các chữ cái trong một từ phải có cùng một trường hợp.

LabVIEW, 36 byte tương đương

Đánh xuống bằng cách sử dụng tương đương logic:

Ung dung:

Đầu tiên chúng ta chuyển đổi thành chữ thường, sau đó đến mảng byte. Cắt bỏ phần tử đầu tiên của mảng byte vì nó không có tiền lệ. Sau đó, đối với từng phần tử trong mảng, hãy kiểm tra xem nó có lớn hơn phần tử trước không (ánh xạ U8 tới ASCII như bạn mong đợi) và lưu trữ kết quả cho lần lặp tiếp theo, cũng như trong một mảng để xem độ gập tổng thể. Nếu kiểm tra boolean hiện tại và trước đó bằng nhau, chúng tôi chấm dứt vòng lặp và nó không bị gập ghềnh. Khác, nó gập ghềnh!

Python, 56 byte

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

Tất cả các trường hợp thử nghiệm là ở ideone

Kéo qua bộ ba ký tự trong s và kiểm tra rằng tất cả các bộ ba như vậy có cặp trái và phải với các thuộc tính tăng / giảm khác nhau.
Hoạt động cho tất cả chữ hoa hoặc tất cả chữ thường.

Hồng ngọc 57 48 byte

Dự kiến ​​đầu vào là tất cả chữ hoa.

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

Xem nó trên repl.it: https://repl.it/D7SB

Giải trình

Biểu thức chính quy /.(?=(.)(.))/khớp với mỗi ký tự theo sau bởi hai ký tự nữa. (?=...)là một cái nhìn tích cực, có nghĩa là chúng tôi phù hợp với hai nhân vật tiếp theo nhưng không "tiêu thụ" chúng như một phần của trận đấu. Bên trong các dấu ngoặc nhọn, $&là văn bản trùng khớp, nhân vật đầu tiên của ba người $1và $2là những nhân vật bị bắt bên trong diện mạo. Nói cách khác, nếu chuỗi là "BUMPY", đầu tiên nó sẽ khớp "B"(và đặt nó vào $&) và bắt "U"và "M"(và đặt chúng vào $1và $2). Tiếp theo nó sẽ khớp "U"và chụp "M"và "P", v.v.

Bên trong khối, chúng tôi kiểm tra xem cặp ký tự đầu tiên ( $&và $1) có tăng hay không và ký tự thứ hai ( $1và $2) là ngã hoặc ngược lại, giống như hầu hết các câu trả lời khác. ^Biểu thức này trả về truehoặc false, được chuyển đổi thành một chuỗi và được chèn vào vị trí khớp. Kết quả là, ví dụ của chúng tôi "BUMPY"trở thành thế này:

"truetruefalsePY"

Vì chúng tôi biết đầu vào là tất cả chữ hoa, chúng tôi biết "f"sẽ chỉ xảy ra như một phần của "false"và !result[?f]cho chúng tôi câu trả lời.

C #, 64 63 55 byte

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

-8 byte từ đề xuất của Scepheo

Đây là một cổng giải pháp của Hedi cho C #. Tôi cũng đã đưa ra một giải pháp đệ quy, nhưng đệ quy không tốt bằng. Giải pháp ban đầu của tôi là dưới đây.

C # gốc của tôi, 96 94 91 byte

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 byte bằng cách sử dụng 1>0thay vì true.

-3 byte từ đề xuất của Scepheo cho giải pháp cổng ở trên

Gọi chính nó kiểm tra đệ quy rằng tăng / giảm luân phiên mỗi lần.

Ung dung:

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

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

Thạch , 6 byte

OI>0IẠ

Dựa trên câu trả lời của @sanchises .

Hãy thử trực tuyến! hoặc Xác minh tất cả.

Giải trình

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

.maplà chắc chắn không phải là giải pháp tốt nhất .

Python 2, 88 byte

Giải pháp đơn giản.

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

Dùng thử trực tuyến

Nếu các chữ cái giống nhau không tăng hoặc giảm, giải pháp sẽ là 79 byte:

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

Perl, 34 byte

Bao gồm +3 cho -p(mã chứa 'nên -ekhông thể sử dụng)

Cung cấp đầu vào chữ hoa trên STDIN:

bump.pl <<< AAA

bump.pl

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

Python, 51 byte

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

Lấy đầu vào như g('B','U','M','P')và đầu ra 1hoặc0 .

Sử dụng đối số giải nén để lấy ba chữ cái đầu tiên và kiểm tra xem hai chữ cái đầu tiên có so sánh khác với hai chữ cái thứ hai không. Sau đó, đệ quy trên phần còn lại, sử dụng phép nhân cho and.

Thạch , 6 5 byte

-1 byte nhờ @Dennis (sử dụng mức giảm tích lũy)

<2\IẠ

Tất cả các trường hợp thử nghiệm đều có tại TryItOnline

Làm sao?

<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

Hoạt động cho tất cả chữ hoa hoặc tất cả chữ thường.

Japt, 8 byte

Uä> ä- e

Kiểm tra nó trực tuyến!

Làm thế nào nó hoạt động

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 byte

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

Giải pháp 105 byte:

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

Dùng thử trực tuyến

Sử dụng một mảng các ký tự được lưu một byte vì không gian có thể được bỏ qua sau dấu ngoặc. f(string x)đấu vớif(char[]x)

Đó là 101 byte nếu tôi có thể trả về int 1/0 thay vì 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 byte

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

Tôi nghi ngờ tôi có thể có được một khối nhỏ hơn nếu tôi thoát khỏi cấu trúc "ở đâu", nhưng tôi có thể bị mắc kẹt với zipWith.

Điều này hoạt động bằng cách lập danh sách tăng (Đúng) và giảm (Sai), sau đó lập danh sách nếu các mục nhập liền kề trong danh sách này khác nhau

Đây là nỗ lực đầu tiên của tôi tại một trong những điều này, vì vậy tôi sẽ trải qua quá trình suy nghĩ của mình trong trường hợp tôi đã sai lầm khủng khiếp ở đâu đó.

Phiên bản Ungolfed (168 byte)

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

Rút ngắn tên, xóa thông tin loại (100 byte)

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

Di chuyển h vào hàm chính vì nó chỉ được sử dụng một lần (86 byte)

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

Nhận ra rằng Bumps và growFall tương tự nhau đến mức trừu tượng (73 byte)

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

Lưu ý rằng (đuôi y) ngắn hơn ya @ (y: ys) (70 byte)

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

Dọn dẹp; xóa các khoảng trắng không cần thiết (52 byte)

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

Java 7, 157 153 150 125 117 byte

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

Các trường hợp bất ngờ & thử nghiệm:

Hãy thử nó ở đây.

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

Đầu ra:

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

Một chút của một cách tiếp cận khác nhau. Vòng này thông qua các đầu vào $n, mỗi lần lặp nhìn thấy cho dù các nhân vật trước đây $n[$_-1]là -less than các nhân vật hiện tại $n[$_], sau đó đúc kết quả của mà nhà khai thác Boolean đến một int với +. Những cái đó được -joined với nhau thành một chuỗi, được lưu trữ vào $a. Sau đó chúng tôi kiểm tra xem $acó -eqphải $avới bất kỳ chuỗi con nào 00hay không 11.

Python 2.7, 84 byte

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

Trả về 1 cho gập ghềnh, 0 cho khác

Đã học một số thứ hay ho với bitwise & và ^.
Bắt đầu với boolean b xác định cặp đầu tiên là lên / xuống, sau đó kiểm tra và lật b cho mỗi cặp sau.
o lật sang sai nếu thử nghiệm thất bại và dính.
Yêu cầu trích dẫn xung quanh đầu vào (+4 byte cho raw_input () nếu điều đó phá vỡ một số quy tắc)

Kiểm tra nó

05AB1E , 9 byte

SÇ¥0›¥_O_

Giải trình

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

Hãy thử trực tuyến!

Python 2.7 (một lần nữa, 84 83 byte)

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

Hoặc, 78 77 byte mà không cần in.

Nhân tiện, ví dụ Python 2.7 56 byte ở trên phá vỡ, ví dụ, "abbab" hoặc bất kỳ đầu vào nào khác có các ký tự lặp lại. Đừng bận tâm, đã không đọc hướng dẫn. Sửa đổi.

Được rồi, xuống còn 83. Mặc dù vậy, bộ ba này đẹp hơn.

CJam , 15 byte

l2ew::<2ew::^:*

Hãy thử trực tuyến!(Là một bộ thử nghiệm được phân tách bằng nguồn cấp dữ liệu.)

Giải trình

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 byte

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

hoặc là

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

đầu ra trống cho sai, 1 cho đúng

hoặc cách tiếp cận đệ quy Hedi hungs được chuyển và một chút golf cho 70 byte:

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

Trên thực tế, điều này sẽ tái diễn vô hạn cho những từ gập ghềnh, nhưng không!

Haskell, 30 37 byte

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

Sử dụng:

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 byte

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

Đầu ra trống cho Bumpy, 0cho Không Bumpy.

Đây là nỗ lực đầu tiên của tôi trong môn đánh gôn và tôi phải cải thiện rất nhiều, nhưng đó là một phương pháp tuyệt vời để học những điều mới cho tôi. Tôi cũng muốn thử thách bản thân mình bằng cách sử dụng Toán tử tàu vũ trụ PHP 7 mới có vẻ rất thú vị.

Dù sao, tôi không hài lòng về điều đó, trước hết vì thực tế là tôi phải thêm một phần bổ sung if(isset($s[$i+2]))để kiểm tra xem biến có tồn tại không vì tôi không tìm thấy cách giải quyết khác cho vấn đề, nhưng bây giờ là lúc này. (Lưu ý: Tôi đã sửa lỗi đó đơn giản bằng cách thay đổi strlen($s)-1thành strlen($s)-2, tôi thực sự không thể thấy điều đó trước khi ...).

Mã kiểm tra:

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

Kiểm tra trực tuyến

Javascript ES6, 100 byte

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}

Hãy thử nó ở đây:

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

Ồ, hai người đã đánh bại tôi tới 40 byte ... bất cứ điều gì

Con trăn 3 148 139 127 byte

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]

mã kiểm tra

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 byte

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

là sửa chữa của

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

chỉ hoạt động chính xác với bất kỳ dữ liệu nào khi gọi hàm duy nhất (khi biến toàn cục rđược khởi tạo về 0).

Nhưng trong mọi trường hợp, điều này ngắn hơn giải pháp trước đó (65 byte) do sử dụng forthay vì while. Nhưng trước đây (sau đây) dễ hiểu hơn một chút:

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

Giải pháp của tôi dựa trên bitwise &với mã hướng hiện tại và mã đảo ngược, trong đó mã hướng có thể là 2( 1<<1) để tăng mã ký tự (*s > *(s-1) ) hoặc 1( 1<<0) nếu không. Kết quả của hoạt động này trở thành 0 nếu chúng ta sử dụng cùng mã hướng như trước và hiện tại, tức là khi từ không phải là Bumpy.

CẬP NHẬT:

Mã kiểm tra:

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

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;

Thay thế mọi char của chuỗi (trừ cái cuối cùng rõ ràng) bằng một r cho tăng hoặc một fcho mùa thu và kiểm tra sau đó cho dù rrhay ffxảy ra trong chuỗi. Để tránh rằng ký tự còn lại cuối cùng can thiệp vào đó, đầu vào phải là tất cả chữ hoa.

Tôi rất không hài lòng với vòng lặp, ví dụ tôi có cảm giác rằng phải có cách kết hợp $i++thành một trong nhiều $is được sử dụng trong vòng lặp, nhưng tôi đã thất bại trong việc tìm ra cách đó. Có lẽ người khác nhìn thấy nó.

(Đó cũng là lý do tại sao tôi đăng mã của mình, mặc dù nó dài hơn 20 (!) Byte so với giải pháp tốt đẹp của Titus.)

Java 8, 114 90 byte

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

Chương trình thử nghiệm

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