Поезд пересекает помеченный мост


9

Рассмотрим мост длиной B , состоящий из плиток, помеченных цифрами соединенных положительных целых чисел. Например, если бы B было 41, то это выглядело бы так:

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

Теперь представьте поезд длиной Т, пересекающий мост. Крайняя левая точка поезда начинается в положении X (с индексом 1). Чтобы лучше понять проблему, давайте составим схему мероприятия, где B = 41, T = 10, X = 10 . Поезд нарисован с использованием знаков равенства ( =) и линий:

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

Поезд может продвигаться на каждом этапе по сумме уникальных плиток, на которых он находится. Например, плитки, на которых стоит поезд, это:, [1, 0, 1, 1, 1, 2, 1, 3, 1, 4]уникальные (дедуплицированные) плитки:, [1, 0, 2, 3, 4]и их сумма равна 10. Следовательно, поезд может двигаться вперед по 10плиткам. Мы должны нарисовать его снова и повторять процесс, пока крайняя левая точка поезда не пройдет последнюю плитку:

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

Сумма уникальных плиток: 1 + 5 + 6 + 7 + 8 + 9 = 36. Поезд продвигается на 36 плиток ...

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

Поезд явно пересек мост, поэтому мы должны остановиться.

Поскольку людям внутри скучно, они считают плитки, которые поезд продвигал каждый раз. В этом конкретном случае 10и 36. Подводя итог, поезд двинулся еще 46до того, как пересек мост.


задача

С учетом трех натуральных чисел, B (длина моста), T (длина поезда) и X (начальная позиция, индексированная 1 ), ваша задача состоит в том, чтобы определить, сколько плиток поезд переместился, пока не пересек мост, следуя правилам. над.

  • Вы можете предположить, что:
    • В выше , чем Т .
    • Х ниже , чем B .
    • Т составляет не менее 2 .
    • Поезд в конце концов пересекает мост.
  • Все наши стандартные правила применяются.
  • Это так что самый короткий код в байтах побеждает!

Контрольные примеры

Вход ([B, T, X]) -> Выход

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

Еще один работающий пример для последнего контрольного примера:

Мост длиной 50, поездом 6 и стартовой позицией - 11.

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

Уникальные плитки: [0, 1, 2]. Сумма: 3.

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

Уникальные плитки: [1, 2, 3, 4]. Сумма: 10.

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

Уникальные плитки: [1, 7, 8, 9]. Сумма: 25

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

Уникальные плитки: [9, 3]. Сумма: 12
                                                            ______
                                                            | ==== |
                                                            | ==== |
--------------------------------------------------
12345678910111213141516171819202122232425262728293

Поезд существует мост. Общая сумма: 3 + 10 + 25 + 12 = 50.

6
Можно ли считать , поезд действительно пересечь мост в конце концов? Для входа нравится (200, 2, 169), поезд застревает на 00в …9899100101102….
Линн

@ Линн Немного поздно, да, ты можешь.
г-н Xcoder

Ответы:


3

Шелуха , 20 байт

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

Попробуйте онлайн!

Принимает три аргумента в порядке T , B , X .

объяснение

ṁ←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 байт

  • Сохранено пять байтов благодаря г-ну Xcoder ; убрал ненужное назначение, переместил отрицание в доступный пробел.
  • Сохраненный байт благодаря мистеру Xcoder ; golfed [~-x:x+~-t]к [~-x:][:t].
  • Сохраненный байт; golfed ...range(1,-~b)))[:b]к ...range(b)))[1:-~b].
  • Сохранено три байта; golfed [1:-~b][~-x:]к [:-~b][x:].
  • Сохранено три байта; golfed [:-~b][x:]к [x:-~b].
  • Сохраненный байт благодаря Линн ; игра в гольф whileк execзаявлению.
b,t,x=input();S=x;exec"x+=sum(set(map(int,''.join(map(str,range(b)))[x:-~b][:t])));"*b;print-S+x

Попробуйте онлайн!


Альтернативное решение длиной 105 байт .
Джонатан Фрех

104 байта . [~-x:x+~-t]может быть заменен[x-1:][:t]
г-н Xcoder

exec"x+=sum(set(map(int,''.join(map(str,range(b)))[x:-~b][:t])));"*bработает на 96. (Поезд никогда не будет делать больше, чем bшаги, чтобы покинуть мост, и вся эта операция будет x+=0
Линн

4

Haskell, 106 102 байта

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)

Попробуйте онлайн!

(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 байта

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}

Просто реализует описанный алгоритм.

R довольно ужасно на струнах.

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
}

Попробуйте онлайн!


2

Желе ,  22  21 байт

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

Полная программа, принимающая три аргумента (порядок B , X , T), которая печатает результат.

Попробуйте онлайн!

Как?

ḣ⁵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 байт

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

Пара рекурсивных функций:

  1. f() подводит итоги движения поезда
  2. g() создает строку чисел.

Менее гольф:

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 байта

<?$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;

Попробуйте онлайн!

Чтобы сделать его совместимым с более низкими версиями PHP, измените [,$p,$q,$r]=на list(,$p,$q,$r)=(+4 байта).

<?
[,$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
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.