列車がラベル付きの橋を渡る


9

連結された正の整数の数字でラベル付けされたタイルによって形成された長さBのブリッジを考えます。たとえば、Bが41の場合、次のようになります。

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

橋を渡る長さTの列車を想像してみてください。列車の左端のポイントは、位置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橋を通過する前に移動しました。


仕事

3つの正の整数B(橋の長さ)、T(列車の長さ)、X(開始位置、1インデックス)が与えられた場合、タスクは、列車がルールに従って橋を越えるまでに移動したタイルの数を決定することです。上記。

  • あなたはそれを仮定することができます:
    • BTより大きい。
    • XBよりも小さい。
    • Tは少なくとも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氏、2017年

回答:


3

ハスク、20バイト

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

オンラインでお試しください!

TBXの順序で3つの引数を取ります。

説明

ṁ←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

パイソン2110 105 104 103 100の 97の 96バイト

  • Xcoder氏のお陰で5バイト節約。不要な割り当てを削除し、否定を使用可能な空白に移動しました。
  • Xcoder氏のおかげで1バイト節約できました。にゴルフ[~-x:x+~-t]をした[~-x:][:t]
  • バイトを保存しました。にゴルフ...range(1,-~b)))[:b]をした...range(b)))[1:-~b]
  • 3バイト節約。にゴルフ[1:-~b][~-x:]をした[:-~b][x:]
  • 3バイト節約。にゴルフ[:-~b][x:]をした[x:-~b]
  • Lynnのおかげで1バイト節約できました。声明に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バイト長のソリューション。
Jonathan Frech 2017年

104バイト[~-x:x+~-t]代替可能[x-1:][:t]
Mr. Xcoder

exec"x+=sum(set(map(int,''.join(map(str,range(b)))[x:-~b][:t])));"*b96で動作します(列車はb橋を出るのに数歩以上かかることはありません。また、列車が去ると、運行全体がx+=0何度も
Lynn

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

3つの引数を取る完全なプログラム-順序はBXTで、結果を出力します。

オンラインでお試しください!

どうやって?

ḣ⁵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の下位バージョンと互換性を持たせるには、(+ 4バイト)に変更[,$p,$q,$r]=list(,$p,$q,$r)=ます。

<?
[,$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
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.