Sort an Option String

Question

Background

In C, there is a function to help parse command-line arguments: getopt.

Getopt takes the argument count (argc), the argument list (argv), and a string representing the options the program should take (optstring).

The option string (optstring) is a series of option characters each followed by one colon (for an option requiring an argument), two colons (for an option with an optional argument), or zero colons (for an option without an argument).

For example: one might use the following option string for their company's new widget.

"v::x:hy:S:G::dns:f::"

But that looks horrible! The options are all mixed together! This option string would look much better if it were sorted:

"f::G::v::S:s:x:y:dhn"

Specifications

The input will be a string matching the regular expression ([A-Za-z]:{0,2})+
You should take input as a string or list of characters.
You should output the string sorted by the method detailed below.
You do not need to handle empty input.
You do not need to handle input with repeated options of the same type ("aa" is not valid, but "aa:a::" is valid).

Sorting Method

In the sorted option string:

The characters followed by two colons come first, sorted alphabetically, with uppercase letters before their respective lowercase letters (i.e. "aBb", not "Bab").
Then are the characters with one colon, sorted alphabetically, with uppercase letters before their respective lowercase letters.
Last are the characters with no colon, sorted alphabetically, with uppercase letters before their respective lowercase letters.

Rules

Standard Loopholes are forbidden.

Scoring

This is code-golf, so shortest answer in bytes in each language wins.

Examples

# "input" => "output"
"v::x:hy:S:G::dns:f::" => "f::G::v::S:s:x:y:dhn"
"aa:a::" => "a::a:a"
"B:" => "B:"
"Confusio:n::" => "n::o:Cfinosu"
"Confusio:n:" => "n:o:Cfinosu"
"m:qW:X:xc:vViI" => "c:m:W:X:IiqVvx"
"V:omo:V" => "o:V:moV"
"agg:ra:va::ting::" => "a::g::a:g:aginrtv"
"input" => "inptu"

Long test case (312 characters)

