正の整数を取り込むプログラムまたは関数を作成します。入力が有効であり、文字列として受け取ることができると想定できます。番号が

123
234
345
456
567
678
789

その後、真の値を出力します。それ以外の場合は、偽の値を出力します。たとえば、入力

1
2
3
12
122
124
132
321
457
777
890
900
1011
1230
1234

すべて偽の出力になる必要があります。（入力には先行ゼロがないため、などのことを心配する必要はありません012。）

バイト単位の最短コードが優先されます。

Python、24バイト

range(123,790,111).count

0または1を出力する匿名関数。リスト[123, 234, 345, 456, 567, 678, 789]を作成し、入力が出現する回数をカウントします。

f=range(123,790,111).count

f(123)
=> 1
f(258)
=> 0

Python、24バイト

lambda n:n%111==12<n<900

たくさんの条件チェーン。

Haskell、22バイト

(`elem`[123,234..789])

匿名関数。等間隔のリスト[123, 234, 345, 456, 567, 678, 789]を生成し、入力が要素かどうかを確認します。

Brachylog、9バイト

h:2j:12+?

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

アルゴリズムのデニスへのクレジット。

英語では、「（それを証明する）入力の最初の数字は、それ自体に2回連結され、12を追加すると、まだ入力です。」

Python 2、25バイト

lambda n:`n-12`==`n`[0]*3

Ideoneでテストします。

Brain-Flak 76 + 3 = 79バイト

この答えはのゴルフで、この答え。私は実際に私の答えがどのように機能するかをよく知りませんが、DJMcMayhemは彼の元の答えで良い説明を与え、私の答えは彼の修正です。

([]<>)<>({}[({})]<>)<>(({}[({})()()()()()]<>{}{}<(())>)){{}{}(((<{}>)))}{}{}

-a asciiフラグを3バイト追加して実行されます。

説明（種類の）

元の作業ソリューションから始めます。

([]<>)<>({}[({})]<>)<>({}[({})]<>)({}{}[()()])({}<({}[()()()])>)(({}{}<(())>)){{}{}(((<{}>)))}{}{}

私が書いて得た簡単なゴルフアルゴリズムを通してこれを実行します：

([]<>)<>({}[({})]<>)<>(({}[({})]<>{}[()()]<({}[()()()])>{}<(())>)){{}{}(((<{}>)))}{}{}

ここから、コード全体を次の<({}[()()()])>{}ように{}[()()()]削減することと等しくなる、本質的に1倍になるセクションを見る

([]<>)<>({}[({})]<>)<>(({}[({})]<>{}[()()]{}[()()()]<(())>)){{}{}(((<{}>)))}{}{}

最後に、ネガを組み合わせることができます：

([]<>)<>({}[({})]<>)<>(({}[({})()()()()()]<>{}{}<(())>)){{}{}(((<{}>)))}{}{}

Brainfuck、32バイト

+>,+>,>,-[-<-<->>],[<]<[<]<[<]<.

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

アルゴリズムのコアに対するLynnの功績。

ゼリー、6 バイト

DI⁼1,1

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

使い方

DI⁼1,1  Main link. Argument: n (integer)

D       Decimal; convert n to base 10.
 I      Increments; compute the differences of all pairs of adjacent digits.
   1,1  Yield [1, 1].
  ⁼     Test the results to both sides for equality.

05AB1E、5バイト

¥XX‚Q

説明

¥      # deltas
    Q  # are equal to
 XX‚   # [1,1]

オンラインで試す

MATL、8バイト

d1=tn2=*

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

これは1 1、MATLでは偽であるため、真の入力に対して出力0し、偽の値に対してはaを含む配列を出力します。

説明：

d           % Calculate the difference between consecutive digits
 1=         % Push an array of which elements equal one
   t        % Duplicate this array
    n       % Push the length of this array
     2=     % Push a one if the length is 2, and a zero otherwise
            % Now, if we have a truthy input, the stack looks like:
            %   [1 1]
            %   1
            % And if we have a falsy input, the stack looks something like this:
            %   [1 0]
            %   1
            % Or this:
            %   [1 1]
            %   0
       *    % Multiply the top two elements

Java 7、46バイト

boolean f(int a){return a>12&a<790&a%111==12;}

Leaky Nunとチャットでいくつかのことを試した後、これは最短のようです。時にはあなたはただ単純な方法で物事をする必要があります：/

説明：

boolean f(int a){
    return a>12         Is it more than 12? (stupid edge case)
           &
           a<790        Is it in range the other way? 
           &
           a%111==12;   Is it 12 more than a multiple of 111? 
}

Perl 6の、 35の29 24 21  19バイト

{.chars==3&&'0123456789'.index: $_}
{$_ (elem) (123,*+111...789)}
{$_∈(123,*+111...789)}
*∈(123,*+111...789)
*∈(123,234...789)

