Напишіть функцію або програму, яка визначає вартість заданого рядка, де

• вартість кожного символу дорівнює кількості, скільки разів персонаж стався до цього моменту в рядку, і
• вартість рядка - це сума витрат його символів.

Приклад

Для входу 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різні символи.

Тестові шафи

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

Таблиця лідерів

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

EDIT : Випало кілька змінних, трохи ущільнилося. Вниз до 16 @символів замість 22, що само по собі знижує мою оцінку на цілих 117 балів!

Приємний конкурс, мені подобається вимога оптимізувати щось, крім загальної кількості символів.

Введення здійснюється через поле varchar q у попередньо існуючій таблиці z , згідно з нашими правилами вводу- виводу . База даних, що містить цю таблицю введення, повинна бути встановлена ​​в залежності від регістру .

Відформатовано:

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 в кінці.

EDIT : виправлено прорахунок мого власного бала на 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

Моє оригінальне рекурсивне рішення - 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 плюс випадки aв 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

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

Pyth , оцінка 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;}

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

Зазвичай оператори до та після збільшення чудово підходять для гольфу з кодом, але вони справді шкодять цьому виклику!

EDIT: Віднімаючи від’ємні підрахунки замість додавання позитивних, я зберег цілу купу балів. Заміна for()з while()усунена крапкою з комою , а також.

Перл 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

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

Дякуємо Лікі монахині за -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 (Dyalog) , оцінка 15

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

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

⍞ отримати введення тексту

∘.=⍨ таблиця рівності з собою

+\ сукупна сума впоперек

1 1⍉ по діагоналі (освітлене згортання обох вимірів на вимір один)

+/ сума

Сітківка , оцінка 68 45 43

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

Спробуйте в Інтернеті! Посилання показує бал. Редагувати: Дякуючи @MartinEnder, який врятував 20 байт, використовуючи збіги, що перекриваються замість lookaheads, та ще три байти шляхом групування етапів, так що 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 в роздвоєнні.

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

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

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

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

Хоча є ще одна відповідь Октави, ця цілком моя і інша підхід, плюс вона набирає менше :).

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

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

Звичайний Лісп, оцінка 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

Математика, оцінка 54

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

вхід

["abcdefg"]

завдяки hftf