Квітка сортів


30

Давши рядок x, виведіть символи xвпорядкованому відповідно до порядку появи у вихідному коді.

Приклади

Source: ThisIs A Test
 Input: Is it a Test?
Output: TissI   etta?

Source: Harry - yer a wizard.
 Input: I'm a what?
Output: aa  wh'?Imt

Source: Mr. H. Potter, The Floor, Hut-on-the-Rock, The Sea
 Input: 
Output:

Правила

  • Застосовуються стандартні лазівки та правила вводу-виводу
  • Введення та вихід можуть бути рядок, список символів або список байтів.
  • Якщо символ використовується декілька разів у джерелі, використовуйте перше явище.
  • Якщо один або кілька символів не відображаються у джерелі, вони повинні бути в кінці; їх порядок не має значення, а також не повинен бути узгодженим.
  • Джерело має бути не порожнім
  • Нові рядки трактуються так само, як і інші символи.
  • Порядок виконання коду не має значення; просто сирий рядок.
  • Вхід знаходиться в тому ж кодуванні, що і код.
  • Вхід сортується за символами, а не за байтами.
  • Сортування залежить від регістру
  • Це , тому найкоротша відповідь у байтах за кожну мову виграє!


2
@negativeseven Будь-які символи кодування вихідного коду потрібно враховувати, включаючи пробіл.
tjjfvi


3
Напевно, ви повинні чітко зазначити у специфікації, що відповідність залежить від регістру.
Кудлатий

1
Чи можемо ми xзашифруватися в UTF-8 або UTF-16, якщо наше рішення взагалі не закодовано в Unicode, а символи Unicode у символах xпредставлення на кодовій сторінці рішення? Наприклад, деякі мови для гольфу використовують користувацькі кодові сторінки, щоб зменшити кількість байтів, але все-таки читати неозброєним оком.
Ерік Аутгольфер

1
@tjjfvi Я не говорю тут про відсутність операцій (що було б, безумовно, недійсним); принаймні кілька відповідей нижче, замість того, щоб приймати введення простими байтами (0x00-0xFF), прийміть дані як рядок UTF-8, який би представляла послідовність байтів (наприклад, коли ми публікуємо відповідь, ми зазвичай публікуємо UTF -8 версія нашого коду, а не hexdump), а потім використовуйте представлення UTF-8 вихідного коду для сортування введення. Це дозволено? Я відчуваю, що це також має бути варіант (поруч із звичайним байтовим потоком), оскільки в іншому випадку рішення в гольф-мовах із спеціальними кодовими сторінками сильно завадять.
Ерік Аутгольфер

Відповіді:


13

Python 3.8 (передвипуск) , 102 100 96 85 79 76 68 61 59 60 байт

c="print(sorted(x:=input(),key=('c=%r;'%c+x).find))";exec(c)

Спробуйте в Інтернеті!

-2 байти, скориставшись цим

-4 байти, зрозумівши, що <0== ==-1та видаливши зайве+1

-11 байт завдяки Нілу

-6 байт завдяки dzaima

-3 байти завдяки стрижня

-8 байт завдяки негативним семи вказуючи на те, що програма може виводити список символів

-7 байт завдяки Втіленню Невідомості переключитися на Python 3.8 та використовувати :=

-2 байти через те, що Джо Кінг вимикав ім'я змінної s для c, тому ми могли залишити її ;c

+1 байт, тому що мінус 7 вказував на те, що він не фільтрується ;правильно


('s=%r;exec(s)'%s+x).find(x)?
Neil

@Neil Is the current solution invalid, and substituting ('s=%r;exec(s)'%s).find(x) with your code would make it valid?
MilkyWay90

@Neil Oh, wait, I see your golf
MilkyWay90

You can switch to input() and save 4 bytes
Rod

4
; isn't being sorted correctly in the current version
negative seven

7

APL (Dyalog Unicode), 14 bytesSBCS

