レースオブザディジット


16

個別の1桁の正の整数の開始順序と、トラックの長さを入力出力として指定するか、番号の終了順序を返すプログラムまたは関数を作成する必要があります。

入力[5,1,2,6,7] and 14は次のレースを定義します。

--------------
76215 ->
--------------

レースのルール

  • トラックはラップアラウンドし、桁は複数のラップを移動できます。
  • ステップの順序は周期的で、開始位置に基づいています。この例では5 1 2 6 7 5 1 2 ...
  • 同じ位置に複数の数字を含めることはできません。
  • すべての桁には、digit_valueステップごとにセルの速度があります。数字または数字の連続ブロックを追い越すには、余分なステップが1つかかります。桁に必要な速度がない場合、桁(のブロック)の前で停止します。例:

    [41   ] => [ 1 4 ]  4 overtakes 1
    
    [2 1  ] => [ 21  ]  2 can only move 1 as it can't move 3 to overtake 1
    
    [4 12 ] => [ 412 ]  4 can only move 1 as it can't move 5 to overtake 12     
    
    [   3 ] => [ 3   ]  3 starting a new lap
    
  • すべての桁は、digit_value終了する前に周回する必要があります。トラックの最後のセルが離れると、ラップが完了します。完成した数字がトラックから削除されます。

  • 数字は、ステップを介して複数回開始位置に到達し、複数のラップを完了することに注意してください。

入力

  • 1..9少なくとも1つの要素と、リストの長さ、つまりトラックの長さよりも大きい単一の正の整数を持つ、明確な1桁の正の整数()のリスト。

出力

  • 明確な形式で終了した順序の数字のリスト。

入力の視覚的なステップバイステップの例 starting_order = [5,9,2] and length = 6

295   | Start position
29   5| digit 5 moves
2  9 5| digit 9 moves, finishing lap #1
  29 5| digit 2 moves
 529  | digit 5 moves, finishing lap #1
 52  9| digit 9 moves, finishing lap #2
 5  29| digit 2 moves
   529| digit 5 moves
 9 52 | digit 9 moves, finishing laps #3 and #4
29 5  | digit 2 moves, finishing lap #1
29   5| digit 5 moves
2  9 5| digit 9 moves, finishing lap #5
  29 5| digit 2 moves
 529  | digit 5 moves, finishing lap #2
 52  9| digit 9 moves, finishing lap #6
 5  29| digit 2 moves
   529| digit 5 moves
 9 52 | digit 9 moves, finishing laps #7 and #8
 9 5  | digit 2 moves, finishing lap #2 --> remove 2 from the track
59    | digit 5 moves, finishing lap #3
5     | digit 9 moves, finishing lap #9 --> remove 9 from the track
     5| digit 5 moves
    5 | digit 5 moves, finishing lap #4
      | digit 5 moves, finishing lap #5 --> remove 5 from the track
------
Finish order: 2 9 5

形式の例 Input => Output

[3], 2  =>  [3]

[9, 5], 3  =>  [9, 5]

[5, 9, 2], 6  =>  [2, 9, 5]

[5, 9, 2], 10  =>  [5, 9, 2]

[5, 7, 8, 1, 2], 10  =>  [1, 5, 7, 8, 2]

[5, 1, 6, 8, 3, 2], 17  =>  [1, 6, 8, 2, 3, 5]

[1, 2, 3, 7, 8, 9], 15  =>  [1, 7, 8, 9, 2, 3]

[9, 8, 7, 3, 2, 1], 15  =>  [8, 7, 9, 1, 2, 3]

[1, 2, 3, 4, 5, 6, 7, 8, 9], 20  =>  [1, 2, 3, 4, 5, 6, 7, 8, 9]

[9, 8, 7, 6, 5, 4, 3, 2, 1], 20  =>  [8, 7, 5, 9, 6, 1, 2, 4, 3]

これはコードゴルフなので、最短のエントリが優先されます。


おそらく、入力配列に重複した要素を含めることはできませんか?それはそのように見えますが、私はその状態が明示的に述べられているのを見ません。
アンドリュー

@Andrewはい、重複する数字はありません。質問を編集しました。ありがとう。
randomra

テストケース#6(長さ= 17)の場合、結果が少し異なります(最後の2桁が逆になります)。私のミスはどこにあるのだろうと思っていました。私のレースログはこれです。間違いを見つけて間違いを見つけられるように、あなたのものを提供してもらえますか?
クリスチャンルパスク

@ w0lf ここでログの違い。派生が始まる1が終了した後、6で移動することをスキップします。(ログには、トラックから削除される前の数字が含まれていますが、含まれていないことに注意してください。)
randomra

