ライトはいつ点滅しますか？

10

2つのライトがあるとします。これらのライトは特定の速度で点滅します。

Light 0: Delay 0ms and then blink every 1000ms
Light 1: Delay 500ms and then blink every 1000ms

これらのライトを最初の2000ミリ秒でシミュレートしてみましょう。

0ms:    Light 0 on
500ms:  Light 1 on
1000ms: Light 0 off
1500ms: Light 1 off
2000ms: Light 0 on

チャレンジ

ライトのタイミングを表す順序付けられたペアのリストが与えられたら、点滅したときにシーケンスを出力するプログラムまたは関数を記述します。

入力

入力は次の形式にする必要があります。

TimeToSimulate
Light0Delay,Light0Period
Light1Delay,Light1Period
...

この形式では、上記の例は次のようになります。

2000
0,1000
500,1000

出力

出力は一連の順序付けられたトリプルである必要があります。

Time,LightNum,LightStatus

LightStatusは、ライトがオンの場合は真の値であり、ライトがオフの場合は偽の値です。

上記の例の出力は次のようになります。

0,0,True
500,1,True
1000,0,False
1500,1,False
2000,0,True

2つのライトが同時に点滅する場合、番号が小さい方のライトが最初に出力に表示されます。

他のもの

  • 入力形式と出力形式は厳密ではありません
  • コードでエラーが発生してはならない
  • ソリューションは競合状態に依存すべきではありません
  • 標準の抜け穴なし
  • これはコードゴルフなので、最短のソリューションが勝ちます！

テストケース

Input:

2000
0,1000
500,1000

Output:

0,0,True
500,1,True
1000,0,False
1500,1,False
2000,0,True

----

Input:

2
0,1
0,1

Output:

0,0,True
0,1,True
1,0,False
1,1,False
2,0,True
2,1,True

----

Input:

500
100,50
200,100
300,150

Output:

100,0,True
150,0,False
200,0,True
200,1,True
250,0,False
300,0,True
300,1,False
300,2,True
350,0,False
400,0,True
400,1,True
450,0,False
450,2,False
500,0,True
500,1,False

----

Input:

1000
23,345
65,98
912,12
43,365

Output:

23,0,True
43,3,True
65,1,True
163,1,False
261,1,True
359,1,False
368,0,False
408,3,False
457,1,True
555,1,False
653,1,True
713,0,True
751,1,False
773,3,True
849,1,True
912,2,True
924,2,False
936,2,True
947,1,False
948,2,False
960,2,True
972,2,False
984,2,True
996,2,False

ビッグバナースニペット：

コードスニペットを表示

code-golf  number 
— ダニエル・M
ソース
どのくらいの出力で十分ですか？
— aschepler 2017
@ascheplerどういう意味ですか？入力は、「シミュレーション」する時間の長さを指定します
— Daniel M.

回答:

3

JavaScript、98 97バイト

a=>b=>[...Array(a+1)].map((_,i)=>b.map((d,j)=>d[0]--||c.push([i,j,d[d[0]=d[1]-1,2]^=1])),c=[])&&c

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

Shaggyのおかげで1バイト節約されました -カリー化入力構文を使用してください。

カリー化して1バイトを保存しますa=>b=>。
— Shaggy 2017
@Shaggy。あなたはとても速いです、私は編集を準備していました。
経験則：2つの入力がある場合は、常にカレーを使用してください。
— シャギー2017
2

ゼリー、 26  25 バイト

Ḣrm⁸ð€µ;€€"J;"J$€€ẎẎḂ0¦€Ṣ

delay, period数値リストと時間枠番号のリストをtime, light, action受け取り、整数のリストを返すダイアディックリンク。

ライトは1インデックスで、 0、「オフ」アクションを1表し、「オン」アクションを表します。

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

どうやって？

Ḣrm⁸ð€µ;€€"J;"J$€€ẎẎḂ0¦€Ṣ - Link: [[delay, period],...], time-frame 
    ð€                    - for €ach [delay, period]:
Ḣ                         -   head (get the delay and modify the item to [period])
 r                        -   inclusive range to time-frame = [delay,delay+1,...,time-frame]
   ⁸                      -   chain's left argument = [period]
  m                       -   modulo slice = [delay, delay+period, delay+2*period, ...]
      µ                   - monadic chain separation, call that v
           J              - range(length(v)) = [1,2,...,nLights]
          "               - zip with:
       ;€€                -   concatenate for €ach for €ach (add light indexes to times)
               $€€        - last two links as a monad for €ach for €ach:
              J           -   range (length(switch-times-for-a-light))
             "            -   zip with:
            ;             -     concatenation (i.e. append a 1-based index)
                  ẎẎ      - tighten & tighten again (flatten by 2 to a list of triples)
                      |€  - sparse application of (for €ach):
                     0    - ...to indexes: 0 (=last entry)
                    Ḃ     - ...action: modulo by 2 (even appended indexes ->0s; odds -> 1s)
                        Ṣ - sort the resulting list of triples
