Schreiben Sie eine Funktion oder ein Programm, die bzw. das die Kosten einer bestimmten Zeichenfolge ermittelt

• Die Kosten für jedes Zeichen entsprechen der Anzahl, wie oft das Zeichen bis zu diesem Punkt in der Zeichenfolge vorgekommen ist
• Die Kosten der Zeichenfolge sind die Summe der Kosten der Zeichen.

Beispiel

Für eine Eingabe von abaacabwerden die Kosten wie folgt berechnet:

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

Also die Kosten für den String abaacab 14.

Regeln

• Das Ergebnis Ihrer Einreichung sind die Kosten Ihres Codes, wie oben definiert, dh , Ihre Einreichung wird mit einem niedrigeren Quellcode ausgeführt Bewertung besser ist.
• Ihre Einreichung sollte mit Zeichenfolgen funktionieren, die druckbare ASCII-Zeichen sowie alle in Ihrer Einreichung verwendeten Zeichen enthalten.
• Charaktere sind case-sensitive, das heißt aund Asind unterschiedliche Charaktere.

Testfälle

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

Bestenliste

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 , Punktzahl 4

&=Rz

Probieren Sie es online!

Erläuterung

Betrachten Sie die Eingabe 'ABBA'als Beispiel.

&=   % 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

Python , Punktzahl 49

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

Probieren Sie es online!

Es gibt einen Vorsprung danach in.

Aufschlüsselung der Punkte:

• +27 für 27 einzigartige Zeichen
• +16 für 8 Doppelzeichen: ()Camnou
• +6 für 1 verdreifachtes Zeichen: S

T-SQL, Ergebnis 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

BEARBEITEN : Einige Variablen entfernt, etwas komprimiert. Bis 16@Anstelle von 22 Symbole reduziert das meine Punktzahl um satte 117 Punkte!

Netter Wettbewerb, mir gefällt die Forderung, nicht nur die Gesamtcharakterzahl zu optimieren.

Die Eingabe erfolgt über varchar Feld q in bereits bestehenden Tabelle z , gemäß unseren IO Regeln . In der Datenbank, die diese Eingabetabelle enthält, muss zwischen Groß- und Kleinschreibung unterschieden werden .

Formatiert:

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

Bei SQL-Schlüsselwörtern wird nicht zwischen Groß- und Kleinschreibung unterschieden, daher habe ich die Anzahl der doppelten Buchstaben in Groß- und Kleinschreibung minimiert ( aaAA generiert eine bessere / niedrigere Bewertung als aaaa ).

Die Hauptschleife vergleicht die Länge vor und nach dem Entfernen aller Instanzen des ersten Zeichens. Diese Differenz n * (n + 1) / 2 wird zu einer laufenden Summe addiert.

Die SQL- LEN()Funktion ignoriert ärgerlicherweise nachfolgende Leerzeichen, daher musste ich ein Steuerzeichen anhängen und am Ende 1 subtrahieren.

BEARBEITEN : Eine Fehleinschätzung meiner eigenen Punktzahl um 2 Punkte (Problem mit Anführungszeichen) wurde behoben, die durch Ändern der Groß- und Kleinschreibung um 1 verringert wurde R. Ich arbeite auch an einer völlig anderen Strategie und werde dies als eigene Antwort veröffentlichen.

C (gcc) , Punktzahl:  113  103 100   96  91

Vielen Dank an @ugoren, @CalculatorFeline, @gastropner, @ l4m2 und @ JS1 für ihre Tipps.

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

Initialisiert ein Array mit Nullen und verwendet dann die ASCII-Werte der Zeichen in der Zeichenfolge als Indizes für dieses Array, um die Anzahl der Instanzen jedes Zeichens in der Zeichenfolge zu verfolgen.

Probieren Sie es online!

JavaScript (ES6), Partitur 81 78

3 Punkte gespart dank @Arnauld

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

Meine ursprüngliche rekursive Score-81-Lösung:

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

Haskell , Punktzahl 42

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

Probieren Sie es online!

Anonymisierung \l->ergibt die gleiche Punktzahl.

Gelee , Punktzahl 6

;\ċ"⁸S

Probieren Sie es online!

Retina , 34 Punkte

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

Probieren Sie es online!

Erläuterung

