So einfach wie eins, zwei, drei

35

Schreiben Sie ein Programm oder eine Funktion, die eine positive Ganzzahl enthält. Sie können davon ausgehen, dass die Eingabe gültig ist und als Zeichenfolge verwendet werden kann. Wenn die Nummer eine von ist

123
234
345
456
567
678
789

Geben Sie dann einen Wahrheitswert aus . Andernfalls geben Sie einen falschen Wert aus. Zum Beispiel die Eingänge

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

müssen alle zu einer falschen Ausgabe führen. (Die Eingabe wird keine führenden Nullen haben, sodass Sie sich nicht um Dinge wie kümmern müssen 012.)

Der kürzeste Code in Bytes gewinnt.

Calvins Hobbys
quelle
Oh, Saiten sind erlaubt? Was ist mit Ziffernfeldern?
Dennis
@ Tennis Nr. Lassen Sie es uns zu einfachen Zeichenfolgen oder einfachen Ints halten.
Calvins Hobbys
6
Wenn ich eine Zeichenfolge eingebe, soll ich damit umgehen 012?
Lynn
1
@Lynn No. 012wäre falsch, aber Sie können davon ausgehen, dass keine Eingabe erfolgt.
Calvins Hobbys
1
@ BradGilbertb2gills Nein. Es sollte nur die verknüpfte Definition von Wahrhaftigkeit / Falschheit erfüllen - meta.codegolf.stackexchange.com/questions/2190/…
Calvins Hobbys

Antworten:

46

Python, 24 Bytes

range(123,790,111).count

Eine anonyme Funktion, die 0 oder 1 ausgibt. Sie erstellt die Liste [123, 234, 345, 456, 567, 678, 789]und zählt, wie oft die Eingabe erscheint.

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

f(123)
=> 1
f(258)
=> 0
xnor
quelle
Könnten Sie nicht ein Byte entfernen, indem Sie den Start auf 12 anstatt auf 123 setzen?
var Vorname
1
Es muss nicht 12.
xnor
Aber wir können davon ausgehen, dass es keine Eingabe wäre? Ich bin verwirrt
var firstName
1
Wenn Sie über die Kommentare sprechen, heißt es, dass Sie bei Eingaben als Zeichenfolge (was nicht der Fall ist) erwarten können, dass Zahlen keine führenden Nullen haben, sodass 12 als "12" und nicht "0" angegeben werden. 012 ".
Xnor
34

Python, 24 Bytes

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

Nur eine Menge Zustandsverkettung.

Sp3000
quelle
In der Lage zu sein, einen Bereich zu vergleichen, der jede Sprache, die ich bereits kenne, leicht übertrifft. Ich musste nachsehen , wie es funktionierte.
GuitarPicker
Wow, ohne das Wort lambdahätte ich nicht einmal gedacht, dass es sich um Python handelt. Das ist schrecklich.
Steve Bennett
25

Haskell, 22 Bytes

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

Eine anonyme Funktion. Erzeugt die gleichmäßig verteilte Liste [123, 234, 345, 456, 567, 678, 789]und prüft, ob die Eingabe ein Element ist.

xnor
quelle
1
Auf keinen Fall! Das ist Magie!
YSC
11

Python 2, 25 Bytes

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

Teste es auf Ideone .

Dennis
quelle
8

Brain-Flak 76 + 3 = 79 Bytes

Diese Antwort ist ein Golf dieser Antwort. Eigentlich weiß ich nicht genau, wie meine Antwort funktioniert, aber DJMcMayhem gibt in seiner ursprünglichen Antwort eine gute Erklärung und meine Antwort ist eine Modifikation seiner.

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

Es wird mit dem -a ASCII-Flag ausgeführt, das 3 Bytes hinzufügt.

Erklärung (von Art)

Ausgehend von der ursprünglichen Arbeitslösung:

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

Ich führe dies durch einen einfachen Golfalgorithmus, den ich geschrieben habe und erhalte:

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

Von hier aus sehe ich den Abschnitt, der im <({}[()()()])>{}Wesentlichen mit eins multipliziert wird, was es gleich macht {}[()()()], den gesamten Code auf Folgendes zu reduzieren:

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

Zuletzt können Negative kombiniert werden:

