役に立たないキャラクターを並べ替える


21

この課題は、TidB によるこの非常に良い答えに触発されています。


:TidBの答えでは、すべての8つの文字は、正しい順序であるgnilwoB edoCCode Bowling後方)。他の文字列は、しかししている奇妙な、ランダムな順でした。

あなたの課題はこれを修正することです。

(空ではない)文字列と正の整数nを入力として受け取ります。文字列には、32〜126(チルダまでのスペース)の範囲のASCII文字が含まれます。

文字列を昇順(ASCIIコード値に基づいて左から見て)に並べ替える必要がありますが、文字列nの末尾からすべての文字をスキップします。例として、文字列abcdABC123を入力として受け取り、をn=4取得すると、次のようになります。

abcdABC123   <- Input string. (n=4)
_b___B___3   <- These will not be sorted (every 4th starting from the end)
1_2AC_acd_   <- The remaining characters, sorted
1b2ACBacd3   <- The final string (the output)

もう一つの例:

9876543210   <- Input string (n=2)
_8_6_4_2_0   <- These will not be sorted
1_3_5_7_9_   <- The remaining characters, sorted
1836547290   <- The final string (the output)

入力文字列は、オプションの形式(文字列、文字のリスト、単一文字の文字列のリストなど)で取得できます。入力整数は、オプションの形式でも使用できます。

テストケース:

形式はn=__、次の行に入力文字列が続きます。出力は次の行にあります。

n=1   (All elements will stay in place)
nafgaksa1252#"%#
nafgaksa1252#"%#    

n=214  (The last character will stay in place. All other are sorted. 
&/lpfAVD
&/AVflpD  

n=8
g7L9T E^n I{><#ki XSj!uhl y= N+|wA}Y~Gm&o?'cZPD2Ba,RFJs% V5U.W;1e  0_zM/d$bH`@vKoQ 43Oq*C
g       n !#$%&'i*+,./01l234579;w<=>?@ADoEFGHIJKBLMNOPQR STUVWXYeZ^_`abcdhjkmqsuovyz{|}~C

回答:


7

MATL15 14バイト

ttfiX\qgP)S5M(

入力は、単一引用符と数字で囲まれた文字列です。文字列内の単一引用符記号は、(MATLABおよびOctaveのように)複製によってエスケープする必要があります。

オンラインでお試しください!または、すべてのテストケースを確認します

説明

入力'abcdABC123'とを検討してください4

tt     % Implicitly input string. Duplicate twice
       % STACK: 'abcdABC123', 'abcdABC123', 'abcdABC123'
f      % Find: indices of nonzero elements: gives [1 2 ... n] where n is input length
       % STACK: 'abcdABC123', 'abcdABC123', [1 2 3 4 5 6 7 8 9 10]
i      % Input n
       % STACK: 'abcdABC123', 'abcdABC123', [1 2 3 4 5 6 7 8 9 10], 4
X\     % 1-based modulo
       % STACK: 'abcdABC123', 'abcdABC123', [1 2 3 4 1 2 3 4 1 2 3 4]
qg     % Subtract 1, convert to logical: gives true (1) for 1, false (0) otherwise
       % STACK: 'abcdABC123', 'abcdABC123', [0 1 1 1 0 1 1 1 0 1]
P      % Flip
       % STACK: 'abcdABC123', 'abcdABC123', [1 0 1 1 1 0 1 1 1 0]
)      % Use as logical index into the string
       % STACK: 'abcdABC123', 'acdAC12'
S      % Sort
       % STACK: 'abcdABC123', '12ACacd'
5M     % Push logical index again
       % STACK: 'abcdABC123', '12ACacd', [1 0 1 1 1 0 1 1 1 0]
(      % Write into original string as specified by the index. Implicitly display
       % STACK: 1b2ACBacd3

1ベースのモジュロは、通常の(0ベース)の代わりにmod([1 2 3 4 5], 3)与えることを意味します。ここでは、ケースを適切に処理するために必要です。[1 2 3 1 2][1 2 0 1 2]n=1


1
05AB1Eにその最後のコマンドがあったらいいのに…
mbomb007

6

PHP、101バイト

負の文字列インデックス(PHP 7.1)は21バイトを節約します-そしておそらく日:

for([,$s,$n]=$argv;a&$c=$s[$i-=1];)$i%$n+1?$a[]=$c:0;for(sort($a);++$i;)echo$i%$n+1?$a[+$k++]:$s[$i];

で実行しphp -nr '<code>' '<string>' <N>ます。

壊す

for([,$s,$n]=$argv;     # import command line arguments to $s and $n
    a&$c=$s[$i-=1];)    # loop backward through string
    $i%$n+1?$a[]=$c:0;      # if index is not n-th, copy character to array
for(sort($a);           # sort array
    ++$i;)              # loop forward through string:
    echo$i%$n+1             # if index is not n-th
        ?$a[+$k++]              # print character from array
        :$s[$i]                 # else print character from string
    ;

なぜ$i-=1ありませんか$i--
ヨルクヒュルサーマン

1
@JörgHülsermannので$i--doesn't作業があれば$iですNULL
タイタス

@JörgHülsermann...そして--$i、私が必要とするものも必要ありません。;)
タイタス

私は今まで一度も試したことがありません。あなたの答えをありがとう
ヨルグヒュルサーマン

6

オクターブ65 54バイト

function s=f(s,n)
l=~~s;l(end:-n:1)=0;s(l)=sort(s(l));

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

論理インデックスを使用して、「固定」および「ソート」文字の配列を作成します。説明:

function s=f(s,n) % Create a function, taking a string `s` and the number `n`; the output is also named `s`.
l=~~s;             % Create logical array with the same size of the input string 
                  %    [equivalent to much more verbose true(size(s))].
l(end:-n:1)=0;    % Set the 'fixed' character positions. MATLAB/Octave automatically produces
                  %    the correct result even if n is larger than the string length.
s(l)=sort(s(l)) % Select the elements from `s` where `l` is true. Sort, and store in the corresponding positions in `s`.

多くの言語が文字列の終わりの区切り文字として使用しているので、私が作成した方法lsはゼロ以外が必要です。これは合理的な要件だと思います\0


あなたは、いくつかのバイトを保存することができますが、迂回場合lと直接インデックス番号のベクトルを使用する
レオ


@Leo、あなたの提案は8バイト長くありませんか?
スティーヴィーグリフィン

@StewieGriffinおっと、私は更新され解決策表示されませんでした
レオ

5

Python 2、191バイト

ええ、これは恐ろしい解決策だと確信しています。

n,s=input()
s=s[::-1]
R=range(len(s)/n+1)
J=''.join
k=s[::n]
t=J(sorted(J(s[i*n+1:i*n+n]for i in R)))
n-=1
print J(j[::-1]for i in zip(k,[t[::-1][i*n:i*n+n][::-1]for i in R])for j in i)[::-1]

オンラインで試す

わざわざ説明するつもりはありません。最後からインデックスを作成する必要があることに気付くまでは大丈夫でした。今ではモンスターです。この時点で、機能していることがうれしいです。


1
「説明」のために賛成。:P
スチューウィーグリフィン

4

JavaScript(ES6)、100 93バイト

カリー化構文の入力を受け取ります(s)(n)

s=>n=>s.replace(/./g,(c,i)=>(F=_=>(s.length-++i)%n)()?[...s].filter(F,i=0).sort()[j++]:c,j=0)

書式設定およびコメント化

s => n => s.replace(        // given a string s and an integer n
  /./g,                     // for each character c of s
  (c, i) => (               // at position i:
    F = _ =>                //   F = function that tests whether the
      (s.length - ++i) % n  //       character at position i is non-static
  )()                       //   call F() on the current position
  ?                         //   if the current character is non-static:
    [...s].filter(F, i = 0) //     get the list of non-static characters
      F, i = 0              //     by filtering all characters in s with F()
    )                       //
    .sort()[j++]            //     sort them and pick the next occurrence
  :                         //   else:
    c,                      //     let c unchanged
  j = 0                     //   initialize j = non-static character pointer
)                           //

