Сортировка бесполезных персонажей


21

Этот вызов вдохновлен этим очень хорошим ответом TidB.


В ответе TidB каждый восьмой символ находится в правильном порядке: gnilwoB edoCCode Bowlingобратном направлении). Другие строки, однако , были в странном, случайном порядке.

Ваша задача - это исправить.

Возьмите (непустую) строку и положительное целое число в nкачестве входных данных. Строка будет содержать символы ASCII в диапазоне: 32-126 (пробел до тильды).

Вы должны отсортировать строку в порядке возрастания (если смотреть слева, основываясь на значении кода 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

MATL , 15 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 по модулю означает, что mod([1 2 3 4 5], 3)дает [1 2 3 1 2]вместо обычного (на основе 0) [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--не работает, если $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`.

Способ, который я создал, lтребует, чтобы sон был ненулевым, что я считаю разумным требованием, так как многие языки используют \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

Попробуйте онлайн!

На мой взгляд, это слишком долго, но уже не так страшно ... Я все равно пытаюсь играть в гольф дальше.


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 + NumPy , 115 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 Спасибо, почти убрал полосу прокрутки! (Очевидно, в моем предыдущем подсчете был заключительный символ новой строки, поэтому теперь он кажется 113 вместо 114.)
moooeeeep

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.