([]<>)<>({}[({})]<>)<>(({}[({})()()()()()]<>{}{}<(())>)){{}{}(((<{}>)))}{}{}
Weizen-Assistent
quelle
14
"Ich weiß nicht genau, wie meine Antwort funktioniert" Sie gewinnen das Internet
Leaky Nun
Nein .
Undichte Nonne
@LeakyNun Ich glaube nicht, dass der ASCII-Modus funktioniert, wenn man es online probiert. Du wirst die Github-Version bekommen müssen.
Wheat Wizard
1
@ WheatWizard Der ASCII-Modus funktioniert definitiv mit TIO. Sie können dies überprüfen, indem Sie oben im Stapel 48 ('0') hinzufügen . Undichte Nonne hat recht, der Algorithmus ( mein Algorithmus) ist falsch, weil er nur prüft, ob die Summe der Differenzen 2 ist (was funktioniert, wenn die Differenz +3 und -1 ist). Leider sind beide Antworten falsch.
DJMcMayhem
1
@ WheatWizard Diese Antwort scheint nicht gültig zu sein. Probieren Sie es online! (Meine ursprüngliche Antwort war auch nicht)
DJMcMayhem
7

Gelee , 6 Bytes

DI⁼1,1

Probieren Sie es online! oder überprüfen Sie alle Testfälle .

Wie es funktioniert

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.
Dennis
quelle
012 gibt nicht false zurück, obwohl es eigentlich nichts zurückgibt ...
Jamie Barker
Die Eingabe muss eine Ganzzahl sein. Soweit ast.literal_evales sich handelt, 012stellt es keine ganze Zahl dar .
Dennis
7

05AB1E , 5 Bytes

¥XX‚Q

Erläuterung

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

Probieren Sie es online aus

Emigna
quelle
Ich habe 2Å1stattdessen XX,nur für die Hölle weniger Befehle verwendet (4 statt 5).
Erik der Outgolfer
@ErikGolfer エ エ リ ッ ク ゴ ル フ ァ: und Åist auf meiner Tastatur beschreibbar (im Gegensatz zu ), was ein Vorteil ist :)
Emigna
(nicht das, was ,ich benutzt habe) hat auch keine Compose-Key-Sequenz, während Åes sich oAauf einem En-US-Keyboard befindet.
Erik der Outgolfer
6

MATL , 8 Bytes

d1=tn2=*

Probieren Sie es online!

Dies wird 1 1für eine wahrheitsgemäße Eingabe und ein Array mit einem 0darin enthaltenen Wert für einen falschen Wert ausgegeben, da dies in MATL falsch ist.

Erläuterung:

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
DJMcMayhem
quelle
Vielleicht d1=Ep4=(ich habe nicht gründlich getestet)
Luis Mendo
1
Oder dTTX=für 5 Bytes
Luis Mendo
@luismendo whaaa? Wie funktioniert das überhaupt? Ich kann keine Dokumentation finden aufT
DJMcMayhem
Tist das wörtliche trueund Fist false. Nachbarn Tund Fzusammenhalten, so TTist [true true], was für diese Zwecke gleichbedeutend ist [1 1]. Siehe Abschnitt 4.3 der Spezifikation
Luis Mendo
6

Java 7, 46 Bytes

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

Nachdem Sie im Chat einige Dinge mit Leaky Nun ausprobiert haben, scheint dies die kürzeste zu sein. Manchmal muss man es einfach so machen: /

Erläuterung:

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? 
}
Geobits
quelle
6

Perl 6 ,  35 29 24 21  19 Bytes

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

Erläuterung:

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

Verwendung:

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

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

say (  *∈(123,234...789)  )( 789 ); # True
Brad Gilbert b2gills
quelle
6

Retina , 26

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

Gibt 1 für wahr und 0 für falsch aus.

Probieren Sie es online aus (Erste Zeile hinzugefügt, damit mehrere Testfälle ausgeführt werden können).

Digitales Trauma
quelle
5

Rubin, 32 30 25 + 2 = 27 Bytes

+2 Bytes für -nl Flags.

Übernimmt die Eingabe für STDIN und druckt trueoder false.

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

Siehe es auf repl.it: https://repl.it/DBn2/2 (Klicken Sie auf ▶ ️ und geben Sie die Eingabe in die Konsole unten ein.)

Jordan
quelle
Ihre Tests zeigen, dass 12 wahr werden.
xnor
@xnor Ups. Das bringt mir das Golfspielen nach dem Schlafengehen bei. Fest!
Jordanien
Ich dachte, -atut das splitnicht chop? Und was macht der &? Ich benutze einen älteren Ruby, der einen Fehler auslöst. Auf jeden Fall funktioniert es perfekt mit 26 Bytes ohne.
Xsot
Ups, ich meinte -lnicht -a. &.ist der Operator "Sichere Navigation", der in Ruby 2.3 hinzugefügt wurde. Ohne Eingaben wie 19, die keine Teilzeichenfolgen sind "123456789", wird ein NoMethodError ausgelöst.
Jordanien
@Jordan Ich erhalte in 2.2 keinen Fehler. Vielleicht ist es auch neu in 2.3?
Xsot
5

