Pociąg przejeżdża przez oznakowany most


9

Rozważmy mostek o długości B utworzony z płytek oznaczonych cyframi dodatnich liczb całkowitych połączonych. Na przykład, jeśli B miał 41 lat, wyglądałoby to tak:

-----------------------------------------
12345678910111213141516171819202122232425

Teraz wyobraź sobie pociąg długości T przekraczający most. Najbardziej wysunięty na lewo punkt pociągu rozpoczyna się w pozycji X (indeksowane 1). Aby lepiej zrozumieć problem, zróbmy schemat zdarzenia z B = 41, T = 10, X = 10 . Pociąg jest rysowany za pomocą znaków równości ( =) i linii:

         __________
         | ======== |
         | ======== |
-----------------------------------------
12345678910111213141516171819202122232425

Pociąg może przesuwać się na każdym kroku o sumę unikalnych płytek, na których się znajduje. Na przykład kafelki, na których stoi pociąg, to: [1, 0, 1, 1, 1, 2, 1, 3, 1, 4]unikatowe (deduplikowane) kafelki to:, [1, 0, 2, 3, 4]a ich suma wynosi 10. Dlatego pociąg może posuwać się naprzód za pomocą 10płytek. Powinniśmy go narysować ponownie i powtarzać proces, aż skrajnie lewy punkt pociągu minie ostatni kafelek:

                   __________
                   | ======== |
                   | ======== |
-----------------------------------------
12345678910111213141516171819202122232425

Suma unikalnych płytek: 1 + 5 + 6 + 7 + 8 + 9 = 36. Pociąg przesuwa się o 36 płytek ...

                                                       __________
                                                       | ======== |
                                                       | ======== |
-----------------------------------------
12345678910111213141516171819202122232425

Pociąg oczywiście całkowicie przeszedł przez most, więc powinniśmy się teraz zatrzymać.

Ponieważ ludzie w środku są znudzeni, liczą kafelki, które pociąg podnosił za każdym razem. W tym konkretnym przypadku 10i 36. Podsumowując, pociąg ruszył, 46zanim minął most.


Zadanie

Biorąc pod uwagę trzy dodatnie liczby całkowite, B (długość mostu), T (długość pociągu) i X (pozycja początkowa, indeks 1 ), Twoim zadaniem jest określenie, ile płytek pociąg przemieścił się, aż przeszedł przez most zgodnie z zasadami powyżej.

  • Możesz założyć, że:
    • B jest wyższa niż T .
    • X jest mniejsze niż B .
    • T wynosi co najmniej 2 .
    • Pociąg w końcu przejeżdża przez most.
  • Obowiązują wszystkie nasze standardowe zasady.
  • To jest , więc wygrywa najkrótszy kod w bajtach!

Przypadki testowe

Wejście ([B, T, X]) -> Wyjście

[41, 10, 10] -> 46
[40, 10, 10] -> 46
[30, 4, 16] -> 24
[50, 6, 11] -> 50

Kolejny sprawdzony przykład ostatniego przypadku testowego:

Most ma długość 50, pociąg 6, a pozycja początkowa to 11.

          ______
          | ==== |
          | ==== |
--------------------------------------------------
12345678910111213141516171819202122232425262728293

Unikalne płytki: [0, 1, 2]. Suma: 3.

             ______
             | ==== |
             | ==== |
--------------------------------------------------
12345678910111213141516171819202122232425262728293

Unikalne płytki: [1, 2, 3, 4]. Suma: 10.

                       ______
                       | ==== |
                       | ==== |
--------------------------------------------------
12345678910111213141516171819202122232425262728293

Unikalne płytki: [1, 7, 8, 9]. Suma: 25.

                                                ______
                                                | ==== |
                                                | ==== |
--------------------------------------------------
12345678910111213141516171819202122232425262728293

Unikalne płytki: [9, 3]. Suma: 12.
                                                            ______
                                                            | ==== |
                                                            | ==== |
--------------------------------------------------
12345678910111213141516171819202122232425262728293

Pociąg istnieje most. Suma całkowita: 3 + 10 + 25 + 12 = 50.

