Snaking Number Challenge

Ich frage mich, wie viele Schlangenzahlen es zwischen 1 und 50.000 gibt.

Snaking Numbers sind in diesem Spiel Zahlen, die auf einem herkömmlichen Nummernblock (Format unten) eingegeben werden können, indem eine Taste nach oben, unten, links oder rechts bewegt wird.

7 8 9
4 5 6
1 2 3
 0

Wenn Sie beispielsweise mit der Zahl 5 beginnen, können Sie 4, 6, 8 oder 2 als nächsten gültigen Zug auswählen. 7, 3, 9 und 1 sind jedoch nicht zulässig, da sie diagonal zur aktuellen Taste positioniert sind . Wenn Sie also 5, dann 2 haben, sind Ihre nächsten möglichen Schlüsselwahlen wieder 0, 1, 3 oder 5.

In dieser Code-Golf-Übung geben Sie eine Liste aller positiven Snaking-Zahlen zwischen 1 und 50.000 sowie eine endgültige Zählung aller Zahlen aus, die das Kriterium erfüllen.

Regeln

1. Zahlen können nicht mit einer Null beginnen.
2. Zahlen müssen ganze positive ganze Zahlen sein.
3. Jede fortlaufende Nummer, die von links nach rechts gelesen wird, muss sich um den Nummernblock "schlängeln".
4. Die Schlange kann nicht diagonal über Tasten laufen
5. Auf die Nummer 0 kann von den Nummern 1 und 2 zugegriffen werden
6. Nummern können nicht gepaart werden (zB: 22)

Beispiele für gültige Snaking Numbers:

12369
45201
1254
10102
1
12
987

Beispiele für ungültige Nummern

1238 - 8 is not connected
0001 - multiple leading 0s
0101 - leading 0
159  - snake cannot travel diagonally
4556 - duplicate 5

Wie bei normalen Code Golfs ist das Ziel die kleinste Anzahl von Bytes!

Nach meiner Mathematik und meinen Regeln sollten Sie 670 gültige Snaking-Nummern in Ihrer Liste haben, plus 670 selbst, die als letzte Nummer gedruckt werden.

K (NGN / k) , 60 57 Bytes