Anonymous tacit prefix function.

'''∘⍋⊃¨⊂'∘⍋⊃¨⊂

 enclose argument (to act on it as a whole)

⊃¨ from that, pick one character for each of the following indices:

∘⍋ the indices that would sort the argument in the the order given by the following string (all non-members go in order of appearance at the end):

'''∘⍋⊃¨⊂' the characters '∘⍋⊃¨⊂

Try it online!





3

Ruby, 57 bytes

->s{s.sort_by{|o|%{->s{.ort_by|%}index()9}.index(o)||99}}

Try it online!

Fairly straightforward, assuming I haven't missed a golfing trick. Take in a list of characters and sort by their index in a string consisting of all the uniq characters in the code in order of their appearance. Often their first appearance is in that very string, but that doesn't change the order.


3

05AB1E, 24 22 21 bytes

Σ"Σ"'"«"'«Rrk}"«Rrk}R

Try it online!

Explanation:

Σ                    }               # Sort
 "Σ"                                 # Σ string literal
    '"                               # " string literal
       «                             # Concatenate last two literals
        "'«Rrk}"                     # '«Rrk} another literal
                «                    # Concat again
                 R                   # Reverse literal (so: }krR'«'"Σ)
                  r                  # reverse stack 
                   k                 # find the current sorting index in our code string 
                     R               # reverse our sorted string

First time trying stuff in 05AB1E so probably lots to be saved


Are you sure this is correct? The string it now sorts on is }krR«'«. NOTE: ' is a single character, so just '" is enough (unlike C# where it needs an additional trailing '). Currently your code first pushes the string Σ, then the string ", then the string «, then the string '«Rrk}, and then it does the append, reverse, reverse stack, index. Smart usage of the reverse of the string and at the end, though! I will see if I can find a fix for your answer, and will delete mine afterwards.
Kevin Cruijssen

@kevincruijssen So can't I just get rid of the second '
Expired Data

1
Yeah, you indeed can. :) Then it correctly sorts on }krR«'"Σ. PS: I tend to use = (print without popping) for debug purposes sometimes. You can also add --debug-stack as argument, but it's a bit weird in the new 05AB1E version imho.
Kevin Cruijssen

3

Jelly, 16 14 bytes (Jelly Code page), 25 bytes (UTF8)

“Ṿv`Ṿ;³³i@Þ”v`

Try it online!

A full program that takes a single argument, the string to be sorted.

Thanks to @JonathanAllan for pointing out a bug!

As per @EriktheOutgolfer, although the code can be input using the Jelly code page, the characters sorted are the equivalent UTF-8 ones rather than the bytes of the source. As such, I’ve included the score in UTF-8 bytes as well. Note the same probably applies to all languages with custom code pages.

Explanation

“Ṿv`Ṿ;³³i@Þ”   | The string "Ṿv`Ṿ;³³i@Þ", referred to below as S
            v` | Evaluate this string as Jelly code using the string itself as the argument

The string above evaluates as:

Ṿ          | Uneval the string S (effectively wraps it in “”)
 v`        | Eval it (effectively removes the “”)
   Ṿ       | Uneval it again, adding back in the “”
    ;³     | Concatenate the input to this
      ³i@Þ | Sort the input with respect to the first occurence of each character in the “”-wrapped string S concatenated to the input