6
Możemy założyć, pociąg ma przejechać przez most w końcu? Dla wejścia podoba (200, 2, 169), pociąg utknie na 00w …9899100101102….
Lynn,

@ Lynn Trochę późno, tak, możesz.
Pan Xcoder,

Odpowiedzi:


3

Łuska , 20 bajtów

ṁ←U¡S↓←moΣuX_⁰↓Θ↑ṁdN

Wypróbuj online!

Przyjmuje trzy argumenty w celu T , B , X .

Wyjaśnienie

ṁ←U¡S↓←moΣuX_⁰↓Θ↑ṁdN
                 ṁdN    Build the list of digits of natural numbers
              ↓Θ↑       Take the first B digits, add a 0 in front
                        then drop the first X digits
           X_⁰          Get all sublists of length T
       moΣu             Map the sum of unique values of each sublist

   ¡S↓←                 Repeatedly drop as many elements from the start of the list as the
                        first element of the list says;
                        keep all partial results in an infinite list.

  U                     Take elements until the first repeated one
                        (drops tail of infinite empty lists)

ṁ←                      Sum the first elements of each remaining sublist

6

Python 2 , 110 105 104 103 100 97 96 bajtów

  • Zaoszczędził pięć bajtów dzięki Mr. Xcoder ; usunięto niepotrzebne przypisanie, przeniosłem negację w dostępne białe znaki.
  • Zaoszczędził bajt dzięki Mr. Xcoder ; grał [~-x:x+~-t]w golfa [~-x:][:t].
  • Zapisano bajt; grał ...range(1,-~b)))[:b]w golfa ...range(b)))[1:-~b].
  • Zapisano trzy bajty; grał [1:-~b][~-x:]w golfa [:-~b][x:].
  • Zapisano trzy bajty; grał [:-~b][x:]w golfa [x:-~b].
  • Oszczędność bajtu dzięki Lynn ; gra w golfa w whilepętli do execinstrukcji.
b,t,x=input();S=x;exec"x+=sum(set(map(int,''.join(map(str,range(b)))[x:-~b][:t])));"*b;print-S+x

Wypróbuj online!


Alternatywne rozwiązanie o długości 105 bajtów .
Jonathan Frech

104 bajty . [~-x:x+~-t]może zostać zastąpiony przez[x-1:][:t]
Pana Xcodera

exec"x+=sum(set(map(int,''.join(map(str,range(b)))[x:-~b][:t])));"*bpracuje dla 96. (Pociąg nigdy nie podejmie więcej niż bkroków, aby opuścić most, a cała operacja będzie się x+=0powtarzać raz po raz.)
Lynn

4

Haskell, 106 102 bajtów

