Потяг перетинає мічений міст


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….
Лінн

@Lynn Трохи пізно, так, можна.
Містер 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 ; гольф [~-x:x+~-t]до [~-x:][:t].
  • Збережено байт; гольф ...range(1,-~b)))[:b]до ...range(b)))[1:-~b].
  • Збережено три байти; гольф [1:-~b][~-x:]до [:-~b][x:].
  • Збережено три байти; гольф [:-~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.