説明：

# Whatever lambda ( the parameter is ｢*｣ )
*

∈ # is it an element of:

# this sequence
(
  123,
  234,

  # deduce rest of sequence
  ...

  # stop when you generate this value
  789
)

使用法：

my &code = *∈(123,234...789);

say code 123; # True
say code 472; # False

say (  *∈(123,234...789)  )( 789 ); # True

網膜、26

.
$*: 
^(:+ ):\1::\1$

真実の場合は1、偽の場合は0を出力します。

オンラインで試してみてください（複数のテストケースを実行できるようにするために最初の行を追加しました）。

ルビー、32 30 25 + 2 = 27バイト

+2バイト -nlフラグ。

STDINで入力を受け取り、trueまたはを出力しますfalse。

p"123456789"[$_]&.size==3

repl.itで参照してください：https ://repl.it/DBn2/2 （▶️をクリックして、下のコンソールに入力を入力します。）

Brain-Flak、99バイト

([{}]({})<>)<>([{}]{}<>)(({})<([{}]{})((){[()](<{}>)}{})>)([{}]{})((){[()](<{}>)}{})<>{{{}}<>{}}<>

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

これは、98バイトのコード+1です-aフラグ。

これ1は真実を表示し、偽りの場合はどちら0か（0に相当）を表示します

Brain-Flak、114バイト

([((()()()){}){}]{})(((()()()){}())<>)<>{({}<(({}[(((((()()()){}()){}){}){}){}]())){(<{}>)<>({}[()])<>}{}>[()])}<>

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

正しいバージョン（質問の精神）：入力として整数を取り、偽の場合は出力0、真実の場合は1を出力します。

これはありませんスタッククリーンで。

アルゴリズム

入力を n。

出力は真実ですiff (n-123)(n-234)(n-345)(n-456)(n-567)(n-678)(n-789)=0です。

最初に12を減算し、次に111を7回減算してこれらの7つの数値を計算し、次にこれらの7つの数値の論理double-NOTを計算して加算しました。

真実の結果を得るには、合計は6です。偽の結果の場合、合計は7です。

次に、7から合計を減算し、答えを出力します。

R、30 22バイト

scan()%in%(12+1:7*111)

特にエキサイティングではありません。入力が12 + 111kで与えられるシーケンスにあるかどうかを確認します。ここで、kはそれぞれ1〜7です。:前に注意してください。*したがって、乗算はシーケンスの生成後に行われます。

C＃（Visual C＃Interactive Compiler）、41 30 23バイト

最初のコードゴルフの提出、優しく:)

a=>{return a>12&&a<790?a%111==12:false;};
a=>a>12&&a<790?a%111==12:false
a=>a>12&a<790&a%111==12

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

• キリルLのおかげで-11バイト
• ASCIIのみのおかげでさらに-7バイト。

Brainfuck、43バイト

,>,>,>,[>>]<[[-<-<->>]<+[>>]<++[>>->]<+<]>.

ああ、私はこれが得意ではありません。出力\x01出力は、文字列のいずれかである場合には123、234、...、 789。\x00そうでなければ出力します。

（私はJava 7を倒しました...）

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

JavaScript ES6、26バイト

n=>1>(n-12)%111&n>99&n<790

これは、本質的にブール値であるもの（ビットベース！）に対してビット単位の論理演算子を使用しているという事実を利用しています。

Titusに感謝します2。

Excel- 62 57 35 31バイト

Anastasiya-Romanovaの回答に基づきますが、ExcelのTRUE/FALSE値を返します。

=AND(LEN(N)=3,MID(N,2,1)-MID(N,1,1)=1,MID(N,3,1)-MID(N,2,1)=1)

さらに、我々はに到達することができます

=AND(LEN(N)=3,MID(N,2,1)-LEFT(N)=1,RIGHT(N)-MID(N,2,1)=1)

両方RIGHTとLEFT、デフォルトで単一の文字返します。

そして、いくつかのPythonソリューションに触発されました：

=AND(LEN(N)=3,MOD(N,111)=12,N<>900)

さらに4バイトのNeilに感謝します...

=AND(N>99,MOD(N,111)=12,N<900)

Brachylog（2）、7バイト

ẹ~⟦₂-_2

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

説明

ẹ~⟦₂-_2
ẹ        Split into digits
 ~⟦₂     Assert that this is an increasing range; take its endpoints
    -_2  Assert that the starting minus ending endpoint is -2

完全なプログラムとして、すべてのアサーションが成立する場合は真のリターンを取得し、失敗する場合は偽のリターンを取得します。

CJam、13 9バイト

A,s3ewqe=

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

説明

