7

Задание: написать функцию (метод) который будет принимать строку и возвращать ее рассортированную по алфавиту, игнорируя регистр.

  • К примеру если передать сТрока то она должна вернуть акорсТ.

  • Строка, передаваемая в вашу функцию может быть как на английском, так и русском языке, но не комбинированной обоими. Причем строки с буквой Ё тоже должны правильно сортироваться.

    апХчиЕмаЁ -> ааЕЁимпХч

  • Предполагается что будет передаваться лишь строка из букв и ничего более (ни цифр, ни знаков препинания, ничего, кроме букв)

Условия: участники могут отвечать на разных языках, публикуя такие решения в разных ответах. Победителем станет тот, кто напишет ее за меньшее количество символов, структура ответа - язык, в скобках количество символов, сам код, ссылка на проверку.

Победитель получит 500 репутации, поехали! Итоги проведутся через 3 дня (статус конкурса откроется, ответ победителя отмечу верным)


Пожалуйста, указывайте в ответе количество символов, чтобы проще было выявить победителя.

function getAnswers(questionId, answer_filter, page) {
  return jQuery.ajax({
    url: '//api.stackexchange.com/2.2/questions/' + questionId + '/answers?page=' + page + '&pagesize=100&order=desc&sort=activity&site=ru.stackoverflow&filter=' + answer_filter,
    method: "get",
    dataType: "jsonp",
    crossDomain: true
  }).then(function(data) {
    if (data.has_more) {

      return getAnswers(questionId, answer_filter, page + 1).then(function(d) {
        return data.items.concat(d.items);
      })
    }
    return data.items;
  });
}

function getAuthorName(e) {
  return e.owner.display_name
}

function process(items) {

  return items.map(function(item) {
    var matched = item.body.match(/(\d+)[^\d]*?<\/h/);
    if (matched) {
      return {
        count: +matched[1],
        link: item.share_link,
        author: getAuthorName(item)

      };
    } else {
      return {
        count: 'N/A',
        link: item.share_link,
        author: getAuthorName(item)
      }
    }
  });
}

function sort(items) {
  return items.sort(function(a, b) {
    if (a.count == 'N/A') return 1;
    if (b.count == 'N/A') return -1;
    return a.count - b.count;
  })
}

function fillTemplate(sortedItems) {
  $('#leadership').append(sortedItems.map(function(item, index) {
    return $('<tr>').append($('<td>').html(index + 1))
      .append($('<td>').html(item.author))
      .append($('<td>').html(item.count))
      .append($('<td>').append($('<a>').attr('href', item.link).text('Link')));
  }));
  return sortedItems;
}

var QUESTION_ID = 671346,
  ANSWER_FILTER = "!4*SyY(4Kifo3Mz*lT",
  startPage = 1;
getAnswers(QUESTION_ID, ANSWER_FILTER, startPage)
  .then(process)
  .then(sort)
  .then(fillTemplate);
#leadership {
  border-collapse: collapse;
}
#leadership td,
#leadership th {
  padding: 5px;
}
#leadership th,
td:nth-child(3) {
  text-align: center;
}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<h1>Таблица лидеров</h1>
<table id="leadership">
  <tr>
    <th></th>
    <th>Автор</th>
    <th>Количество символов</th>
    <th></th>
  </tr>
</table>

5
  • Комментарии не предназначены для расширенной дискуссии; разговор перемещён в чат.
    – user177221
    3 июн 2017 в 19:34
  • 1
    Гольф не актуален?
    – Anatol
    13 июн 2017 в 3:35
  • @Anatol, угу. Читайте коммент Mike. Я сейчас кое чттюо поинтереснее делаю )
    – user194625
    13 июн 2017 в 13:52
  • Может тогда добавить эту информацию в заголовок?
    – Anatol
    13 июн 2017 в 14:32
  • 1
    Народ, вы сумасшедшие... В хорошем смысле слова))
    – DaemonHK
    8 ноя 2017 в 3:54

22 ответа 22

12

Elisp (102 91 102)

Чисто ради экзотики:

(defun f(s)(defun c(a)(if(eq(upcase a) ?Ё)(+ ?Е 0.5)(upcase a)))(seq-sort(lambda(a b)(<(c a)(c b)))s))

С Ё сортирует правильно теперь.

