Alternativnummern

12

Betrachten Sie das Array positiver Ganzzahlen:

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ...

Dann verketten Sie sie:

1234567891011121314151617181920212223242526...

Teilen Sie sie dann in Abschnitte variabler Länge auf, wobei jede Länge der N- ten positiven ganzen Zahl entspricht:

[1][23][456][7891][01112][131415][1617181][92021222][324252627][2829303132] ...
---------------------------------------------------------------------------
 1  2    3     4     5       6       7        8          9          10      ...

Aufgabe

Bei einer Ganzzahl N (positiv für 1-Indizierung oder nicht-negativ für 0-Indizierung) müssen Sie die Summe der Deltas der Ziffern im N- ten Block (die Unterschiede zwischen aufeinanderfolgenden Ziffern) ausgeben .

Beispiele & Testfälle

1-indizierte Testfälle. Wenn Sie 0-indizierte möchten, verringern Sie einfach N.

N, Chunk, Deltas, Sum

1  -> 1          -> []                               -> 0
2  -> 23         -> [1]                              -> 1
3  -> 456        -> [1, 1]                           -> 2
4  -> 7891       -> [1, 1, -8]                       -> -6
5  -> 01112      -> [1, 0, 0,1]                      -> 2
6  -> 131415     -> [2, -2, 3, -3, 4]                -> 4
7  -> 1617181    -> [5, -5, 6, -6, 7, -7]            -> 0
8  -> 92021222   -> [-7, -2, 2, -1, 1, 0, 0]         -> -7
9  -> 324252627  -> [-1, 2, -2, 3, -3, 4, -4, 5]     -> 4
10 -> 2829303132 -> [6, -6, 7, -6, -3, 3, -2, 2, -1] -> 0

Puzzle 2 beim CodeGolf-Hackathon (Ich bin dort auch der ursprüngliche Autor, daher darf ich neu posten). Verwandte, Inspiration . Verwandte .

Mr. Xcoder
quelle
1
Die Summe aller Unterschiede zwischen aufeinanderfolgenden Ziffern ist nur der Unterschied zwischen dem letzten und dem ersten.
KSmarts

Antworten:

5

JavaScript (ES6), 54 53 51 50 Byte

1 Byte dank @tsh gespeichert

0-indiziert.

k=>-(n=1,g=s=>s[x=k*-~k/2]-s[x+k]-n||g(s+n++))``-n

Testfälle

Arnauld
quelle
Null-indexiert:k=>-(n=1,g=s=>s[x=k*-~k/2]-s[x+k]-n||g(s+n++))""-n
tsh
4

APL (Dyalog) , 32 Bytes

{+/2-⍨/⍎¨⍵↑(+/⍳⍵-1)↓' '~⍨⍕⍳+/⍳⍵}

Probieren Sie es online!

Wie?

+/⍳⍵- Summe von 1bisn

- Machen Sie Reichweite davon

' '~⍨⍕ - in eine Zeichenfolge ohne Leerzeichen

(+/⍳⍵-1)↓- Lassen Sie die ersten (Summe von 1bis n-1) Zeichen fallen

⍵↑- Behalte die nächsten nZeichen

⍎¨ - mache jedes Zeichen zu einer ganzen Zahl

2-⍨/ - Differenzenliste (Rückwärtssubtraktion für jeweils 2 Elemente)

+/ - Fass es zusammen.

Uriel
quelle
4

Schale , 9 Bytes

ΣẊ-!SCṁdN

Probieren Sie es online!

Meine Lösung zum Hackathon.

Erläuterung:

ΣẊ-!SCṁdN⁰
    S      (x -> y -> z):f -> (x -> y):g -> x:x :: return f(x, g(x))
     C      f= [num]:x -> [x]:y -> [x] :: cut y in pieces where each piece has its respective length in x
      ṁ     g= (x -> [y]):f -> ([x]:x -> [y]) :: maps f over x then concatenate
       d     f= num:x -> [num] :: return decimal digits of x
        N   x= sequence of natural numbers [1..]
   !     ⁰ [x]:x -> num:y -> x :: get yth (impl. input) element of x (above result)
 Ẋ         (x -> x -> y):f -> [x]:x -> [y] :: map f over overlapping pairs of x (above result)
  -         f= num:x -> num:y -> num :: return y - x
Σ          [num]:x -> num :: return sum of x (above result)
Erik der Outgolfer
quelle
4

Haskell , 61-60 Bytes

l=fromEnum<$>(show=<<[1..])
f n|t<-sum[2..n]=l!!t-l!!(t-n+1)

Probieren Sie es online!

Erläuterung:

Die Summe der Deltas einer Liste entspricht der Differenz zwischen dem letzten und dem ersten Element.