回答:


3

ルビー229 236

これは、数字を表す配列とトラックの長さを表すintという2つのパラメーターを受け取る関数です。これは、数字がレースを終了する順序を表す配列を返します。

F=->d,l{
i=0
t=d.map{|x|[x,d.size-(i+=1)]}
r=[]
d.cycle.map{|n|
t==[]&&break
(c=t.find{|x,_|x==n})&&(s=n
w=c[1]
o=p
(a=(t-[c]).map{|_,p|p%l}
s-=1;w+=1
a&[w%l]==[]?(o=p;c[1]=w):o||s-=o=1)while s>0
c[1]>=n*l&&(t.delete c;r<<n))}
r}

オンラインでテストする:http : //ideone.com/KyX5Yu

編集:さらにいくつかの文字を保存するためのいくつかのトリックを考え出した。

ゴルフされていないバージョン:

F=->digits,length{
  digit_positions = digits.map.with_index{|d,i|[d,digits.size-i-1] }

  result = []

  digits.cycle.map{|n|
    break if digit_positions==[]
    crt = digit_positions.find{|x,_|x==n}
    next unless crt

    steps_left = n
    pos = crt[1]
    taking_over = false

    while steps_left > 0
      other_pos = (digit_positions-[crt]).map{|_,p|p%length}

      steps_left-=1
      pos += 1

      if other_pos.include? (pos%length)
        steps_left -= 1 unless taking_over
        taking_over = true
      else
        taking_over = false
        crt[1] = pos
      end
    end

    if crt[1] >= n*length
      digit_positions.delete(crt)
      result<<n
    end
  }
  result
}

2

Python 2、345バイト

残念ですが、@ w0lfの長さよりも短くはありませんが、whatevです。(大きなインデントはタブであり、投稿すると4スペースに変換されることに注意してください。)

def r(o,l):
 n=len(o);s,t,a,d=dict(zip(o,range(n)[::-1])),-1,{_:0 for _ in o},[]     
 while len(s):
    t+=1;g=o[t%n]
    if g in d:continue
    y,k=s[g],1;i=z=w=0
    for _ in[0]*g:
     i+=1;m=y+i;e,p=m%l,m/l
     if-~a[g]+w>=g<d>m>=l:a[g]+=1;del s[g];d+=[g];break
     if e in s.values()and e!=y:i-=k;k=0
     else:k,s[g],(w,z)=1,e,[(w,z),(z,p)][z<p]
    a[g]+=z
 print d

0

ここに私の魔法のパディングコードがあります

C(457 430b)

int v(int*M,int m){
int i,n,c,d,e=32,f=48,u=0,g=10,h,k,r,l=m,j;char a,*b=&a,*B,V[m];
for (i=0;u<m*m*m;i=(++u%m),*B=*b=(u<=l)?*b:e,b=B=&a)
printf("%c%c",0*(V[i]=(u<l?u>=(r=l-sizeof(M)/4)?M[u-r]+f:e:V[i])),((((V[c=(((V[i]=u<l?e:V[i])-f)/10<u/m)?j>=0&h<i|((h=(j=strchr(V+((k=(m+(d=(i-(V[i]-f)%g+1)))%m)),e)-V)<0?(int)(strchr(V,e)-V):(int)j)>=k)*(k>i)?h:m :m])=((V[c]==e)?(*(b=V+i)+(d<0)*g):V[c])))-f)%11==0?(*(B=V+c)-f)%g+f:0);
getch();
}

:さらなる改善が必要です...

編集:コードを短縮...-sizeof(int)= 4、function = v、まだdoに置き換える変数が残っています。


私のCはさびていますが、これらの呼び出しsizeofはマジックナンバーに置き換えることができるように思われます。ポータブルではないかもしれませんが、これはコードゴルフです。
DLosc

コードは457ではなく453文字のようです。また、不要な空白を削除し、関数に短い名前を付けることで、さらに短くすることができると思います。
クリスチャンルパスク

提案に感謝しますが、私にとって重要なことは、ループとprintf、私が遭遇した唯一の欠陥のために、プログラムがnilsの代わりに空の文字を出力し続ける2つの関数にすべてを詰めることに成功しました。しかし、インポタントな無効なbetweedの数字をノックアウトすると、レースはまだ適切に終了します
Abr001am

Iirc変数はデフォルトでintです。だから:v(int*M,int m){e=32;f=48;u=0;l=m;char a,...また、ほとんどすべての空白は不要です。,V[m];for(i=0;... )printf(... );getch();}
-wizzwizz4
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.