Для работы требуется пакет seq (require 'seq). Ниже есть ответы, где такая подготовка не учитывается в количестве символов, поправьте, если надо добавить.

Проверка (может занять некоторое время):

function check() {
  var cmd = "#!/bin/sh\ntmpfile=$(mktemp); echo \"(require 'seq)(defun f(s)(defun c(a)(if(eq(upcase a) ?Ё)(+ ?Е 0.5)(upcase a)))(seq-sort(lambda(a b)(<(c a)(c b)))s))(print (f \\\"" + $("#src").val() + "\\\"))\" > $tmpfile;emacs --script $tmpfile;rm $tmpfile;"
  $("#cmd").val(cmd)
  $("#cmd").runPark($("#bd"), function(data) {
    $("#bd").html("<p>Результат: " + data["stdout"] + "<\p>")
  })
}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<script src="//eval.dan.co.jp/jquery-runpark.js"></script>
<div>
  Введите слово: <input type="text" id="src">
  <input type="hidden" id="cmd">
  <input type="submit" value="Отсортировать" onclick="check()">
  <div id="bd">
  </div>

Код проверки:

#!/bin/bash
tmpfile=$(mktemp); 
echo "(require 'seq)(defun f(s)(defun c(a)(if(eq(upcase a) ?Ё)(+ ?Е 0.5)(upcase a)))(seq-sort(lambda(a b)(<(c a)(c b)))s))(print (f \"<введенное слово>\"))" > $tmpfile;
emacs --script $tmpfile;
rm $tmpfile;
8
  • Упс, забыл обратно соединить строку, сейчас поправлю
    – Flowneee
    26 мая 2017 в 20:18
  • Укоротить не получится? :D
    – user194625
    27 мая 2017 в 2:25
  • А если прям представить что у вас ограниченная память XD
    – user194625
    27 мая 2017 в 2:26
  • @Flippy да, на свежую голову удалось отыграть 11 символов :D
    – Flowneee
    27 мая 2017 в 11:05
  • А работает ли ваш код со строкой "МиномЁт"? Буквы ё (йо) там где надо?
    – user194625
    27 мая 2017 в 15:34
11

Python (43)

f=lambda s:''.join(sorted(s,key=str.lower))

Проверка

2
  • Комментарии не предназначены для расширенной дискуссии; разговор перемещён в чат.
    – user177221
    3 июн 2017 в 19:34
  • 1
    апХчиЕмаЁ => ааЕимпХчЁ неверно же
    – Artem
    6 июн 2017 в 16:23
10

Wolfram Mathematica (35 45 38 34)

g[s_]:=StringJoin@Sort@Characters@s

z[s_]:=StringJoin@AlphabeticSort@Characters@s

z[s_]:=Row@AlphabeticSort@Characters@s

z=Row@AlphabeticSort@Characters@#&

Онлайн проверку не смог запилить, поэтому скрином:

Скриншот тестов

P.S. Не работает, русские буквы неверно сортирует с учетом регистра

2
  • 2
    Для qqqQQQqQqQ разве не должно было вернуть то же самое?
    – br3t
    27 мая 2017 в 21:06
  • @br3t по условию не запрещалось менять местами порядок символов, лишь бы регистр не влиял
    – int3
    28 мая 2017 в 6:14
9

Pyth (17 16)

DhZRo:rN0\ё"ее"Z

Проверка

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

DhZ  Объявить функцию h(Z)
R    возвращающая (return)
o    сортировка с помощью лямбда-функции "labda N:"
:    строковая замена (из стека)
rN0  переводим букву параметр лямбды(N) в нижний регистр, кладем в стек
"ё"  кладем в стек второй параметр замены - "что меняем"
"ее" и третий - "На что меняем"
Z    помещаем в стек входную строку для "o"
3
  • 8
    Вот доказательство бессмысленности сравнения длин результатов для разных языков
    – br3t
    27 мая 2017 в 21:54
  • 3
    @br3t Конечно. Но ведь подобные вопросы code-golf в общем то не для этого. Это позволяет узнать много нового. отточить знания по знакомым языкам, освоить новые.
    – Mike
    27 мая 2017 в 21:58
  • Очуметь, я чаем поперхнулся!
    – user194625
    28 мая 2017 в 9:43
9

Javascript ES6, 48 символлов

s=>[...s].sort((a,b)=>a.localeCompare(b)).join``

Проверка:

f=s=>[...s].sort((a,b)=>a.localeCompare(b)).join``
console.log(f("еёЁжикЕст"))
console.log(f("МиномЁт"))

11
  • А работает ли ваш код со строкой "МиномЁт"? Буквы ё (йо) там где надо?
    – user194625
    27 мая 2017 в 15:37
  • 1
    @Flippy, да, добавил. Давай-ка ты лучше полный список тестов в вопрос?)
    – Qwertiy
    27 мая 2017 в 15:41
  • Господи, жс это монстр
    – user194625
    27 мая 2017 в 15:42
  • Уже добавил) ))
    – user194625
    27 мая 2017 в 15:42
  • 1
    @br3t главное Ё на месте! :) 27 мая 2017 в 21:35