— ジョナサンアラン
ソース
2

パイソン2、206の 214バイト

  • 規則に準拠するために8バイトが追加されました（stdinを介して入力を取ります）。
Q=input();D,T=Q[0],[map(int,q.split(","))for q in Q[1:]];O,l=[],len(T)
for j in range(l):
	t,b=T[j][0],9>8
	while t<=int(D):O+="%0*d,%0*d,%s"%(len(D),t,len(str(l)),j,b),;b=not b;t+=T[j][1]
print"\n".join(sorted(O))

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

このコードは、各ライトのスイッチング時間を含む順序付けられていないリストを生成し、それらの時間とライト識別子をパディングし、リストをソートして出力します。

— ジョナサン・フレッチ
ソース
標準のルールでは、入力を行う必要があるため、変数に事前に存在することは期待できません。あなたは、おそらく使用していることを見つけることができますinput()（Pythonの2のため、何の文字列解析は必要ありませんあなたは、彼らがあまりにもダウンカウントバイトカットすることができますinput()ですeval(raw_input())）:)。
— ジョナサンアラン
...文字列ではなく数値を使用した場合もOソートされ、バイトカウントも削減される可能性があります
— Jonathan Allan
@JonathanAllanルールの不一致に気づいていただきありがとうございます。現在、Python 2の回答が大幅に短いため、提案は組み込みません。
— Jonathan Frech 2017年
1

Haskell、121バイト

import Data.List
t!l=sort$(zip[0..]l)>>=takeWhile(\(a,_,_)->a<=t).(\(i,(d,w))->iterate(\(t,i,s)->(t+w,i,not s))(d,i,2>1))

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

これは私が始めたプログラムです：

import Data.List

type LightId = Int
type Time = Int
type State = Bool
type LightEvent = (Time, LightId, State)

lightSimulation :: Time -> Time -> [(Time, State)]
lightSimulation delay interval = iterate step (delay, True)
  where step (time, state) = (time+interval, not state)

addId :: LightId -> (Time, State) -> LightEvent
addId id (t, s) = (t, id, s)

simulate :: Time -> [(Time, Time)] -> [LightEvent]
simulate timeLimit lights = sort $ concatMap lightSim (zip [0..] lights)
  where withinTimeLimit = ((<=timeLimit) . fst)
        lightSims (id, (delay, interval)) = map (addId id) $ takeWhile withinTimeLimit (lightSimulation delay interval)

そして、最終的なゴルフの前に、私はそれを以下に短縮しました：

import Data.List

light (id,(delay,interval)) = iterate step (delay, id, True)
  where step (time, id, state) = (time+interval, id, not state)

simulate timeLimit lights = sort $ concatMap lightSims (zip [0..] lights)
  where lightSims l = takeWhile(\(a,b,c)->a<=timeLimit)$light l
— クリスティアン・ルパスク
ソース
1

Röda、105 87 85バイト

{|t|enum|[([_+_]*(t-_1[0]+1))()|enum|(_+_)]|{[[_+_4,_3,_4//_2%2=0]]if[_4%_2=0]}|sort}

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

説明：

{|t| /* Declare a lambda with one parameter */
/* The input stream contains arrays */
enum| /* For each array in the input, push an ascending number after it */
/* [1] (for stream content in this point, see below) */
[ /* For each array-number pair in the stream: */
    (
        [_+_] /* Create a copy of the array with the number as the last element */
        *(t-_1[0]+1) /* Create copies of the array for every ms simulated */
    )()| /* Push all copies to the stream */
    enum| /* After each copy, push an ascending number to the stream */
    (_+_) /* Append the number to each array before */
]|
/* [2] (for stream content in this point, see below) */
{
    /* Push an on or off event to the stream: */
    [[
        _+_4,      /* delay + time = actual time */
        _3,        /* light-id */
        _4//_2%2=0 /* does the light go on or off? */
    ]] 
    if[_4%_2=0] /* if the light goes on or off (time%period=0) */
}|
/* [3] (for stream content in this point, see below) */
sort /* Sort the events */
}

ストリームには[1]、次の順序でポイント値が含まれます。

[delay, period], light-id
 _1[0]  _1[1]    _2

ストリームには[2]、次の順序でポイント値が含まれます。

delay, period, light-id, time
_1     _2      _3        _4

ストリームには[3]、次の構造を持つポイント配列が含まれています。

[time, light-id, on_or_off]
— ファーガスク
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.