Invaid Inputs (you don't have to handle):

"gg" (duplicated option)
"" (empty string)
":w:" (first colon isn't after a character)
"x:y:0:fhn" ('0' is not alphabetic)
"A:::" (3 colons is invalid)

\$\begingroup\$ agg:ra:va::ting:: broke mine heh... Ironic. \$\endgroup\$ – Magic Octopus Urn Nov 17 '17 at 22:05 — Magic Octopus Urn, Nov 17 '17 at 22:05

Zgarb · Accepted Answer · 2017-11-15 21:40:53Z

10

Husk, 11 bytes

ΣÖom_↔Oġλ¬√

Try it online!

Explanation

ΣÖom_↔Oġλ¬√  Implicit input, say "kH::r:R:Hk:"
       ġ     Split between characters for which this gives a falsy result:
        λ      Take two arguments, ignore the first.
          √    Is the second argument a letter?
         ¬     Negate.
             Now we have the options: ["k","H::","r:","R:","H","k:"]
      O      Sort: ["H","H::","R:","k","k:","r:"]
 Ö           Sort by
     ↔       reversing and
  om_        converting everything to lowercase: ["H::","k:","R:","r:","H","k"]
Σ            Concatenate: H::k:R:r:Hk

edited Nov 15 '17 at 21:40

answered Nov 15 '17 at 20:46

Zgarb

41.5k4 gold badges72 silver badges249 bronze badges

\$\begingroup\$ There are a couple of really clever ideas here, you should add an explanation so people can appreciate them :D \$\endgroup\$ – Leo Nov 15 '17 at 21:25
1

\$\begingroup\$ @Leo Added a breakdown of the code. \$\endgroup\$ – Zgarb Nov 15 '17 at 21:43

Add a comment |

Martin Ender · Accepted Answer · 2017-11-15 20:10:24Z

3

Retina, 47 bytes

.
$&$&
T01`L`l`..
O^`\w.:*
.(.)
$1
O$^`\w:*
$.&

Try it online!

The trickiest part was actually sorting the letters, because Retina's "sort-by" feature doesn't have a case-insensitive sort (so by default it sorts the upper case letters in front of all lower case letters). To work around this, I had to insert a lower-case copy of each character to do the sorting and then get rid of it again.

answered Nov 15 '17 at 20:10

Martin Ender

190k62 gold badges422 silver badges932 bronze badges

\$\begingroup\$ Has a case-insensitive sort been added somewhere in the last year? And if not, is there a way to sort case-insensitive, but retain original order? I.e. tEsTiNg with your above sorting method sorts the pairs of letters to eEggiinNsstTtt → EgiNsTt instead of eEggiinNsstttT → EgiNstT (the uppercase letters are always placed before the lowercase letters). \$\endgroup\$ – Kevin Cruijssen Jan 18 '19 at 9:47
1

\$\begingroup\$ @KevinCruijssen You can do it with sort-by now, because you can easily transform the character to lowercase in the substitution string. tio.run/##K0otycxLNPyvquGe8N9fJUGPSyVHRe3//xLX4pBMv3QA \$\endgroup\$ – Martin Ender Jan 18 '19 at 10:00
\$\begingroup\$ Ah, nice. Would have never thought of that myself.. Thanks a lot. I've been able to fix my answer now. :) \$\endgroup\$ – Kevin Cruijssen Jan 18 '19 at 10:17

Add a comment |

ETHproductions · Accepted Answer · 2017-11-15 20:23:31Z

Japt, 17 16 bytes

f".:*" ñ_iZw vÃq

Test it online!

How it works

Say the input string is v:vg::G:G::o:. The first part of the code, f".:*", finds all matches of the regex /.:*/g, which matches a character followed by any number of colons. This splits the input into [v:, v, g::, G:, G::, o:].

The ñ method on an array sorts each the array as if certain changes were applied, without actually applying them (like sorted(array, key=<whatever>) in Python). So we need to sort:

double-colons before everything else;
single-colons after double-colons, but before no-colons;
letters in their alphabetical order; and finally
uppercase letters before lowercase.

Z{ZiZéJ v} is the shortest way I could find to do this:

  Zw     Reverse Z.
     v   Convert to lowercase.
Zi       Insert this at the beginning of Z.

This is easiest to understand with some examples:

         v:   v  g::    G:   G::    o:
  Zw     :v   v  ::g    :G   ::G    :o
     v   :v   v  ::g    :g   ::g    :o
Zi       :vv: vv ::gg:: :gG: ::gG:: :oo:

The original values are then sorted lexicographically by these keys. The result is that ::gG:: is sorted to the front, then ::gg::, and so on, giving us [G::, g::, G:, o:, v:, v], which is then joined with q and outputted.

TFeld · Accepted Answer · 2017-11-15 20:57:38Z

3

Python 2, 100 90 bytes

lambda s:''.join(sorted(re.findall('.:*',s),key=lambda s:(-len(s),s.lower(),s)))
import re

Try it online!

answered Nov 15 '17 at 20:57

TFeld

19.6k3 gold badges17 silver badges61 bronze badges

Add a comment |

Erik the Outgolfer · Accepted Answer · 2017-11-15 20:13:20Z

2

Jelly, 14 bytes

n”:œṗ⁸ṢŒuÞṚLÞṚ

Try it online!

Full program.

edited Nov 15 '17 at 20:13

answered Nov 15 '17 at 20:06

Erik the Outgolfer

39.4k5 gold badges35 silver badges117 bronze badges

Add a comment |

Neil · Accepted Answer · 2017-11-15 22:21:30Z

1

JavaScript (ES6), 93 bytes

f=
s=>s.match(/\w:*/g).sort((a,b)=>b.length-a.length||parseInt(a,36)-parseInt(b,36)||a>b).join``

<input oninput=o.textContent=this.value&&f(this.value)><pre id=o>

answered Nov 15 '17 at 22:21

Neil

125k9 gold badges57 silver badges234 bronze badges

Add a comment |

Xcali · Accepted Answer · 2017-11-15 22:24:37Z

1

Perl 5, 69 + 1 (`-n`) = 70 bytes

say sort{$b=~y///c<=>length$a||($"=lc$a)cmp lc$b||1-2*($"ne$a)}/.:*/g

Try it online!

edited Nov 15 '17 at 22:24

answered Nov 15 '17 at 21:23

Xcali

11.7k2 gold badges9 silver badges32 bronze badges

\$\begingroup\$ Each capital comes before its lowercase. E.g. 'AaBb'. I think changing =~/A-Z/ to ==/A-Z/ should fix the problem. \$\endgroup\$ – pizzapants184 Nov 15 '17 at 21:40

Add a comment |

user28667 · Accepted Answer · 2017-11-16 16:39:27Z

1

Haskell, 124 bytes

import Data.List
import Data.Char
s(c:x)|(l,r)<-span(==':')x=(-length l,toLower c,c:l):s r;s _=[]
t(_,_,x)=x
f=(t=<<).sort.s

Try it online!

answered Nov 16 '17 at 16:39

user28667

5792 silver badges5 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

Bash, 232 213 bytes

s(){ s=${1#?} c=${1%$s} o=${s%%[^:]*} s=${s#$o} o=$c$o;};
p()(s $1;l= g= p=$o d=$c;[[ $o ]]&&(while s $s;[[ $o ]];do
(((x=${#o}-${#p},y=36#$d-36#$c,x?x:y?y:62#$c-62#$d)>0))&&g+=$o||l+=$o;done;echo `p $g`$p`p $l`))

try it online

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 16 '17 at 11:50

Nahuel Fouilleul

7,6851 gold badge7 silver badges15 bronze badges

Add a comment |

recursive · Accepted Answer · 2017-11-17 21:30:35Z

C# (.NET Core), 152 bytes

s=>{var o="";for(var d=":::";d!="";){d=d.Substring(1);for(var c='@';c!=90;o+=s.IndexOf(c+d)>=0?c+d:"",s=s.Replace(c+d,""),c^=' ')if(c<97)c++;}return o;}

Try it online!

Ungolfed:

s => { 
    var o = ""; 
    for (var d = ":::"; d != "";) { 
        d = d.Substring(1); 
        for (
            var c = '@'; 
            c != 90; 
            o += s.IndexOf(c + d) >= 0 ? c + d : "", s = s.Replace(c + d, ""), c ^= ' '
        ) if (c < 97) c++; 
    } 
    return o; 
}

The basic idea is to iterate over all 156 possible options and check for their existence. If found, append to the output, and remove from the input.

Stack Exchange Network

current community

your communities

more stack exchange communities

Sort an Option String

Background

Specifications

Sorting Method

Rules

Scoring

Examples

10 Answers 10

Husk, 11 bytes

Explanation

Retina, 47 bytes

Japt, 17 16 bytes

How it works

Python 2, 100 90 bytes

Jelly, 14 bytes

JavaScript (ES6), 93 bytes

Perl 5, 69 + 1 (`-n`) = 70 bytes

Haskell, 124 bytes

Bash, 232 213 bytes

C# (.NET Core), 152 bytes

Your Answer

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

Linked

Hot Network Questions

Sort an Option String

Background

Specifications

Sorting Method

Rules

Scoring

Examples

10 Answers 10

Husk, 11 bytes

Explanation

Retina, 47 bytes

Japt, 17 16 bytes

How it works

Python 2, 100 90 bytes

Jelly, 14 bytes

JavaScript (ES6), 93 bytes

Perl 5, 69 + 1 (-n) = 70 bytes

Haskell, 124 bytes

Bash, 232 213 bytes

C# (.NET Core), 152 bytes

Your Answer

Sign up or log in

Post as a guest

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

Linked

Related

Hot Network Questions

Perl 5, 69 + 1 (`-n`) = 70 bytes