あなたの仕事は、少なくとも長さ2の正の整数のリストを受け取り、それらが「ジグザグ」であるかどうかを判別するコンピュータープログラムまたは関数を作成することです。シーケンスがジグザグになっているのは、数字が交互に前後の数字よりも大きい場合と小さい場合だけです。たとえば、とはジグザグですが、とはありません。[ 4 、2 、3 、0 、1 ] [ 1 、2 、0 、0 、3 、1 ] [ 1 、2 、3 、1 $[1,2,0,3,2]$$[4,2,3,0,1]$$[1,2,0,0,3,1]$$[1,2,3,1]$

決定のために、可能性ごとに2つの異なる一貫した値（ジグザグではなくジグザグ）のいずれかを出力する必要があります。

プログラムまたは関数のコードポイントもジグザグそのものでなければなりません。これは、一連のコードポイントを取得するとき、ジグザグになるはずであることを意味します。

これはコードゴルフであるため、回答はバイト単位でスコアリングされ、バイト数は少ない方が良いでしょう。

ゼリー、5バイト

IṠIỊẸ

（ジグザグ）または1（ジグザグではない）を返します。$0$$1$

コードポイントがあるでゼリーコードページ。$[73, 205, 73, 176, 174]$

オンラインでお試しください！

使い方

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

I      Increments; compute the forward differences of A.
 Ṡ     Take their signs.
       A is zigzag iff the signs are alternating.
  I    Take the increments again.
       Alternating signs result in an increment of -2 or 2.
       Non-alternating signs result in an increment of -1, 0, or 1.
   Ị   Insignificant; map each increment j to (|j| ≤ 1).
    Ẹ  Any; return 0 if all results are 0, 1 in any other case.

Haskell、87バイト

f(a:b:c:d)|(>)a b,b<c=f$b:c:d |(<)a b,b>c=f$b:c:d |1>0=1>12
f[a ] =1<12
f(a:b:_)= a/= b

オンラインでお試しください！

Haskellの回答の観点からボールを​​転がしたかったのです。これを改善する方法はまだわかりませんが、それができると確信しています。ここから人々ができることを楽しみにしています。

MATL、9バイト

dt?ZSd]pA

オンラインでお試しください！または、すべてのテストケースを確認します

初めてのMATLプログラム！pジグザグ要件のために最後から2番目が追加されました。

説明：

d    %take the difference between successive elements of input
t    %duplicate that
?    %if that is all non-zero
  ZS %take the sign of those differences (so input is all `-1`s and `1`s now)
  d  %take the difference of that (so if there are successive `1`s or `-1`s, this will have a 0)
]    %end-if
p    %take the product of topmost stack vector (will be 0 if either the original difference or 
     % the difference-of-signs contained a 0)
A    %convert positive products to 1 (since OP specifies "you should output one of two different consistent values for each possibility ")

パイソン2、225の 223 161 139バイト

^{-Jakobに感謝-2バイト
Dennisに感謝-62バイト}

e={eval }.pop()
p ="i"+"n"+"p"+"u"+"t ( "
s=e(p +")")
e(p +"` a"+"l"+"l([(x<y>z)+(x>y<z)f"+"o"+"r x,y,z i"+"n zip(s,s [1: ],s [2: ])])` )")

オンラインでお試しください！

でこぼこのアルゴリズムの功績はこの答えになります

input、print、exec、defとlambda私は唯一しまったので、でこぼこしていないeval上に格納され、左e
に配置制限バイパスへ2主な方法、あります"+"か非でこぼこペアの間、私は（かつてのために選んだそれぞれの使用のために短いですが、しかし、それが必要になるreplace(' ','')）複数のバイトをもたらす
のでprint、でこぼこされていない私はそれを直接使用することができない、それは私が内側にそれを使用することができないfuncionないのでeval()、私が使用していたので、input(result)出力に結果を

K（ngn / k）、23バイト

{*/ 0 >1_ *':1_ -': x }

オンラインでお試しください！

オームV2、5つのバイト

δyδ½Å

オンラインでお試しください！

$[131,121,131,16,165]$

使い方