Ṿv` is a no-op effectively here, but exists to ensure all characters are represented.


So... I posted my Jelly answer, and then it clicked on me: the interpreter converts the bytecode to UTF-8 before executing it, hence either the bytecount should be increased, or the code be changed to fit the codepage.
Erik the Outgolfer

@EriktheOutgolfer I don’t understand what you’re getting st here. How is this different to any other codegolf challenge in this regard?
Nick Kennedy

The self-referential aspect is different, so, in fact, the code sorts UTF-8 characters and not the bytes it's supposed to.
Erik the Outgolfer

3

Jelly, 14 bytes

“;fɓḟṾⱮ”ṾɓfⱮ;ḟ

A full program accepting a (Python formatted) string (of Jelly code-page characters) which prints the output.
(as a monadic link it yields a list of lists of characters)

Try it online!

How?

“;fɓḟṾⱮ”ṾɓfⱮ;ḟ - Main Link: list of characters, S
“;fɓḟṾⱮ”       - list of characters = [';', 'f', 'ɓ', 'ḟ', 'Ṿ', 'Ɱ']
        Ṿ      - un-evaluate = ['“', ';', 'f', 'ɓ', 'ḟ', 'Ṿ', 'Ɱ', '”']
         ɓ     - start a new dyadic chain, F(S, T=that):
           Ɱ   - for each character, t, in T:
          f    -   (S) filter keep any of (the single character, t)
             ḟ - (S) filter discard any of (the characters in T)
            ;  - concatenate

So... I posted my Jelly answer, and then it clicked on me: the interpreter converts the bytecode to UTF-8 before executing it, hence either the bytecount should be increased, or the code be changed to fit the codepage.
Erik the Outgolfer

@EriktheOutgolfer I think this one is safe in that respect since this method does not employ any sorting and meets the I/O being in the same encoding (Jelly's code page) criteria.
Jonathan Allan

Eh... I think the f and work on Unicode characters, because that's what kind of characters the string actually has inside. For example ”ĿO returns 319 if tested locally encoded in JELLY, so it sees the Ŀ and not the C7.
Erik the Outgolfer

I think f and work on Unicode too, but is that a problem here? I pass in the restricted set of Unicode characters that appear on Jelly's code page (that is, bytes encoded using that encoding, fulfilling "The input is in the same encoding as the code"); filter them correctly (since these inputted bytes were encoded as Unicode), and then output them correctly. What I then count is the bytes of the code (fulfilling "The input is sorted by characters, not by bytes" and "shortest answer in bytes for each language wins").
Jonathan Allan

1
@JonathanAllan I feel like the "have been encoded to some characters using Jelly's code-page" is what I'm referring to in my previous comment. Since the code's encoding consists of single bytes from 0x00 to 0xFF, that's what the argument's encoding should consist of too, Instead, the argument is passed after being mapped from JELLY to UTF-8, so each of its characters isn't necessarily a single byte anymore. Basically, the code is in JELLY while the argument is in UTF-8, even though it has been mapped to that from JELLY. While the correct UTF-8 output is returned, it should be JELLY all along.
Erik the Outgolfer

2

Charcoal, 37 bytes

≔´≔´´´η´F´Φ´θ´⁼´ι´κ´¬´№ηFηΦθ⁼ικΦθ¬№ηι

Try it online! Explanation:

≔´≔´´´η´F´Φ´θ´⁼´ι´κ´¬´№η

There are two ways of quoting characters in Charcoal; ´ quotes any single character while ”y... quotes any character except and also counts as a separate string. It turns out that the overhead in having to deal with means that it doesn't end up any golfier.

FηΦθ⁼ικ

Loop over the characters in turn, outputting any matching characters from the input. This sorts the input.

Φθ¬№ηι

Output any unmatched characters in the input.


2

J, 14 bytes

Anonymous tacit prefix function.

]/:']/:''i'i:]

Try it online!

] the argument

i: last occurrence (non-members get the index beyond end of lookup string) of each character in:

']/:''i' the characters ]/:'i

/: use that to sort:

] the argument


Are the four leading spaces a result of the echo or the code?
tjjfvi

1
@tjjfvi It is how TIO is configured. Fixed now.
Adám

2

Java 10, 129 100 bytes

s->{s.sort(java.util.Comparator.comparing(c->("s->{.ort(javuilCmpcng\"\\+)dexOf;}"+c).indexOf(c)));}

-29 bytes by porting the +c from @EmbodimentOfIgnorance's C# answer.

Try it online.

Explanation:

s->{                 // Method with char-List parameter and no return-type
  s.sort(java.util.Comparator.comparing(c->
    ("s->{.ort(javuilCmpcng\"\\+)dexOf;}"
                     //  Push a String containing the characters in the code
     +c)             //  Append the current character
        .indexOf(c)  //  And get the first index of the current character in the String

NOTE: Usually it's cheaper to use s.sort((a,b)->Long.compare(a,b)) instead of s.sort(java.util.Comparator.comparing(c->c), but in this case it would be 11 bytes longer:

s->{var v="s->{var =\"\\;.ot(,)Lngcmpe+idxOf}";s.sort((a,r)->Long.compare((v+a).indexOf(a),(v+r).indexOf(r)));}

Try it online.


2

05AB1E, 31 26 19 bytes

Σ'"'ÿs"Σ'ÿÿsìyk"ìyk

-7 bytes by taking inspiration of @EmbodimentOfIgnorance's approach in his C# answer of appending the current character before indexing.

Try it online or try it with added debug-line to see the strings that's being indexed into.

Explanation:

Σ                 # Sort the (implicit) input-string by:
 '"              '#  Push string '"'
   'ÿ            '#  Push string "ÿ"
     s            #  Swap the order of these two strings on the stack
      "Σ'ÿÿsìyk"  #  Push string "Σ'ÿÿsìyk", where the `ÿ` are automatically filled with
                  #  the previous strings we created: `Σ'"ÿsìyk`
                  #  (top to bottom from stack; left to right in string)
       ì          #  Prepend this string in front of the character we're sorting
        yk        #  And then get the index of the character we're sorting in this string
                  # (after the sorting the resulting string is output implicitly)