(x;#x:{*/1=3!5&+/x*x:+1_-':(+0 1,'2*!3 3)@10\x}#1+!50000)

Probieren Sie es online!

!50000liste von 0..49999

1+ addiere 1 zu allen

{ }# Filter mit der Funktion in { }

10\x Dezimalstellen des Arguments

( )@ Verwendung als Indizes in ...

• !3 3 ein paar Listen: (0 0 0 1 1 1 2 2 2;0 1 2 0 1 2 0 1 2)

• 2* multiplizieren Sie alle mit 2

• 0 1,'0der ersten und 1der zweiten Liste voranstellen

• +transponieren (Listenpaar -> Liste der Paare). Dies gibt uns die ungefähren Knopfkoordinaten.

-':subtrahieren Sie von jedem Paar das vorherige Paar. verwenden 0 0als imaginäres Element vor dem ersten.

1_ Lass den ersten fallen

+ transponieren

x*x:Quadrat (Zuordnen zu xund Multiplizieren mit x). Hier xsind zwei Listen - --xs und ∆ys

+/ Summiere die beiden Listen (Element für Element)

5& min mit 5

3! mod 3

1= Boolesche Liste, wo es gleich 1 ist

*/ Produkt (Boolesches "und")

(x;#x: )Machen Sie ein Paar aus dem Ergebnis und der Länge ( #) des Ergebnisses

Gelee ,  24  23 Bytes

5ȷ4µDo1.’d3ZIASĊ’ẸµÐḟṄL

Ein vollständiges Programm, das eine Liste aller Ergebnisse und anschließend die Anzahl der Ergebnisse druckt.

Probieren Sie es online!

Wie?

5ȷ4µDo1.’d3ZIASĊ’ẸµÐḟṄL - Main Link: no arguments
5ȷ4                     - 5*10^4 = 50000
   µ              µÐḟ   - filter discard those for which this is truthy:
                        -                  e.g.: 8520        ... or           4559 
    D                   -   decimal digits       [8,5,2,0]                    [4,5,5,9]
      1.                -   literal 1.5
     o                  -   logical OR           [8,5,2,1.5]                  [4,5,5,9]
        ’               -   decrement            [7,4,1,0.5]                  [3,4,4,8]
         d3             -   div-mod by 3         [[2,1],[1,1],[0,1],[0,0.5]]  [[1,0],[1,1],[1,1],[2,2]]
           Z            -   transpose            [[2,1,0,0],[1,1,1,0.5]]      [[1,1,1,2],[0,1,1,2]]
            I           -   deltas               [[-1,-1,0],[0,0,-0.5]]       [[0,0,1],[1,0,1]]
             A          -   absolute value       [[1,1,0],[0,0,0.5]]          [[0,0,1],[1,0,1]]
              S         -   sum (vectorises)     [1,1,0.5]                    [1,0,2]
               Ċ        -   ceiling              [1,1,1]                      [1,0,2]
                ’       -   decrement            [0,0,0]                      [0,-1,1]
                 Ẹ      -   any?                 0 (i.e. keep)                1 (i.e. discard)
                     Ṅ  - print and yield
                      L - length
                        - implicit print

Python 3 , 140 Bytes

f=lambda s:''==s[1:]or s[1]in'10021234562216565878 43 749 9   5  8'[int(s[0])::10]and f(s[1:])
print(*filter(f,map(str,range(1,50000))),670)

Probieren Sie es online!

Ich bin mir sicher, dass dies jemand mit einem Ausdruck anstelle einer Suchzeichenfolge tun kann.

Python 2 , 101 Bytes

print[n for n in range(1,50000)if all(`n`[i:i+2]in`0x20b33ec8bc49a10589e76b15`for i in range(4))],670

Probieren Sie es online!

Die Hex-Zahl ist eine Dezimalzahl 10120214525632365878969854741, die jedes geordnete Ziffernpaar codiert, das nebeneinander erscheinen kann.

JavaScript (V8) ,  112 106  104 Byte

2 Bytes dank @NahuelFouilleul gespeichert

Ein volles Programm.

for(n=0;++n<5e4;)[...n+''].every(x=>'6589632145201478'.match(x+p+'|'+p+(p=x)),p='')&&print(n)
print(670)

Probieren Sie es online!

Oder 96 Bytes, wenn wir die Zahlen in umgekehrter Reihenfolge ausgeben können:

for(n=5e4;n--;)[...n+''].every(x=>'6589632145201478'.match(x+p+'|'+p+(p=x)),p='')&&print(n||670)

Probieren Sie es online!

Stax , 37 35 Bytes

ü╞╡~▄ⁿ♪eµïê◙ü╔ï▼ΔJr¥æ≤PH╟♀I♣Δz8─¶Γ╞Ç▓

Führen Sie es aus und debuggen Sie es unter staxlang.xyz!

Es war so schön und kurz, bis es nicht mehr war.

Entpackt (42 Bytes) und Erklärung

49999{E2B{{om"#qYY>!(AFI"%A|E2B{{om-C_Qf%p
49999{                                 f      Filter range [1..49999]:
      E2B                                       All adjacent pairs of digits
         {{om                                   Each sorted
             "#qYY>!(AFI"%A|                    Literal 2012365478963258741
                            E2B{{om             Pairs of digits, each sorted
                                   -            Set difference
                                    C           Cancel block execution if any remain
                                     _Q         Print current value
                                        %p    Print length

2012365478963258741 codiert die Tastatur. Schauen Sie sich Paare benachbarter Ziffern an. Wenn ich eine anständige kurze Alternative bekommen könnte, die für jedes Paar in beide Richtungen geht, könnte ich vielleicht die acht Bytes von kürzen {{om.

Ohne diese nachgestellte 670 würde ein einfacher Filter ausreichen: f..!statt {..C_Qf%p. Es könnte einen besseren Weg geben, um mit dieser Unregelmäßigkeit umzugehen. In beiden Fällen ist dieses Filterbereichsverhalten nicht dokumentiert.

PHP , 145 Bytes

for(;$i++<5e4;$f&&print$i._)for($f=1,$l=b;''<$d=("$i")[$$i++];$l=$d)$f&=$l>a||strstr([12,240,1053,26,157,2468,359,48,579,68][$l],$d)>'';echo 670;

Probieren Sie es online!

Überprüfen Sie für jede Zahl von 1 bis 50.000 jede Ziffer dieser Zahl von links nach rechts. Wenn sich alle Ziffern in der Liste der gültigen Ziffern der vorherigen Ziffer befinden, wird diese Nummer gedruckt. Am Ende wird ein fest codierter 670 gedruckt, da er weniger Bytes benötigt, als er tatsächlich zählt.

05AB1E , 23 Bytes

ŽÅKLʒSÌYX;:3‰üαï€OP}=g=

Probieren Sie es online!

Port of Jonathan Allans Gelee Antwort .

Perl 5 ( -M5.01), 96 , 92 Bytes

-4 Bytes dank @Xcali

$r=join"|",map$t++."[^$_]",12,240,1350,26,157,2648,359,48,579,68;map/$r/||say,1..5e4;say 670

TIO

JavaScript (SpiderMonkey) , 179 173 151 129 Bytes

[12,240,1350,26,157,2468,359,48,579,68].map((_,i,l)=>i&&(f=(v,t)=>print(v)|v<5e3&&[...l[t]+''].map(k=>f(v+k,k)))(i,i)),print(670)

Probieren Sie es online!

-22 bytes danke an Arnauld -22 bytes danke an dana

Erläuterung:

[12,240,1350,26,157,2468,359,48,579,68] 
// an array where keys are current position and values, the possible destinations
.map((_,i,l)=>                    // loop over it
    i&&(                          // if key is not 0
        f=(v,t)=>                 // create a function
                 print(v)|        // which print the value
                          v<5e3&& // and if the limit is not attained
                                 [...l[t]+''].map(k=>f(v+k,k)) 
                    // recurcively call itself with for each destinations
                                                              )(i,i)),
                    // make the first call with each digit
print(670) // finally print 670

@dana gab auch eine 123-Byte-Lösung an, wenn wir zuerst 670 drucken können

[21,420,5310,62,751,8642,953,84,975,86].map((_,i,a)=>(f=(v,t)=>print(i?v:640)|i&v<5e3&&[...a[t]+''].map(k=>f(v+k,k)))(i,i))

Ruby , 99 Bytes

1.upto(5e4){|n|w,*x=n.digits;x.all?{|d|[6,21,43,68,162,340,552,272,672,320][w][w=d]>0}&&p(n)}
p 670

Probieren Sie es online!

Stax , 28 26 Bytes

Δh┤♣É╦&·é╝n$K»à¶▲v═NÆ;↨m≥8

Führen Sie es aus und debuggen Sie es

Ausgepackt, ungolfed und kommentiert sieht es so aus.

G               Call to unbalanced trailing '}', then resume here
670P            Print 670
}               Call target
219J            219 squared (47961)
f               Filter 1-based range by the rest of the program; implicitly output
  $2B           Convert to string and get adjacent pairs; e.g. 213 -> ["21", "13"]
  O             Push 1 under list of pairs
  F             Iterate over pairs, using the rest of the program
    o           Order each pair; e.g. "21" -> "12"
    "{<f:[/T8Z" string literal with code points [123 60 102 58 91 47 84 56 90]
    $           concate as string i.e. "12360102589147845690"
    s#          How many times does the current pair appear in the constant string?
    *           Multiply this by running total.  Any zero will cause the result to be zero.

Führen Sie dieses aus

Die geheime Sauce steht im String-Literal "{<f:[/T8Z". Nachdem Sie alle Codepunkte zusammengesteckt haben, erhalten Sie 12360102589147845690. Die aufsteigenden Paare in dieser Zeichenfolge sind die gültigen Schlangenbewegungen.

Haskell , 118 Bytes

(filter(and.(zipWith elem.tail<*>map f).show)[1..50000],670)
f c=words"12 024 0135 26 157 2468 359 48 579 68"!!read[c]

Probieren Sie es online!

Ein erster Durchgang; Ich kann nicht gut komprimieren.

Das s=zählt nicht, da wir das Ergebnis eigentlich nicht binden müssen.

Ungolfed Code .

Holzkohle , 42 Bytes

≔ΦＩ…·¹×⁵⁰φ⬤ι№”)¶∧XRτ_ΠＧêＲ⁵m⎇λ”✂ιμ⁺²μ¹θθＩＬθ

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Erläuterung:

≔ΦＩ…·¹×⁵⁰φ

Verarbeiten des inklusiven Bereich von 1bis 50,000Guss zu bespannen.

⬤ι№”)¶∧XRτ_ΠＧêＲ⁵m⎇λ”✂ιμ⁺²μ¹θ

Filtern Sie diejenigen heraus, deren Ziffernpaare nicht in der komprimierten Zeichenfolge enthalten sind 01478963202125458565236987410.

θＩＬθ

Geben Sie das verbleibende Array und seine Länge aus.

Japt , 34 Bytes

5e4õs f_ä@"-Pì[/Z8"mc øZñÃe
pUl

Versuch es

Perl 6 , 64 Bytes

{670,grep {[+&](:36<12HGX91H8VCL3MG0FDVQ>X+>m:ov/../)%2},1..5e4}

Probieren Sie es online!

Erläuterung

{670,grep {...},1..5e4}  # Meet questionable output requirements

# Actual decision problem

     :36<12HGX91H8VCL3MG0FDVQ>  # Bit field of allowed transitions
                                # encoded in base 36
                                 m:ov/../  # All 2-digit substrings
                              X+>  # Right shift by each substring
                                   # (implicitly converted to an integer)
[+&](                                    )  # Binary and
                                          %2  # Modulo 2

Pyth , 68 65 45 Bytes

l
f.Am}dCtB+J`65874589632012541_PJCtB`TS50000

Probieren Sie es online!

Inspiration für die überarbeitete Nachschlageprozess kam von Khuldraeseth na'Barya der Stax Antwort , so dass sie eine upvote gehen zu geben!

Edit 2: Umschreiben, um ein paar Bytes zu speichern, frühere Version:

l
f.Am}ed@c"12 024 0135 26 157 2468 359 48 579 68";shdCtB`TS50000

Bearbeiten: 3 Bytes mit String-Lookups abgelegt, Vorgängerversion:

l
f.Am}ed@sMMc"12 024 0135 26 157 2468 359 48 579 68";hdCtBjT;S50000