8

C# (53)

var a=string.Concat(s.Select(c=>""+c).OrderBy(x=>x));

http://ideone.com/yIfq3W


P.S. Как я понял из под комментария под вопросом: одинаковые буквы но с разным регистром могут идти в любой последовательности. Если так, то я сократил код до представленного выше до тех пор, пока не опровергнется утверждение. В ином случае верну предыдущий вариант. Ждем-с комментарии ТС.

16
  • Работает :)
    – Qwertiy
    27 мая 2017 в 15:27
  • @Qwertiy конечно работает. Он ж сравнивает чары как строки длиной 1. Поэтому даже StringComparison в виде CurrentCulture не нужно применять. Но всё вариант тупой и ужасный. Попробую что-то получше потом 27 мая 2017 в 15:35
  • А работает ли ваш код со строкой "МиномЁт"? Буквы ё (йо) там где надо?
    – user194625
    27 мая 2017 в 15:37
  • @Flippy смотря что означает Буквы ё (йо) там где надо? 27 мая 2017 в 15:38
  • 1
    .ToCharArray() вроде как можно опустить :)
    – MihailPw
    27 мая 2017 в 16:39
7

JavaScript(ES6) (163)

s=>s.split('').sort((x,y)=>{return x.toLowerCase().replace('ё','е'+String.fromCharCode(1110))>y.toLowerCase().replace('ё','е'+String.fromCharCode(1110))}).join('');

Если учитываем русские буквы, то должны учитывать букву ё

Проверка:

let a=s=>s.split('').sort((x,y)=>{return x.toLowerCase().replace('ё','е'+String.fromCharCode(1110))>y.toLowerCase().replace('ё','е'+String.fromCharCode(1110))}).join('');

    console.log(a('строка'));
    console.log(a('AaZ'));
    console.log(a('ёапрст'));

10
  • Можете ссылку на проверку кода прикрепить?
    – user194625
    26 мая 2017 в 20:06
  • во-первых точку с запятой можно опустить, во вторых два символа в начале Вы утаили, в третьих я уже это писал в комментарии =) 26 мая 2017 в 20:13
  • точку с запятой и правда лишняя) в задании сказано что нужно написать функцию, а не функцию вместе с переменной куда эта функция будет присваиваться для вызова, то что вы написали - это не ответ 26 мая 2017 в 20:15
  • 1
    не подойдет если в строке будут буквы разных регистров
    – Grundy
    26 мая 2017 в 20:47
  • 2
    регистр на выходе должен остаться неизменным
    – Grundy
    26 мая 2017 в 20:57
6

Perl (42)

sub f{join'',sort{lc$a cmp lc$b}pop=~/./g}

Для корректной работы с русским языком в скрипте должны быть включены прагмы

use utf8;
use locale;

Проверка

sub f {                   # Объявление функции
  join  '',               # Собрать из массива строку, разделяя элементы пустой строкой
   sort {                 # Сортировка массива
          lc $a cmp lc $b # Функция сортировки, сравнивает буквы (cmp)
                          # В нижнем регистре (lc).
                          # $a и $b предопределенные переменные для сортировки
        }
    pop                   # Взять параметр функции из массива параметров
        =~ /./g           # и сравнить с регулярным выражением "один символ"
                          # с флагом "g" (глобально) в списковом контексте (данным sort)
                          # возвращает массив совпадений, т.е. отдельных символов
}
13
  • Можете ссылку на проверку кода прикрепить?
    – user194625
    26 мая 2017 в 20:06
  • Пока что вы лидер :) Я сейчас пробовал на Java написать, но не вышло никак минимум 80. Наверное, час напролет гуглил)
    – user194625
    27 мая 2017 в 2:07
  • И решил просто для количества написать на руби. Хотя я его не знаю, но все же написал :) наверное укоротить можно, но я не хочу
    – user194625
    27 мая 2017 в 2:24
  • При попытке запустить с русским - ideone.com/1qnD5f - не получил ничего. Или я что-то сделал не так?...
    – Harry
    27 мая 2017 в 4:26
  • @Harry, строка не может быть комбинированной :)
    – user194625
    27 мая 2017 в 15:19