There seems to be a typo in the explanation ("y" instead of "s")
ArBo

@ArBo Fixed, thanks
Kevin Cruijssen

1
Strictly speaking I had that inspiration over 12 hours earlier when I golfed 11 bytes of @MilkyWay90's answer...
Neil

This is good! I saw that but couldn't see a way to turn mine into this while saving bytes
Expired Data

2

PowerShell, 68 bytes

$p=$args
&($t={$p|sort-object{"`$p=`$args
&(`$t={$t})$_"|% i*f $_}})

Try it online!


2
1) sort instead sort-object works too. 2) the variable $b defined out of scope your code. the Standard loopholes requires a complete answer. For Powershell it means: any person can wirte the code to a file as a powershell script and run it in a terminal. Your code does not work from script file. Sorry.
mazzy

1
@mazzy, thank you very much. 1) the sort alias does not work in pwsh on Ubuntu 18.04 2) yes, this is my fault, but I corrected myself, and as a result, the code became longer, of course :)
Andrei Odegov

(oO)! I've created sort alias for Powershell. code became longer - this is the challenge :)
mazzy

1
Yes, you are right. Each individual character of $p is append to the end of the string with the source code and gets an index equal to $src.Length, but since “their order does not matter and should not be consistent,” it is not matter. In this answer, the entire input string is appended to the end of the string with the source code.
Andrei Odegov

1
@dfeuer, I don't understand your question. Sorry.
mazzy


2

Japt, 18 bytes

ñÈi"ñÈi\"\\ bX" bX

Try it

ñÈi"ñÈi\"\\ bX" bX     :Implicit input of string or character array
ñ                      :Sort by
 È                     :Passing each X through the following function
  i                    :  Prepend X with
   "ñÈi\"\\ bX"        :    Literal string (The \s are annoying me!)
                bX     :  First index of X

1

Jelly, 26 bytes (UTF-8*)

“®³nÞṾ©V”Ṿ©VV

Try it online!

Takes input as a Python-formatted string in the 1st command-line argument.

Unique characters:

“®³nÞṾ©V”

*Note: I discovered that this doesn't work when encoded in JELLY, since it sorts the UTF-8 characters instead of its own bytes.

Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.