A,s        e# Push "0123456789".
   3ew     e# Split it into contiguous length-3 chunks: ["012" "123" "234" ... "789"].
      q    e# Push the input.
       e=  e# Count the number of times the input appears in the array.

Excel-104バイト

=IF(LEN(N)<3,"Falsy",IF(AND(LEN(N)=3,MID(N,2,1)-MID(N,1,1)=1,MID(N,3,1)-MID(N,2,1)=1),"Truthy","Falsy"))

説明：

ExcelのIF式の構文は次のとおりです。

IF( condition, [value_if_true], [value_if_false] )

inputの長さ（N参照セルの名前）が3未満の場合、Falsyが返されます。それ以外の場合、入力の長さNが3で、2桁目と1桁目と3桁目と2桁目の差の両方が1に等しい場合、Truthyを返します。

Dyalog APL、10 バイト

文字列引数を取ります。

1 1≡¯2-/⍎¨

1 1≡ {1、1}と同じ

¯2-/ 逆のペアワイズ差

⍎¨ 各文字は数字として扱われますか？

TryAPLオンライン！（セキュリティ上の理由で⍎エミュレートされていeます。）

Perl、18バイト

+1を含む -p

STDINの入力で実行する

123.pl <<< 123

123.pl：

#!/usr/bin/perl -p
$_=$_=/./.2==$_-$&x3

PHP、31バイト

<?=($n=$_GET[n])-12==$n[0]*111;

（数字-12）の最初の桁が111の倍数かどうかを確認します

PowerShell v3 +、24バイト

($args[0]-12)/111-in1..7

同じ「111の倍数+ 12」を使用します他の回答トリックをますが、逆方向に進みます。入力を取り$args[0]、減算し12、除算し111、それ-inが範囲かどうかを確認します1..7。ブール値のtrue / false値を出力します。-inオペレーターにはv3 +が必要です。

テストケース

PS C:\Tools\Scripts\golfing> 123,234,345,456,567,678,789|%{.\easy-as-one-two-three.ps1 $_}
True
True
True
True
True
True
True

PS C:\Tools\Scripts\golfing> 1,2,3,12,122,124,132,321,457,777,890,900,1011,1230,1234|%{.\easy-as-one-two-three.ps1 $_}
False
False
False
False
False
False
False
False
False
False
False
False
False
False
False

ARMマシンコード、18バイト

16進ダンプ（リトルエンディアン）：

3803 d105 6808 ebc0 2010 b280 f2a0 1001 4770

これは、文字列の長さとポインタのペアを受け取る関数です。出力はbashスタイルで、trueの場合は0、falseの場合はゼロ以外の値を出力します。Cでは、関数はint oneTwoThree（size_t length、char * string）として宣言されます。命令エンコーディングはthumb-2で、2バイトと4バイトの命令があります。Raspberry Pi 3でテスト済み。

非ゴルフアセンブリ：

.syntax unified
.text
.global oneTwoThree
.thumb_func
oneTwoThree:
    @Input: r0 - the number of characters in the string
    @r1 - A pointer to the (not necessarily NUL-terminated)
    @string representation of the number (char*)
    @Output: r1 - 0 if the number is in 123,234,...,789, else non-zero (bash-style)
    subs r0,r0,#3
    bne end @Return non-zero if r0!=3
    ldr r0,[r1] @Remember that this is little endian
    @So the first digit is the most siginificant byte
    @I.e. if the input was 123 then r0 contains 0xXY010203 where XY is garbage

    rsb r0,r0,r0,lsr #8 @r0=(r0>>8)-r0 (rsb is reverse subtract)
    uxth r0,r0 @r0&=((1<<16)-1) (mask off top half)
    @Now r0 is 0x0101 iff we have a matching number
    sub r0,r0,#0x101
    @Now r0 is 0 iff the string fit the specification

    end:
    bx lr @return

テストスクリプト（アセンブリも）：

.syntax unified
.text
.global main
.thumb_func
main:
    push {r4,lr}
    ldr r4,[r1,#4] @r0=argv[1]
    mov r0,r4
    bl strlen
    @Now r0 is the length of the string argv[1]
    mov r1,r4
    bl oneTwoThree @oneTwoThree(strlen(argv[1]),argv[1])
    cmp r0,#0
    it ne
    movne r0,#1 @Output through return code, 1 if false
    pop {r4,pc}

JavaScript（ES6）、34バイト

JSのもう1つのオプション。入力を文字列として受け取り0、for falseおよび1for を出力しtrueます。

n=>++n[0]==n[1]&++n[1]==n[2]&!n[3]

私の他のソリューションはこちらとこちらをご覧ください

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

f=
n=>++n[0]==n[1]&++n[1]==n[2]&!n[3]
i.addEventListener("input",_=>o.innerText=f(i.value))

<input id=i type=number><pre id=o>