テストケース


2

Perl 5、94バイト

88バイトのコード+ -F -plフラグ。

$_=join"",(map{(--$i%$n?"":$F[$#F-$i--]),$_}sort grep$i++%$n,reverse@F),chop if($n=<>)>1

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

私の意見では非常に長すぎますが、すでにそれほどnotくはありません...とにかくさらにゴルフをしようとしています。


2

ゼリー14  13 バイト

FṢṁ
ṚsṚµḢ€ż@Ç

文字列をSTD out *に出力する完全なプログラム。

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

どうやって?

ṚsṚµḢ€ż@Ç - Main link: string s, non-negative number n
Ṛ         - reverse s
 s        - split into chunks of size n
  Ṛ       - reverse the resulting list
   µ      - monadic chain separation (call that list x)
    Ḣ€    - head €ach - yield a list of the first entries of each of x and modify x
        Ç - call the last link (1) as a monad - get the sorted and re-split list
      ż@  - zip together (with reversed @rguments)

FṢṁ - link 1, sort and reshape like self: list of lists
F   - flatten into a single list
 Ṣ  - sort
  ṁ - mould the result like the input

私は仕方がありませんが、その入力を変更するという事実を使用する方法があると思います

*関数の場合、出力をで単一のリストにフラット化しますF
入力たとえば"abcdABC123"4収率は:
[[['1'],['b']],[['2','A','C'],['B']],[['a','c',',d'],['3']]]
ではなく:
['1','b','2','A','C','B','a','c',',d','3']


1

Python + NumPy115 114バイト

from numpy import *
def f(x,n):l=len(x);x=array(x);m=[1<2]*l;m[-1::-n]=[1>2]*len(m[0::n]);x[m]=sort(x[m]);return x

入力として通常のPythonリストを使用します(配列を取得することがコーシャーと見なされるかどうかはわかりませんでした)。結果を含むNumPy配列を返します。

関連するインデックスをマスクし、残りをソートすることにより機能します。


1

Python 2、119 113バイト

n,l=input()
i=range(len(l))
print"".join(sorted(l[~a]for a in i if a%n)[-a+a/n]if a%n else l[~a]for a in i)[::-1]

ソートするすべての文字のリストを作成し、それらをソートして印刷用にマージしますが、ネガティブインデックスによる反転の一部を回避します。


1
print"".join(sorted(l[~a]for a in i if a%n)[-a+a/n]if a%n else l[~a]for a in i)[::-1]5バイト節約
-TidB

@TidBありがとう、ほとんどスクロールバーがなくなりました!(どうやら、以前のカウントに関係する末尾の改行があったため、現在は114ではなく113になっているようです。)
moooeeeep

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