6

C# (73)

string s(string x)=>new string(x.OrderBy(c=>(""+c).ToUpper()).ToArray());

Вроде бы более короткий вариант.

http://ideone.com/SNpqGc

8
  • ТестоваяСтрокаПроверкиНаВшивость - не сработало .........TestMePleaseAndCryLouuUdd - аналогично 27 мая 2017 в 22:09
  • @АлексейШиманский: У меня аааввВвееииккНооооПрррсСсТтттшья, а как надо?
    – VladD
    27 мая 2017 в 22:10
  • Обратите внимание на в и с 27 мая 2017 в 22:11
  • @АлексейШиманский: Ну вроде ж так и надо? Одинаковые символы перемещаются, сохраняя относительный порядок, разве не это нужно? Надо уточнить у ТС.
    – VladD
    27 мая 2017 в 22:12
  • 2
    Да. Уже написал под его вопросом комментарий) Но уже, если честно, ничего не хочется) Соревнование и вопрос явно сырой 27 мая 2017 в 22:18
5

C++ (90)

auto g(string s){sort(begin(s),end(s));return s;}

Проверка

Да, упустил из виду нечувствительность к регистру... Так, конечно, длиннее - пока 90 символов.

auto g(string s){sort(begin(s),end(s),[](char a, char b){return (a|32)<(b|32);});return s;}

http://ideone.com/8P4wbV

13
  • Не знал что в C++ так просто это сделать, а пробел между s.begin() и s.end() вы не написали чтобы символов меньше было?)
    – user194625
    26 мая 2017 в 18:50
  • Ой, вы вообще ванлайн сделали :D неплохой результат в самом начале))
    – user194625
    26 мая 2017 в 18:51
  • 1
    А почему не auto вместо string в начале? Это ж минус 2 символа. :)
    – Flowneee
    26 мая 2017 в 18:53
  • 1
    @Flowneee Спасибо, принимаю :) Если заработаю 500 баллов - 20 ваши :)
    – Harry
    26 мая 2017 в 18:53
  • 2
    @Flippy Все, при этом условии схожу с дистанции - потому что проверить не удастся :) - ideone - сами гляньте - при русском языке начинает чудить. Мой код при установке setlocale(LC_ALL,"RUS"); на VC++2015 даст сортировку, но русские буквы в ней будут идти раньше английских. На ideone не будет выдано ничего вообще (проверьте, кстати, любое приведенное решение с русскими буквами на ideone...). И что засчитывать? :) Кстати, не критики для, но в порядке размышлений - фактически тут идет не соревнование программистов, а соревнование языков.
    – Harry
    27 мая 2017 в 4:36
5

Javascript ES6 (163)

Проблема с ё решена.

s=t=>{l=q=>{q=2*q.toLowerCase().charCodeAt();return q==2210?q-55:q};r={},d='';[...t].forEach(i=>{(r[l(i)])?r[l(i)]+=i:r[l(i)]=i});for(var j in r){d+=r[j]}return d}

console.log('Tests:');
['AaZbBXo', 'ТестоваяСтрока', 'ЁлкаёлочкА', 'МиномЁт'].forEach(function(testStr) {
  console.log(testStr + ' => ' + s(testStr));
});

Правка: из-за нестабильности работы sort пришлось пойти немного другим путем, через числовые ключи объекта.

2
  • А работает ли ваш код со строкой "МиномЁт"? Буквы ё (йо) там где надо?
    – user194625
    27 мая 2017 в 15:37
  • Поправил.......
    – br3t
    27 мая 2017 в 19:47
5

psql / Postgres (99 b)

\set v '\'привеЕтЁ\''
SELECT ARRAY_TO_STRING(ARRAY_AGG(v ORDER BY v),'')FROM(SELECT REGEXP_SPLIT_TO_TABLE(:v,''))AS D(v);

Чисто в копилку :-)