Brain-Flak , 99 Bytes

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

Probieren Sie es online!

Dies sind 98 Byte Code +1für die-a Flag.

Dies wird 1für Wahrhaftigkeit und entweder 0oder nichts (was 0 entspricht) für Falsch ausgegeben

DJMcMayhem
quelle
Versuchen Sie, Push-Pop-Ineffizienzen zu beseitigen. Ich kann eine Menge in Ihrem Code sehen. Sie sehen aus wie ...)({}aber variieren. Wenn Sie pushen und poppen, ohne den Wert zu verwenden, können Sie ihn zu einer Sache zusammenfassen. Wenn Sie möchten, kann ich Sie mit einer Version Ihres Codes verknüpfen, in der all diese Informationen enthalten sind.
Wheat Wizard
Hier ist mein 76-Byte-Golf Ihres Programms. Ich habe Ihren Code mit ein paar benutzerdefinierten Einstellungen ziemlich genau mit meinem Brain-Flak-Optimierer überprüft.
Wheat Wizard
Nein .
Undichte Nonne
4

Brain-Flak , 114 Bytes

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

Probieren Sie es online!

Richtige Version (im Sinne der Frage): Nimmt die ganze Zahl als Eingabe, gibt 0 für Falsey und 1 für Truthy aus.

Dies ist nicht stapelrein.

Algorithmus

Lass die Eingabe sein n.

Die Ausgabe ist wahr iff (n-123)(n-234)(n-345)(n-456)(n-567)(n-678)(n-789)=0.

Ich berechnete diese sieben Zahlen, indem ich zuerst 12 subtrahierte und dann 111 siebenmal subtrahierte, und dann das logische Doppel-NICHT dieser sieben Zahlen berechnete und sie aufsummierte.

Für wahrheitsgemäße Ergebnisse ist die Summe 6; für falsche Ergebnisse ist die Summe 7.

Dann subtrahiere ich die Summe von 7 und gebe die Antwort aus.

Undichte Nonne
quelle
Ich verstehe den Code nicht, aber der Algorithmus ist clever, also haben Sie eine +1.
Cyoce
4

R 30 22 Bytes

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

Nicht besonders aufregend; überprüfen , ob Eingang wird in der durch 12 + 111k gegebene Reihenfolge, wobei k jeweils 1 bis 7. Man beachte , daß ist :vorausgeht , *so dass die Multiplikation passiert , nachdem die Sequenz erzeugt wird.

JDL
quelle
4

C # (Visual C # Interactive Compiler) , 41 30 23 Byte

Erste Code-Golf-Einreichung, sei sanft :)

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

Probieren Sie es online!

  • -11 Bytes dank Kirill L.
  • Weitere -7 Bytes nur dank ASCII.
Loxx
quelle
1
Willkommen bei PPCG! Sie können einige Bytes sparen, indem Sie die geschweiften Klammern und das returnSchlüsselwort: 30 Bytes
Kirill L.
1
23 , auch 23
Nur ASCII
1
Schöne erste Einreichung!
Verkörperung der Ignoranz
3

Brainfuck, 43 Bytes

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

Bah, ich bin nicht gut darin. Ausgaben, \x01wenn die Ausgabe eine der Zeichenfolgen 123ist ,, 234789,; Ausgänge \x00sonst.

(Ich habe Java 7 geschlagen ...)

Probieren Sie es online!

Lynn
quelle
Worum geht es [>>]<? Könnte das nicht einfach sein >?
DJMcMayhem
Ich möchte das Programm in einen Fehlerzustand versetzen (indem ich es aus der Spur wirf), wenn die Zelle unter dem Zeiger zu diesem Zeitpunkt nicht Null ist.
Lynn
42 Bytes
Undichte Nonne
@LeakyNun Das sieht ganz anders aus; Fühlen Sie sich frei, es als separate Antwort zu posten
Lynn
@Lynn Fertig.
Undichte Nonne
3

JavaScript ES6, 26 Byte

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

Dies macht sich die Tatsache zunutze, dass ich bitweise Logikoperatoren für im Wesentlichen boolesche Operatoren (die bitbasiert sind!) Verwende.

Vielen Dank an Titus für das Speichern von 2.

WallyWest
quelle
1
zwei Bytes: (n-12)undn>99
Titus
@Titus Oh, sehr nett, +1 für dich!
WallyWest
1
=> ist ES6, nicht ES5.
Neil
1
Ich glaube, es wurde in Meta entschieden, dass Sie nicht "f =" zählen mussten, um diese 26 Bytes zu machen
Charlie Wynn
1
@WallyWest Ich denke, es liegt daran, dass es nicht in jedem Fall erforderlich ist, "f =" zu haben, um die Funktion zu verwenden. Warum sollten Sie also davon ausgehen, dass Sie sie für diesen Fall benötigen? Leute, die schlauer waren als ich, entschieden, dass es in Ordnung ist, also mache ich einfach mit;)
Charlie Wynn
3

