21
\$\begingroup\$

This challenge is inspired by this very nice answer by TidB.


In TidB's answer, every eight character is in the correct order: gnilwoB edoC (Code Bowling backwards). The other strings however are were in a strange, random order.

Your challenge is to fix this.

Take a (non-empty) string and a positive integer n as input. The string will contain ASCII characters in the range: 32-126 (space to tilde).

You must sort the string in ascending order (seen from the left, based on the ASCII-code value), but skip every nth character, starting from the end of the string. As an example, let's take the string abcdABC123 as input, and n=4, then we'll get:

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)

Another example:

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)

The input string can be taken on an optional format (string, list of characters, list of single character strings ...). The input integer can also be taken on an optional format.

Test cases:

The format will be n=__, followed by the input string on the next line. The output is on the line below.

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
\$\endgroup\$

10 Answers 10

7
\$\begingroup\$

MATL, 15 14 bytes

ttfiX\qgP)S5M(

Inputs are a string enclosed in single quotes and a number. Single-quote symbols in the string should be escaped by duplicating (as in MATLAB and Octave).

Try it online! Or verify all test cases.

Explanation

Consider inputs 'abcdABC123' and 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-based modulo means that mod([1 2 3 4 5], 3) gives [1 2 3 1 2] instead of the usual (0-based) [1 2 0 1 2]. This is needed here to handle the case n=1 adequately.

\$\endgroup\$
  • 1
    \$\begingroup\$ I wish 05AB1E had that last command... \$\endgroup\$ – mbomb007 Mar 15 '17 at 20:55
6
\$\begingroup\$

PHP, 101 bytes

negative string indexes (PHP 7.1) save 21 bytes - and possibly the day:

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];

Run with php -nr '<code>' '<string>' <N>.

breakdown

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
    ;
\$\endgroup\$
  • \$\begingroup\$ why $i-=1 and not $i-- ? \$\endgroup\$ – Jörg Hülsermann Mar 15 '17 at 16:26
  • 1
    \$\begingroup\$ @JörgHülsermann Because $i-- doesn´t work if $i is NULL. \$\endgroup\$ – Titus Mar 15 '17 at 18:18
  • \$\begingroup\$ @JörgHülsermann ... and --$i, which I would need does also not. ;) \$\endgroup\$ – Titus Mar 15 '17 at 18:47
  • \$\begingroup\$ I have never tried it before. Thank You for your answer \$\endgroup\$ – Jörg Hülsermann Mar 15 '17 at 18:48
6
\$\begingroup\$

Octave, 65 54 bytes

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

Try it online!

Uses logical indexing to make an array of 'fixed' and 'sorted' characters. Explanation:

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`.

The way I created l requires that s is nonzero, which I think is a reasonable requirement, as many languages use \0 as an end-of-string delimiter.

\$\endgroup\$
5
\$\begingroup\$

Python 2, 191 bytes

Yeah, I'm sure this is a terrible solution.

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]

Try it online

I'm not going to bother explaining it. It was alright until I realized that it needs to be indexed from the end. Now it's a monster. At this point, I'm just glad it works.

\$\endgroup\$
  • 1
    \$\begingroup\$ Upvoted because of the "explanation". :P \$\endgroup\$ – Stewie Griffin Mar 15 '17 at 20:24
4
\$\begingroup\$

JavaScript (ES6), 100 93 bytes

Takes input in currying syntax (s)(n).

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

Formatted and commented

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
)                           //

Test cases

let f =

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

console.log(f("abcdABC123")(4))
console.log(f('nafgaksa1252#"%#')(1))
console.log(f('&/lpfAVD')(214))
console.log(f("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")(8))

\$\endgroup\$
2
\$\begingroup\$

Perl 5, 94 bytes

88 bytes of code + -F -pl flags.

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

Try it online!

It's quite too long in my opinion, but already not that ugly... I'm still trying to golf it further anyway.

\$\endgroup\$
2
\$\begingroup\$

Jelly, 14  13 bytes

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

Full program that prints the string to STD out*.

Try it online!

How?

Ṛ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

I can't help but think there is a way to use the fact that modifies its input

* for a function one would want to flatten the output into a single list with F.
For example an input of "abcdABC123", 4 yields:
[[['1'],['b']],[['2','A','C'],['B']],[['a','c',',d'],['3']]]
rather than:
['1','b','2','A','C','B','a','c',',d','3']

\$\endgroup\$
1
\$\begingroup\$

Python + NumPy, 115 114 bytes

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

Takes a regular Python list as input (wasn't sure whether taking an array would be considered kosher); returns a NumPy array containing the result.

Works by masking out the relevant indices and sorting the rest.

\$\endgroup\$
1
\$\begingroup\$

Python 2, 119 113 bytes

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]

Builds a list of all characters to be sorted, sorts them and merges them for printing, while avoiding some of the reversing via negative indexing.

\$\endgroup\$
  • 1
    \$\begingroup\$ 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] saves 5 bytes \$\endgroup\$ – TidB Mar 16 '17 at 9:26
  • \$\begingroup\$ @TidB Thanks, almost eliminated the scrollbar! (Apparantly there was a trailing newline involved in my previous count, therefore it seems to be 113 now instead of 114.) \$\endgroup\$ – moooeeeep Mar 16 '17 at 10:25
0
\$\begingroup\$

Ruby, 64 bytes

Uses regex to grab all irrelevant characters, both for replacement and for sorting.

->i,s,j=-1{s.gsub(r=/.(?!(?=.{#{i}})*$)/){s.scan(r).sort[j+=1]}}

Try it online

\$\endgroup\$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.