Das letzte Element (Null-indiziert) ist t, triangle(n)-1 = sum[2..n]. Das erste Element ist dann t-n+1, da die Liste nElemente enthält.

H.PWiz
quelle
4

Python 2 , 80 Bytes

n=input()
s=map(int,''.join(map(str,range(2**n))))
print s[n*-~n/2]-s[~-n*n/2+1]

Probieren Sie es online!

2**nDas ist natürlich viel zu viel, aber es ist ein Byte kürzer als so etwas n*n+1.

Lynn
quelle
3

Mathematica, 71 Bytes

Tr@Differences[TakeList[Join@@IntegerDigits[Range[#^2]],Range@#][[#]]]&

Probieren Sie es online!

J42161217
quelle
3

JavaScript (ES6), 60 57 53 Bytes

f=(n,s=i='',m=n*-~n/2)=>s[m]?s[m]-s[m-n+1]:f(n,s+i++)
<input type=number min=1 oninput=o.textContent=f(this.value)><pre id=o>

1-indiziert. Vorherige nicht rekursive 60-Byte-Version:

f=
(n,s=[...Array(n*n+1).keys()].join``)=>s[m=n*-~n/2]-s[m-n+1]
<input type=number min=1 oninput=o.textContent=f(this.value)><pre id=o>

Neil
quelle
1

Python 2 , 104 Bytes

def f(N):A=map(int,"".join(map(str,range(1,N*N)))[~-N*N/2:][:N]);return sum(a-b for a,b in zip(A[1:],A))

Probieren Sie es online!

Jonathan Frech
quelle
1

Perl 6 ,  58  55 Bytes

{[+] ($_=(1..*).map(|*.comb).rotor(1..*)[$^a])[1..*]Z-@$_}

Probier es aus

{[+] ($_=(1..*).map(|*.comb)[^$^a+[+] ^$a])[1..*]Z-@$_}

Probier es aus

Erweitert:

{ # bare block lambda with placeholder parameter 「$a」
  [+]  # reduce using &infix:«+» the following


    (
      $_ =                # store into 「$_」 for later use

        ( 1 .. * )        # Range of all positive integers
        .map( | *.comb )\ # split into digits and flatten into single list

        [                 # index into the sequence (1 based)

          ^$^a            # Range up to (and excluding) the input
                          # 「0 ..^ $a」 or 「0 .. $a-1」

          +               # shift it up by
          [+] ^$a         # the sum of the values up to (and excluding) the input

        ]

    )[ 1 .. *]            # skip the first value

    Z-                    # zip using &infix:«-»

    @$_                   # 「$_」 used as a List
}
Brad Gilbert b2gills
quelle
1

PHP , 163 147 Bytes

$v=$argv[1];for($i=1;$i<=$v*$v;$i++){$s.=$i;$j+=$i<$v?$i:0;}$s=array_slice(str_split($s),$j,$v);for($i=0;$i<$v-1;$i++){$k+=$s[$i+1]-$s[$i];}echo$k;

Probieren Sie es online!

Mein erster Versuch, Code Golf zu spielen ... habe das Gefühl, dass dies kürzer sein kann

Bearbeiten: 16 Bytes durch Entfernen mehrerer Instanzen gespeichert

SmartCoder
quelle
Willkommen auf der Seite! Vielleicht möchten Sie diese Tipps zum Golfen in PHP
durchsehen
0

Pyth , 29 27 Bytes

2 Bytes gespart dank @ Mr.Xcoder.

s.+msdc:sm+hd""U*QQKsUQ+QK1

Probieren Sie es online!

Ian H.
quelle
1
27 Bytes ziemlich sicher, dass es weiter golfen werden kann ...
Mr. Xcoder
0

Gelee , 14 Bytes

²RDFṫ³ḶS‘¤ðḣIS

Probieren Sie es online!

Erläuterung

²RDFṫ³ḶS‘¤ðḣIS    Main Link
²                  Square input
 R                 Range: [1,2,3,..,n^2]
  D                Digits: [1,2,...,[1,0],[1,1],...]
   F               Flatten list
     ³ḶS‘¤         n(n-1)/2+1
    ṫ              Remove the first n(n-1)/2+1 elements from the list of digits
          ðḣ       Take the first n digits of the list. ð is needed to prevent I from acting on n.
            I      Increment. Take the diferences
             S     Sum

Ich habe ursprünglich mit dem Bereich (n (n + 1) / 2) begonnen, aber da Sie vor dem Schneiden der Liste zusätzliche Ziffern am Ende der Liste haben können, habe ich ihn in den Bereich (n ^ 2) geändert. Sie haben sowieso zusätzliche Ziffern nach 1-9.

dylnan
quelle
+²HRDFṫЀ³ḶḣЀRS€‘¤ṪðḣISursprünglicher (erfolgreicher, aber langer) Versuch
dylnan