Excel - 62 57 35 31 Bytes

Basiert auf der Antwort von Anastasiya-Romanova, gibt aber die Excel- TRUE/FALSEWerte zurück.

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

Weiter können wir kommen

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

da beide RIGHTund LEFTstandardmäßig ein einzelnes Zeichen zurück.

Und inspiriert von einigen der Python-Lösungen:

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

Vielen Dank an Neil für 4 weitere Bytes ...

=AND(N>99,MOD(N,111)=12,N<900)
Dulrich
quelle
Spart N<900Ihnen kein Byte, in diesem Fall können Sie auch N>99statt verwenden LEN(N)=3.
Neil
1
21 Bytes: =REPT(LEFT(N),3)+12=Nwo Nist der Name der Referenzzelle.
Ingenieur Toast
3

Brachylog (2), 7 Bytes

ẹ~⟦₂-_2

Probieren Sie es online!

Erläuterung

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

Als vollständiges Programm erhalten wir eine echte Rendite, wenn alle Behauptungen zutreffen, und eine falsche Rendite, wenn eine fehlschlägt.


quelle
3

CJam, 13 9 Bytes

A,s3ewqe=

Probieren Sie es online!

Erläuterung

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.
Geschäfts-Katze
quelle
5
funktioniert nicht, wenn die Zahl wie 2345
folgt
@Maltysen Fixed
Business Cat
2

Excel - 104 Bytes

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

Erläuterung:

Die Syntax für die IF-Formel in Excel lautet:

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

Wenn die Länge der Eingabe N, bei der es sich um einen Namen der Referenzzelle handelt, weniger als 3 beträgt, wird Falsy zurückgegeben . Anderenfalls, wenn die Länge der Eingabe N3 ist und sowohl die Differenz der zweiten als auch der ersten Ziffer und die Differenz der dritten und der zweiten Ziffer gleich 1 sind, wird Truthy zurückgegeben .

Anastasiya-Romanova 秀
quelle
21 Bytes: =REPT(LEFT(N),3)+12=Nwo Nist der Name der Referenzzelle.
Ingenieur Toast
2

Dyalog APL , 10 Bytes

Übernimmt ein String-Argument.

1 1≡¯2-/⍎¨

1 1≡ Ist {1, 1} identisch mit

¯2-/ die umgekehrte paarweise Differenz von

⍎¨ jedes Zeichen als Zahl genommen?

TryAPL online! ( Wurde eaus Sicherheitsgründen mit emuliert .)

Adam
quelle
2

Perl, 18 Bytes

Beinhaltet +1 für -p

Führen Sie mit der Eingabe auf STDIN

123.pl <<< 123

123.pl:

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

PHP, 31 Bytes

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

Überprüfen Sie, ob die erste Ziffer von (Zahl minus 12) ein Vielfaches von 111 ist

Florin Chis
quelle
2

PowerShell v3 +, 24 Byte

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

Verwendet den gleichen Trick "Vielfaches von 111 plus 12" wie einige andere Antworten, geht aber in die andere Richtung. Nimmt Eingaben auf $args[0], subtrahiert 12, dividiert durch 111und prüft, ob dies -inder Bereich ist 1..7. Gibt einen booleschen True / False-Wert aus. Benötigt v3 + für den -inOperator.

Testfälle

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
AdmBorkBork
quelle
2

ARM-Maschinencode, 18 Byte

Hex Dump (Little Endian):

3803 d105 6808 ebc0 2010 b280 f2a0 1001 4770

Dies ist eine Funktion, die ein Länge-Zeiger-Paar für den String benötigt. Die Ausgabe ist bash-artig, sie gibt 0 für wahr und einen Wert ungleich null für falsch aus. In C würde die Funktion als int oneTwoThree deklariert (size_t length, char * string). Die Befehlskodierung ist thumb-2, die 2- und 4-Byte-Befehle enthält. Getestet auf einem Raspberry Pi 3.

Ungolfed Versammlung:

.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

Testskript (auch Assembly):

.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}
Ian Chew
quelle
2

JavaScript (ES6), 34 Byte

Und noch eine Option in JS. Nimmt Eingaben als String und gibt sie 0für falseund 1für aus true.

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

Sehen Sie meine anderen Lösungen hier und hier


Versuch es

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>

Zottelig
quelle