s(O`.

Wir beginnen damit, alle Zeichen in der Eingabe so zu sortieren, dass identische Zeichen zu einem einzigen Lauf zusammengefasst werden. Der s(Aktiviert den Single-Line-Modus für alle Stufen (dh führt .Match-Linefeeds durch).

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

Das Ziel ist es, eine Folge von n Zeichen in T _n Zeichen (die n- te dreieckige Zahl) umzuwandeln, da dies die Punktzahl für das Auftreten dieses Zeichens ist. Dazu finden wir überlappende Übereinstimmungen. Insbesondere werden wir für jedes i in [1, n] i-1 Zeichen in die Übereinstimmung aufnehmen. Wir erhalten alle diese Übereinstimmungen aufgrund der überlappenden Flagge &. Das ergibt n * (n-1) / 2 = T _n-1 = T _n - n Zeichen nur aus den Übereinstimmungen. Aber die Match-Phase wird diese mit Linefeeds verbinden, für die es sich um n Linefeeds handelt n sindStreichhölzer. Es gibt nur ein Problem. Nach der letzten Übereinstimmung wird kein Zeilenvorschub ausgegeben, sodass die Gesamtanzahl der Zeichen in der Ausgabe um eins geringer ist als benötigt. Wir beheben dies, indem wir auch den Anfang der Eingabe anpassen, wodurch wir einen einzelnen Zeilenvorschub erhalten, wenn mindestens eine andere Übereinstimmung vorliegt.

.

Schließlich zählen wir nur, wie viele Zeichen sich in der Zeichenfolge befinden.

Haskell, Ergebnis 52 51

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

Es gibt eine Lasche zwischen fund _.

Probieren Sie es online!

Der Wert der leeren Zeichenfolge ist 0. Der Wert der Zeichenfolge s, wobei adas erste Zeichen und bder Rest der Zeichenfolge 1 plus das Auftreten von ain bplus einen rekursiven Aufruf mit b ist.

J , Punktzahl 16

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

Probieren Sie es online!

Erläuterung

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.

Verwenden Sie 1#.statt +/@für die Summe, die einige Punkte gespeichert hat, und &können Sie statt @in einem monadischen Kontext verwenden, um einen weiteren Punkt zu speichern. Die Wiederholung 1kostet mich einen zusätzlichen Punkt, aber ich habe es nicht geschafft, es loszuwerden.

R , Punktzahl: 67 83 95 128

-61 dank Top-Tipps von Giuseppe

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

Probieren Sie es online!

Die Zeichenfolge wird mit geteilt utf8ToInt und jeder ASCII-Wert wird gezählt table. Das Ergebnis wird berechnet, indem eine Matrixmultiplikation %*%über den Wert von + 1 durchgeführt und schließlich halbiert wird.

05AB1E , Punktzahl 6

{γ€gLO

Probieren Sie es online!

Pyth , Punktzahl 6

1 byte dank isaacg.

+F/V._

Testsuite.

Wie es funktioniert

+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 , Punktzahl: 14 12 11

$+/@,2!1#.=

Probieren Sie es online!

Jelly , Punktzahl von 7

ċЀQRFS

Erläuterung:

   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)

Probieren Sie es online!

C, 60 Bytes, Ergebnis 108 95

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

Probieren Sie es online!

Normalerweise sind Pre- und Post-Increment-Operatoren großartig für Code-Golf, aber sie tun dieser Herausforderung wirklich weh!

BEARBEITEN: Indem ich negative Zählungen abzog, anstatt positive zu addieren, sparte ich eine ganze Menge Punkte. Durch Ersetzen for()mit wird auch while()ein Semikolon entfernt.

Perl 6 , Punktzahl  61 56 53 46  44

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

Versuch es

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

Versuch es

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

Versuch es

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

Versuch es

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

Versuch es

C # (.NET Core) , Score score (ich meine, 209)

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

Probieren Sie es online!

Die Partitur beinhaltet Folgendes:

using System.Linq;

Gelee , Punktzahl 5

ĠJ€ẎS

Probieren Sie es online!

Danke an Leaky Nun für -2 (vorher auf seine Antwort )

PowerShell, Punktzahl 64

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

(Die Bewertung basiert auf einem Zeilenvorschub, der nicht dem Windows-Standard entspricht, aber in PS funktioniert.)

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

• Hashtable-Zähler @{}
• Durch die Buchstaben iterieren; $argsist ein Array von Parametern - in diesem Fall wird es durch die Eingabezeichenfolge zu einem einzelnen Elementarray. |%Führt eine foreach-Schleife über die Elemente aus und verwendet die getE*Verknüpfung, um die GetEnumerator()Zeichenfolgemethode abzugleichen. Ruft sie auf, um die Zeichenfolge in einen Zeichenstrom umzuwandeln.
• |%Durchlaufen Sie die Zeichen und erhöhen Sie ihren Hashtabelleneintrag. Fügen Sie ihn zu einer laufenden Summe hinzu. Das ($x+=1)Formular mit Parens ändert sowohl die Variable als auch gibt den neuen Wert zur Verwendung aus.
• Laufende Summe ausgeben.

(Als ich es zum ersten Mal schrieb, hatte ich $c=@{};$t=0;[char[]]"$args"|%{$c[$_]++;$t+=$c[$_]};$teine Punktzahl von 128 und hatte das Gefühl, dass es nicht viel niedriger ausfallen würde. Es ist sehr erfreulich, es auf 64 zu halbieren.)

Julia 0,6 , 45 Bytes, Score: 77

Inspiriert von der MATL-Lösung:

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

Probieren Sie es online!

Eine weniger hübsche Lösung mit Zählungen:

Julia 0,6 , Score: 82

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

Probieren Sie es online!

Vielen Dank an Guiseppe für den Hinweis auf die Wertung und für Tipps. Diese Kommentare haben mir sehr geholfen.

Java 10, Partitur: 149 138 137 134 133 130 103 102 101 100

( Bytes: 72 73 74 75 64 62 61 ) Bytes steigen, aber die Punktzahl sinkt. : D

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

-28 Punkte (und -11 Bytes) dank @Nevay .
-1 Punktzahl (und -2 Bytes) dank @ OlivierGrégoire .
-1 Punktzahl (und -1 Byte) durch Konvertieren von Java 8 in Java 10.

Erläuterung:

Probieren Sie es hier aus.

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 Punkte

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

-2 Danke an Kevin Cruijssen !

Probieren Sie es online!

Nimmt ein stringals Eingabe. Seq.countByPaart jedes einzelne Zeichen mit seiner Anzahl ( idist die Identitätsfunktion), sodass Sie eine Sammlung wie 'a' = 4, 'b' = 2usw. erhalten.

Der Seq.sumByZähler zählt für jeden Buchstaben und summiert alle Zahlen von 0bis zum Zähler für diesen Buchstaben. Also wenn 'a' = 4die sammlung 0, 1, 2, 3, 4welche summiert wäre ist 10. Dann Seq.sumByfasst alle diese Summen.

APL (Dyalog) , Punktzahl 15

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

Probieren Sie es online!

⍞ Texteingabe erhalten

∘.=⍨ Gleichheitstabelle mit sich selbst

+\ kumulative Summe über

1 1⍉ Diagonale (buchstäblich beide Dimensionen in Dimension eins reduzieren)

+/ Summe

Retina , Ergebnis 68 45 43

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

Probieren Sie es online! Link zeigt Punktzahl. Bearbeiten: Dank an @MartinEnder, der 20 Bytes durch Verwendung überlappender Übereinstimmungen anstelle von Lookaheads und weitere drei Bytes durch Gruppieren der Stufen gespart hat, sodass das sFlag nur einmal angewendet werden muss. Durch eine andere Berechnung der Dreieckszahl wurden zwei weitere Bytes gespart, sodass keine Sortierung erforderlich war.

PHP , 45 Bytes, Score 78

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

Probieren Sie es online!

PHP , 46 Bytes, Score 79 Bytes

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

Probieren Sie es online!

PHP , 56 Bytes, Score 92

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

Probieren Sie es online!

Perl 5 Score 91 83

Verwendet das -pFlag, das 2 addiert, weil p geteilt wird.

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

Oktave , 39 Bytes, Score 69

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

Probieren Sie es online!

Auch wenn es eine andere Antwort von Octave gibt, ist diese ganz meine eigene und eine andere Herangehensweise, und sie erzielt weniger Punkte :).

Der Ansatz läuft darauf hinaus, zuerst die Zählung (b) jedes einzelnen Zeichens zu ermitteln, was unter Verwendung der Histogrammfunktion erreicht wird. Dann berechnen wir für jedes Element die Summe von 1 bis b, die mit der Formel durchgeführt wird(b*(b+1))/2 . Dann werden die einzelnen Summen zum Endergebnis addiert.

Beim Testen scheinen Klammern in der Wertung sehr kostspielig zu sein, da viele benötigt werden. Ich habe von einer anfänglichen Punktzahl von etwa 88 durch Umordnen der Fragen eine Optimierung vorgenommen, um die Anzahl der Klammern zum Öffnen / Schließen zu minimieren. Daher nehmen wir jetzt die / 2 für die Endsumme vor und nicht für einzelne Fragen. Außerdem habe ich die Formel in geändert (b^2+b)/2Das erfordert weniger Klammern.

Common Lisp, Punktzahl 286 232 222

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

Hochwertige Punktzahl aufgrund der wortreichen Syntax der eingebauten Operatoren von Common Lisp.

Probieren Sie es online!

Der ungolfed Code:

(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, Punktzahl 54

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

Eingang

["abcdefg"]

danke an hftf