1
  • 1
    Кстати, автору Perl-кода рекомендую все-таки `use feature 'fc' - perldoc.perl.org/functions/fc.html. Хотя для данного golf это и неважно, но писать лучше правильно. 3 июн 2017 в 20:33
5

Crystal (3, или 24, или 75)

struct Char;def d;x=downcase;x=='ё'?'е': x;end;end

def g(s)
s.chars.sort_by(&.d).join
end

p g("еМиномЁтЙ")

https://play.crystal-lang.org/#/r/25jk

можно изменить код так, что вызов будет

def g(s)
s.g
end

https://play.crystal-lang.org/#/r/25jr

5

Ruby (3, или 24, или 72)

class String;def d;downcase.tr('ё','е');end;end

def g(s)
s.chars.sort_by(&:d).join
end

p g("еМиномЁтЙ")

http://ideone.com/yZytxP

можно изменить код так, что вызов будет

def g s
s.g
end

http://ideone.com/ZiSxGK

5

PHP 7.3 (263 258)

function s($s){$a=array_filter(preg_split('//u',$s));$u=function($s){return ($r=unpack('V',iconv('UTF-8','UCS-4LE',mb_strtolower($s)))[1])==1105?1077.5:$r;};usort($a,function($a,$b)use($u){return $u($a)<$u($b)?-1:$u($a)==$u($b)?0:1;});return implode('',$a);}

Проверка
Проверка

Получение кода символа в UTF-8 на основе этого ответа.

4
  • ТестоваяСтрокаПроверкиНаВшивость - не прошла) что-то с порядком буквы с ............ у строки ПочемуВсёТАКСложносБуквойС - всё сложно с к :D .............и тут aabdeeeFIIiimmnNnooorrssSTtt ....... беда) 27 мая 2017 в 22:01
  • @АлексейШиманский, регистр букв не учитывался в общем, я подумаю, что сделать можно, не превращая функцию в еще большего монстра.
    – VenZell
    27 мая 2017 в 23:28
  • я возможно ошибся. ru.stackoverflow.com/questions/671346/… .......поэтому уточняющий комментарий по поводу этого я оставил под вопросом ТС .... 28 мая 2017 в 6:18
  • В общем да, я подошибся ru.stackoverflow.com/questions/671346/… ........в итоге я свой код на основе коммента сократил втрое :) 28 мая 2017 в 10:46
4

Scala (113)

  def m(p:String)=p
                   .toCharArray
                   .map(_+"")
                   .sortWith(Collator.getInstance(new Locale("RU")).compare(_, _)<0)
                   .mkString

Проверка

3

Kotlin (70)

s.split("").sortedWith(String.CASE_INSENSITIVE_ORDER).joinToString("")   

http://ideone.com/ySMgZE

Увы, не работает с "Ё". Решил всё равно запостить, так как автор сам постил такое. Может кто дополнит в комментариях, как победить эту "Ё".

3

T-SQL (195)

DECLARE @l INT=LEN(@s)-1DECLARE @t TABLE(c NCHAR(1))WHILE @l>=0BEGIN INSERT INTO @t(c)SELECT SUBSTRING(@s,LEN(@s)-@l,1)SET @l-=1 END SELECT(SELECT c AS[text()]FROM @t ORDER BY c FOR XML PATH(''))    

Для SQL Server 2014. В 2016 сделали SPLIT_STRING, но сам не пробовал ещё.
Проверить онлайн не знаю где, SQLFiddle вроде как сломан.

3

Perl6 (35) не работает Ё

sub f{[~] $^x.split("").sort(*.lc)}

Сортирует без учёта локали, возможно найду способ, тогда обновлю.

Проверка

1
3

F# (146)

List.sortWith(fun a b->String.Compare(a,b,true,CultureInfo.InvariantCulture))((List.ofSeq s)
        |>List.map(fun x->Convert.ToString(x)))
        |>String.Concat

https://ideone.com/agogSy

В отличие от C#, CultureInfo надо задавать явно... А так бы вышло покороче (34):

s.OrderBy(fun a->a)|>String.Concat
1

Ruby (48)

def g(s)
return s.chars.sort(&:casecmp).join
end

Не работает с Ё

Проверка

4
  • 1
    ideone.com/zI2IET - с русским не работает
    – Harry
    27 мая 2017 в 4:24
  • @Harry, строки с комбинированными языками не будут передаваться в метод, или ru или en но никак не ru+en
    – user194625
    27 мая 2017 в 16:14
  • Не работает... у тебя у самого ответ aaafFfWX ....... заметь fFf 27 мая 2017 в 21:38
  • @Алексей Шиманский, ох черт :')
    – user194625
    28 мая 2017 в 9:23
0

PHP 7.4 (89)

Collator

function s($s){$a=mb_str_split($s);(new Collator('ru_RU'))->sort($a);return join('',$a);}

Проверка

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.