Напишите функцию или программу, которая определяет стоимость данной строки, где

• стоимость каждого символа равна количеству повторений символа до этой точки в строке, и
• стоимость строки - это сумма затрат ее символов.

пример

Для ввода abaacabстоимость рассчитывается следующим образом:

a b a a c a b
1   2 3   4    occurrence of a
  1         2  occurrence of b
        1      occurrence of c
1+1+2+3+1+4+2 = 14

Таким образом, стоимость строки abaacabсоставляет 14.

правила

• Оценка вашего представления - это стоимость вашего кода, как определено выше , то есть ваше представление выполняется с использованием собственного исходного кода, причем более низкий показатель лучше.
• Ваше представление должно работать со строками, содержащими печатные символы ASCII, а также все символы, используемые в вашем представлении.
• Символы чувствительны к регистру, то есть aи Aявляются разными символами.

Testcases

input -> output
"abaacab" -> 14
"Programming Puzzles & Code Golf" -> 47
"" -> 0
"       " -> 28
"abcdefg" -> 7
"aA" -> 2

Leaderboard

var QUESTION_ID=127261,OVERRIDE_USER=56433;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px} /* font fix */ body {font-family: Arial,"Helvetica Neue",Helvetica,sans-serif;} /* #language-list x-pos fix */ #answer-list {margin-right: 200px;}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Score</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

MATL , оценка 4

&=Rz

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

объяснение

Рассмотрим ввод 'ABBA'в качестве примера.

&=   % Implicit input. Matrix of all equality comparisons
     % STACK: [1 0 0 1;
               0 1 1 0;
               0 1 1 0;
               1 0 0 1]
R    % Upper triangular part
     % STACK: [1 0 0 1;
               0 1 1 0;
               0 0 1 0;
               0 0 0 1]
z    % Number of nonzeros. Implicitly display
     % STACK: 6

Питон , оценка 49

lambda S:sum(1+S.count(C)for[C]in	S)/2

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

Там есть вкладка после in.

Распределение баллов:

• +27 за 27 уникальных персонажей
• +16 за 8 двойных символов: ()Camnou
• +6 за 1 утроенный символ: S

T-SQL, оценка 775 579! 580

declaRe @ char(876),@x int,@v int=0Select @=q+CHAR(9)from z X:seleCT @x=len(@),@=REPLACE(@,LEFT(@,1),''),@v+=(@x-LEN(@))*(@x-LEN(@)+1)/2IF LEN(@)>0GOTO X prINT @v-1

РЕДАКТИРОВАТЬ : отбросил пару переменных, немного сжаты. Сокращение до 16 @символов вместо 22, что само по себе уменьшает мой счет на целых 117 очков!

Хороший конкурс, мне нравится требование оптимизировать что-то помимо общего количества символов.

Ввод осуществляется с VARCHAR поля д в уже существующей таблице г , в соответствии с нашими правилами ввода - вывода . База данных, содержащая эту входную таблицу, должна быть настроена на регистр с учетом регистра .

отформатирован:

declaRe @ char(876), @x int, @v int=0
Select @=q+CHAR(9)from z
X:
    seleCT @x=len(@)
          ,@=REPLACE(@,LEFT(@,1),'')
          ,@v+=(@x-LEN(@))*(@x-LEN(@)+1)/2
IF LEN(@)>0 GOTO X
prINT @v-1

Ключевые слова SQL не чувствительны к регистру, поэтому я использовал смешанный регистр, чтобы минимизировать количество повторяющихся букв ( aaAA генерирует лучший / более низкий балл, чем aaaa ).

Основной цикл сравнивает длину до и после удаления всех экземпляров первого символа. Эта разница n * (n + 1) / 2 добавляется к промежуточному итогу.

Функция SQL LEN()досадно игнорирует завершающие пробелы, поэтому мне пришлось добавить управляющий символ и вычесть 1 в конце.