import Data.List
(b#t)x|x>b=0|y<-sum[read[c]|c<-nub$take t$drop(x-1)$take b$show=<<[1..]]=y+(b#t)(x+y)

Wypróbuj online!

(b#t)x
   |x>b=0                 -- if the train has left the bridge, return 0
   |y<-sum[   ]           -- else let y be the sum of
      read[c]|c<-         -- the digits c where c comes from
        nub               -- the uniquified list of
            show=<<[1..]] -- starting with the digits of all integers concatenated
          take b          -- taking b digits (length of bridge)
         drop(x-1)        -- dropping the part before the train
        take t            -- take the digits under the train
     =y+(b#t)(x+y)        -- return y plus a recursive call with the train advanced

3

R , 123 bajty

function(B,T,X){s=substring
while(X<B){F=F+(S=sum(unique(strtoi(s(s(paste(1:B,collapse=''),1,B),K<-X+1:T-1,K)))))
X=X+S}
F}

Po prostu implementuje opisany algorytm.

R jest dość okropny w strunach.

function(B,T,X){
 s <- substring                         # alias
 b <- s(paste(1:B,collapse=''),1,B)     # bridge characters
 while(X<B){                            # until we crossed the bridge
  K <- X+1:T-1                          # indices of the characters
  S <- s(b,K,K)                         # the characters from b
  S <- sum(unique(strtoi(S)))           # sum
  F <- F + S                            # F defaults to 0 at the beginning
  X <- X + S                            # advance the train
 }
 F                                      # number of steps, returned
}

Wypróbuj online!


2

Galaretka ,  22  21 bajtów

ḣ⁵QS
RDẎḣ⁸ṫṫÇ‘$$ÐĿÇ€S

Pełny program przyjmujący trzy argumenty - kolejność to B , X , T - który wypisuje wynik.

Wypróbuj online!

W jaki sposób?

ḣ⁵QS - Link 1, calculate next jump: list of digits, bridge under and beyond train's left
 ⁵   - program's fifth command line argument (3rd input) = T (train length)
ḣ    - head to index (get the digits of the tiles under the train)
  Q  - de-duplicate
   S - sum

RDẎḣ⁸ṫṫÇ‘$$ÐĿÇ€S - Main link: number, B (bridge length); number, X (starting position)
R                - range(B) = [1,2,3,...,B-1,B]
 D               - to decimal list (vectorises) = [[1],[2],[3],...,[digits of B-1],[digits of B]]
  Ẏ              - tighten (flatten by one) = [1,2,3,...,digits of B-1,digits of B]
    ⁸            - chain's left argument, B
   ḣ             - head to index (truncate to only the bridge's digits)
     ṫ           - tail from index (implicit X) (truncate from the train's left)
           ÐĿ    - loop, collecting results, until no more change occurs:
          $      -   last two links as a monad:
         $       -     last two links as a monad:
       Ç         -       call last link (1) as a monad (get next jump)
        ‘        -       increment
      ṫ          -     tail from that index (remove the track to the left after train jumps)
             Ç€  - call last link (1) as a monad for €ach (gets the jump sizes taken again)
               S - sum
                 - implicit print

1

JavaScript (ES6), 117 bajtów

f=(B,T,X,g=b=>b?g(b-1)+b:'',o=0)=>X<B?[...g(B).substr(X-1,T)].map((e,i,a)=>o+=i+X>B|a[-e]?0:a[-e]=+e)&&o+f(B,T,X+o):0

Para funkcji rekurencyjnych:

  1. f() sumuje ruchy pociągu.
  2. g() tworzy ciąg liczb.

Mniej golfa:

f=
(B,T,X,
 g=b=>b?g(b-1)+b:'',                       //creates the string of numbers
 o=0                                       //sum of tiles the train sits on
)=>
  X<B?                                     //if we're not past the bridge:
      [...g(B).substr(X - 1,T)].map(       //  grab the tiles we're sitting on
        (e,i,a)=>o += i + X > B |          //  if we've passed the bridge,
                      a[-e] ? 0 :          //  ... or we've seen this tile before, add 0 to o
                              a[-e] = +e   //  else store this tile and add its value to o
      ) &&
      o + f(B,T,X+o) :                     //recurse
  0


0

PHP> = 7,1, 153 bajty

<?$s=substr;[,$p,$q,$r]=$argv;while($i<$p)$a.=++$i;$a=$s($a,0,$p);;while($r<$p){$x+=$n=array_sum(array_unique(str_split($s($a,$r-1,$q))));$r+=$n;}echo$x;

Wypróbuj online!

Aby był kompatybilny z niższymi wersjami PHP, zmień [,$p,$q,$r]=na list(,$p,$q,$r)=(+4 bajty).

<?
[,$bridgelen,$trainlen,$position] = $argv;                  // grab input
while($i<$bridgelen)                                        // until the bridge is long enough...
  $bridgestr .= ++$i;                                       // add to the bridge
$bridgestr = substr($bridgestr,0,$bridgelen);               // cut the bridge down to size (if it splits mid-number)
while($position<$bridgelen){                                // while we are still on the bridge...
  $currtiles =                                              // set current tiles crossed to the...
    array_sum(                                              // sum of tiles...
      array_unique(                                         // uniquely...
        str_split(substr($bridgestr,$position-1,$trainlen)) // under the train
      )
    )
  ;
  $totaltiles += $currtiles;                                // increment total tiles crossed
  $position += $currtiles;                                  // set new position
}
echo $totaltiles;                                           // echo total tiles crossed
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.