δyδ½Å–完全なプログラム/単一引数ブロック。
δy–入力のデルタの符号 
  δ–記号の違い。2のシーケンスまたは-2の結果
        -1-1 = -2または1-（-1）= 2のどちらかを与える、交互の符号としてのでこぼこの配列。
    Å–すべての要素が次の場合に真実の結果をもたらすかどうかをチェック
   ½–半分になりました。

Japt -!、16 14バイト

まあ、これはきれいではありませんが、私はそれがうまくいくだけでうれしいです！

trueジグザグまたはfalseそうでない場合の出力。

ä'- m'g ä'a èÍ

それを試してみてください

コードポイントは[228,39,45,32,109,39,103,32,228,39,97,32,232,205]、上記のリンクのテストとして含まれています。

説明

                   :Implicit input of array
ä'-                :Consecutive differences
    m'g            :Map signs
        ä'a        :Consecutive absolute differences
             Í     :Subtract each from 2
            è      :Count the truthy (non-zero) elements
                   :Implicitly negate and output resulting boolean.

ゼリー、6 バイト

IṠµaIẠ

オンラインでお試しください！

1偽りのために、真実の0ために返します。

コードポイント：[73, 205, 9, 97, 73, 171]（有効）

Perl 6、61バイト

{ [*] ($_[{1…*} ] Z<@$_)Z+^ ($_[{1…*} ] Z>@$_[{2…*} ])}

オンラインでお試しください！

コードポイントは次のとおりです。

(123 32 91 42 93 32 40 36 95 91 123 49 8230 42 125 32 93 32 90 60 64 36 95 41 90 43 94 32 40 36 95 91 123 49 8230 42 125 32 93 32 90 62 64 36 95 91 123 50 8230 42 125 32 93 41 125)

そして、はい、それらはそこにユニコード文字です。これは多かれ少なかれ私のオリジナルのソリューションであり、いくつかのスペースと中括弧が混在しています。

05AB1E、10バイト

¥DÄ/¥(Ä2QP

オンラインでお試しください！

説明

¥           # calculate deltas of input
 DÄ/        # divide each by its absolute value
    ¥       # calculate deltas
     (      # negate each
      Ä     # absolute value of each
       2Q   # equals 2
         P  # product

コードポイントは次のとおりです。 [165, 68, 196, 47, 165, 40, 196, 50, 81, 80]

JavaScript（ES6）、62 60バイト

a=> a.map(n=> e&=!~(p | q)| q <(q=p)^ p <(p=n), e=p=q=~ 0)|e

オンラインでお試しください！

コードポイント：

61 3d 3e 20 61 2e 6d 61 70 28 6e 3d 3e 20 65 26
3d 21 7e 28 70 20 7c 20 71 29 7c 20 71 20 3c 28
71 3d 70 29 5e 20 70 20 3c 28 70 3d 6e 29 2c 20
65 3d 70 3d 71 3d 7e 20 30 29 7c

05AB1E、8 バイト

¥.±¥Ä2/P

1.0ジグザグおよび0.0非ジグザグシーケンスを返します。

コードポイントがある[164,108,176,164,195,2,109,25]に05AB1Eコードページ。

オンラインでお試しください。

説明：

¥           # Take the deltas of the (implicit) input-list
            #  i.e. [1,2,0,3,2,3] → [1,-2,3,-1,1]
 .±         # Calculate the sign for each of them (-1 if a<0; 0 if 0; 1 if a>0)
            #  i.e. [1,-2,3,-1,1] → [1,-1,1,-1,1]
   ¥        # Calculate the deltas of those
            #  i.e. [1,-1,1,-1,1] → [-2,2,-2,2]
    Ä       # Take the absolute value of each
            #  i.e. [-2,2,-2,2] → [2,2,2,2]
     2/     # Divide them by 2
            #  i.e. [2,2,2,2] → [1.0,1.0,1.0,1.0]
            # (`;` {halve} would have been shorter, but doesn't comply to the challenge)
       P    # Take the product of the list resulting in either 1.0 or 0.0
            #  i.e. [1.0,1.0,1.0,1.0] → 1.0