РЕДАКТИРОВАТЬ : Исправлена ​​ошибка в моем собственном счете на 2 балла (проблема с цитатами), уменьшена на 1 путем изменения регистра одного R. Также работая над совершенно другой стратегией, я опубликую это как собственный ответ.

C (gcc) , оценка:  113  103 100   96  91

Спасибо @ugoren, @CalculatorFeline, @gastropner, @ l4m2 и @ JS1 за их советы.

g(char*s){int y[238]={};while(*s)*y-=--y[*s++];*y/=1;}

Инициализирует массив нулей, затем использует значения ASCII символов в строке как индексы для этого массива, чтобы отслеживать количество экземпляров каждого символа в строке.

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

JavaScript (ES6), оценка 81 78

Сэкономили 3 балла благодаря @Arnauld

s=>s.replace(d=/./g,z=>q+=d[z]=-~d[z],q=0)&&q

Мое оригинальное рекурсивное решение Score-81:

f=([c,...s],d={})=>c?(d[c]=-~d[c])+f(s,d):0

Хаскелл , оценка 42

f l=sum[1|c<-l,d<-c:l,d==c]/2

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

Анонимизация \l->дает ту же оценку.

Желе , оценка 6

;\ċ"⁸S

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

Сетчатка , оценка 34

s(O`.
M&!`^|(?<=(.))\1*
.

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

объяснение

s(O`.

Мы начнем с сортировки всех символов на входе, чтобы идентичные символы были сгруппированы в один прогон. s(Активирует SingleLine режим для всех стадий (т.е. делает .матч перевода строки).

M&!s`^|(?<=(.))\1*

Цель состоит в том, чтобы превратить серию из n символов в T _n символов ( n- е треугольное число), потому что это количество вхождений этого символа. Для этого мы найдем перекрывающиеся совпадения. В частности, для каждого i в [1, n] мы собираемся включить в совпадение символы i-1 . Мы получаем все эти совпадения из-за перекрывающегося флага &. Это дает нам n * (n-1) / 2 = T _n-1 = T _n - n символов только из совпадений. Но стадия совпадения объединит их с переводами строки, которые являются n переводами строки для nСпички. Есть только одна проблема. После последнего совпадения не будет перевода строки, поэтому общее количество символов в выводе на один меньше, чем нам нужно. Мы исправляем это, также сопоставляя начало ввода, что дает нам один ведущий перевод строки, если есть хотя бы одно другое совпадение.

.

Наконец, мы просто посчитаем, сколько символов в строке.

Хаскелл, оценка 52 51

f(a:b)=1+sum[1|c<-b,c==a]+f b;f _=0

Там есть вкладка между fи _.

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

Значение пустой строки равно 0. Значение строки s, где aпервый символ, а bостальная часть строки - 1 плюс вхождения ain bплюс рекурсивный вызов с b.

J , оценка 16

1#.,@(*+/\"1)&=

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

объяснение

1#.,@(*+/\"1)&=
              =  Self-classify: bit matrix of equality between input
                 and its unique elements.
     (      )&   Apply verb in parentheses to it:
       +/\         running sums
          "1       of each row
      *            multiplied with original matrix.
                 This causes the i'th 1 on each row to be replaced by i.
   ,@            Flatten the resulting matrix
1#.              and interpret as a base-1 number, computing its sum.

Использование 1#.вместо +/@суммы сэкономило несколько баллов и &может быть использовано вместо @монадического контекста для сохранения еще одного. Повторение 1стоило мне одного дополнительного очка, но я не смог от него избавиться.

R , оценка: 67 83 95 128

-61 благодаря лучшим советам от Джузеппе

function(x,y=table(utf8ToInt(x)))y%*%{y+1}/2

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

Строка разбивается с использованием utf8ToIntи подсчитывается каждое значение ascii table. Результат рассчитывается с использованием умножения матрицы %*%на это + 1 и, наконец, наполовину.

05AB1E , оценка 6

{γ€gLO

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

Пиф , оценка 6

1 байт благодаря isaacg.

+F/V._

Тестирование.

Как это устроено

+F/V._
+F/V._QQ  implicit input
  /V      vectorize count: for each element in the first argument,
                           count the number of occurrences of the
                           second argument:
    ._Q       all prefixes of input
       Q      input
+F        fold (reduce) on +, base case 0.

J , оценка: 14 12 11

$+/@,2!1#.=

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

Желе , оценка 7

ċЀQRFS

Объяснение:

   Q    get unique letters
ċЀ     count the occurences of each letter in the original string
    R   [1..n] for n in list of frequencies
     F  flatten list
      S sum
        (implicit output)

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

C, 60 байтов, оценка 108 95

g(char*s){int y[256]={},z=0;while(*s)z-=--y[*s++];return z;}

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

Обычно операторы до и после приращения отлично подходят для код-гольфа, но они действительно больно справляются с этой задачей!

РЕДАКТИРОВАТЬ: вычитая отрицательные числа вместо добавления положительных, я сохранил целую кучу очков. Замена for()с while()устранена точкой с запятой , а также.

Perl 6 , оценка  61 56 53 46  44

(1 X..*.comb.Bag.values).flat.sum

Попробуй

{sum flat 1 X.. .comb.Bag.values}

Попробуй

{sum flat 1 X.. values(.comb.Bag)}

Попробуй

{[+] flat	1	X.. values(.comb.Bag)}

Попробуй

{[+] flat	1	X.. values(bag
.comb)}

Попробуй

C # (.NET Core) , оценка ∞ (я имею в виду, 209)

b=>b.Distinct().Select(z=>{var w=b.Count(p=>p==z);return w*(w+1)/2;}).Sum()

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

Оценка включает в себя следующее:

using System.Linq;

Желе , оценка 5

ĠJ€ẎS

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

Спасибо Leaky Nun за -2 (ранее за его ответ )

PowerShell, оценка 64

$z=@{}
$ARGS|% getE*|%{$u+=($Z.$_+=1)};$U

(Оценка основана на новой строке перевода строки, которая не является стандартом Windows, но работает в PS).

PS C:\> D:\unique-is-cheap.ps1 (gc D:\unique-is-cheap.ps1 -raw)
64

• Счетчик @{}
• Перебирать буквы; $argsявляется массивом параметров - в этом случае входная строка делает его единым массивом элементов; |%выполняет цикл foreach над элементами и использует getE*ярлык для соответствия GetEnumerator()строковому методу и вызывает его, чтобы превратить строку в поток символов.
• |%Зацикливайте символы и увеличивайте их в хеш-таблице, добавляйте к промежуточной сумме. ($x+=1)Форма с скобками и изменяет переменную и выводит новое значение для использования.
• Выведите промежуточный итог.

(Когда я впервые написал его, он был $c=@{};$t=0;[char[]]"$args"|%{$c[$_]++;$t+=$c[$_]};$tсо счетом 128, и я чувствовал, что он не станет намного ниже. Половина его до 64 весьма приятна).

Юлия 0,6 , 45 байт, Оценка: 77

Вдохновленный решением MATL:

f(w)=sum(UpperTriangular([z==j for z=w,j=w]))

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

Менее симпатичное решение, использующее количество:

Юлия 0,6 , оценка: 82

F(w)=sum(l->[l+1]l/2,count(x->x==i,w)for i=Set(w))

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

Спасибо Guiseppe за указание на счет и за подсказки. Эти комментарии помогли мне загрузить.

Java 10, оценка: 149 138 137 134 133 130 103 102 101 100

( Байт: 72 73 74 75 64 62 61 ) Байты увеличиваются, но оценка снижается. : D

x->{int j=0,q[]=new int[256];for(var    C:x)j+=++q[C];return
j;}

Оценка -28 (и -11 байт) благодаря @Nevay .
-1 оценка (и -2 байта) благодаря @ OlivierGrégoire .
-1 оценка (и -1 байт) путем преобразования Java 8 в Java 10.

Объяснение:

Попробуй это здесь.

x->{                     // Method with character-array parameter and integer return-type
  int j=0,               //  Result-integer, starting at 0
      q[]=new int[256];  //  Integer-array with 256 times 0
  for(var   C:x)         //  Loop over the characters of the input array
    j+=++q[C];           //   Raise the value in the array by 1,
                         //   and then add it to the result-integer
  return                 //  Return 
  j;}                    //         the result

F #, оценка 120 118

let j z=Seq.countBy id z|>Seq.sumBy(fun x->List.sum[0..snd x])

-2 спасибо Кевину Круйссену !

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

Принимает stringкак вход. Seq.countByсоединяет каждый отдельный символ с его количеством ( idэто функция идентичности), чтобы вы получили коллекцию, как 'a' = 4, 'b' = 2и т.д.

Seq.sumByБерет отсчета для каждой буквы и суммирует все числа от 0графы для этого письма. Так что если 'a' = 4бы коллекция была бы 0, 1, 2, 3, 4суммированной, то есть 10. Затем Seq.sumByсуммирует все эти суммы.

APL (Дьялог) , оценка 15

+/1 1⍉+\∘.=⍨⍞

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

⍞ получить текстовый ввод

∘.=⍨ таблица равенства с собой

+\ накопленная сумма по

1 1⍉ диагональ (буквально сворачивает оба измерения в одно измерение)

+/ сумма

Сетчатка , оценка 68 45 43

s`(.)(?<=((\1)|.)+)
$#3$*
1

Попробуйте онлайн! Ссылка показывает оценку. Редактирование: Спасибо @MartinEnder, который сохранил 20 байтов, используя перекрывающиеся совпадения вместо заголовков, и еще три байта, сгруппировав этапы так, что sфлаг нужно применять только один раз. Сохраните еще два байта, вычисляя треугольное число по-разному, избегая необходимости сортировки.

PHP , 45 байт, оценка 78

WHILE($x=ORD($argn[$v++]))$y+=$$x-=-1;echo$y;

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

PHP , 46 байт, оценка 79 байт

WHILE(~$xy=$argn[$vz++])$su-=-$$xy+=1;echo$su;

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

PHP , 56 байт, оценка 92

FOREAch(COUNT_CHARS($argn)as$z)WHILE($z)$y+=$z--;echo$y;

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

Perl 5 баллов 91 83

Использует -pфлаг, который добавляет 2 из-за p в split.

$x=$_;$b+=++$a{$_}for(split//,$x);$_=$b

Октава , 39 байт, оценка 69

@(a)sum((b=hist(a,unique(1*a))).^2+b)/2

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

Хотя есть и другой ответ от Octave, этот - полностью мой и другой подход, плюс он набирает меньше очков :).

Подход сводится к тому, чтобы сначала найти количество (b) каждого уникального символа, что достигается с помощью функции гистограммы. Затем для каждого элемента мы вычисляем сумму от 1 до b, что делается по формуле (b*(b+1))/2. Затем отдельные суммы суммируются в итоговый счет.

При тестировании кажется, что скобки действительно дорогостоящие, потому что многие из них необходимы. Я оптимизировал исходную оценку около 88, переставив вопросы, чтобы свести к минимуму количество открытых / закрытых скобок - следовательно, теперь мы делаем / 2 для итоговой суммы, а не по отдельности, а также я изменил формулу, чтобы (b^2+b)/2поскольку это требует меньше скобок.

Common Lisp, оценка 286 232 222

(loop with w =(fill(make-list 128)0)as z across(read)sum(incf(elt w(char-code z))))

Высокая оценка за счет объемного синтаксиса встроенных операторов Common Lisp.

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

Негольфированный код:

(loop with w = (fill (make-list 128) 0)  ; create a list to count characters
   as z across (read)                   ; for each character of input
   sum (incf (elt w (char-code z))))     ; increase count in list and sum

Mathematica, оценка 54

Total[#(#+1)/2&@Counts@Characters@#]&

вход

[ "ABCDEFG"]

благодаря hftf