Escriba una función o programa que determine el costo de una cadena dada, donde

• el costo de cada carácter es igual al número de veces que el personaje ha ocurrido hasta este punto en la cadena, y
• El costo de la cadena es la suma de los costos de sus personajes.

Ejemplo

Para una entrada de abaacab, el costo se calcula de la siguiente manera:

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

Por lo tanto, el costo de la cadena abaacabes 14.

Reglas

• La puntuación de su presentación es el costo de su código como se definió anteriormente , que es su presentación funcionar en su propio código fuente, con una menor puntuación de estar mejor.
• Su envío debe funcionar en cadenas que contengan caracteres ASCII imprimibles, más todos los caracteres utilizados en su envío.
• Los caracteres distinguen entre mayúsculas y minúsculas, es decir, ay Ason caracteres diferentes.

Casos de prueba

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

Tabla de clasificación

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

&=Rz

Pruébalo en línea!

Explicación

Considere la entrada 'ABBA'como un ejemplo.

&=   % 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 , puntaje 49

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

Pruébalo en línea!

Hay una pestaña después in.

Desglose del puntaje:

• +27 por 27 caracteres únicos
• +16 por 8 caracteres dobles: ()Camnou
• +6 por 1 carbón triplicado: S

T-SQL, puntuación 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

EDITAR : Se descartaron un par de variables, se compactaron un poco. ¡Hasta 16 @símbolos en lugar de 22, eso por sí solo reduce mi puntaje en la friolera de 117 puntos!

Bonito concurso, me gusta el requisito de optimizar para algo además del recuento total de personajes.

La entrada es a través del campo varchar q en la tabla z preexistente , según nuestras reglas de IO . La base de datos que contiene esta tabla de entrada debe establecerse en una intercalación entre mayúsculas y minúsculas .

Formateado:

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

Las palabras clave SQL no distinguen entre mayúsculas y minúsculas, por lo que utilicé mayúsculas y minúsculas para minimizar el recuento de letras duplicadas ( aaAA genera una puntuación mejor / menor que aaaa ).

El bucle principal compara la longitud antes y después de eliminar todas las instancias del primer carácter. Esa diferencia n * (n + 1) / 2 se agrega a un total acumulado.

La LEN()función SQL ignora molestamente los espacios finales, por lo que tuve que agregar un carácter de control y restar 1 al final.

EDITAR : Se corrigió un error de cálculo de mi propia puntuación en 2 puntos (problema con las citas entre comillas), reducido en 1 al cambiar la carcasa de uno R. También trabajando en una estrategia completamente diferente, lo publicaré como su propia respuesta.

C (gcc) , puntuación:  113  103 100   96  91

Gracias a @ugoren, @CalculatorFeline, @gastropner, @ l4m2 y @ JS1 por sus consejos.

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

Inicializa una matriz de ceros, luego usa los valores ASCII de los caracteres en la cadena como índices de esa matriz para realizar un seguimiento del número de instancias de cada carácter en la cadena.

Pruébalo en línea!

JavaScript (ES6), puntaje 81 78

Ahorró 3 puntos gracias a @Arnauld

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

Mi solución recursiva original score-81:

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

Haskell , puntaje 42

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

Pruébalo en línea!

Anonimizar \l->da la misma puntuación.

Jalea , puntaje 6

;\ċ"⁸S

Pruébalo en línea!

Retina , puntaje 34

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

Pruébalo en línea!

Explicación

s(O`.

Comenzamos clasificando todos los caracteres en la entrada para que los caracteres idénticos se agrupen en una sola ejecución. La s(activa el modo SingleLine para todas las etapas (es decir, hace .avances de línea de partido).

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

El objetivo es convertir a una racha de n caracteres en T _n caracteres (el n ésimo número triangular) porque esa es la puntuación de las apariciones de este personaje. Para hacerlo, encontramos coincidencias superpuestas. En particular, para cada i en [1, n] , vamos a incluir caracteres i-1 en la coincidencia. Obtenemos todos esos partidos debido a la bandera superpuesta &. Eso nos da n * (n-1) / 2 = T _n-1 = T _n - n caracteres solo de las coincidencias. Pero la etapa de coincidencia los unirá con saltos de línea, que son n saltos de línea para npartidos. Solo hay un problema. No habrá un salto de línea después de la última coincidencia, por lo que el número total de caracteres en la salida es uno menos de lo que necesitamos. Arreglamos esto haciendo coincidir también el comienzo de la entrada, lo que nos da un salto de línea principal si hay al menos otra coincidencia.

.

Finalmente, solo contamos cuántos caracteres hay en la cadena.

Haskell, puntaje 52 51

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

Hay una pestaña entre fy _.

Pruébalo en línea!

El valor de la cadena vacía es 0. El valor de la cadena s, donde aes el primer carácter y bel resto de la cadena es 1 más las apariciones de ain bmás una llamada recursiva con b.

J , puntaje 16

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

Pruébalo en línea!

Explicación

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.

Usar en 1#.lugar de +/@para la suma ahorró algunos puntos, y &podría usarse en lugar de @en un contexto monádico para guardar uno más. La repetición 1me cuesta un punto extra, pero no he podido deshacerme de él.

R , puntuación: 67 83 95 128

-61 gracias a los mejores consejos de Giuseppe

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

Pruébalo en línea!

La cadena se divide usando utf8ToInty se cuenta cada valor ASCII table. El resultado se calcula haciendo una multiplicación de matriz %*%sobre eso en sí mismo + 1 y finalmente se reduce a la mitad.

05AB1E , puntaje 6

{γ€gLO

Pruébalo en línea!

Pyth , puntaje 6

1 byte gracias a isaacg.

+F/V._

Banco de pruebas.

Cómo funciona

+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 , puntuación: 14 12 11

$+/@,2!1#.=

Pruébalo en línea!

Jalea , puntaje de 7

ċЀQRFS

Explicación:

   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)

Pruébalo en línea!

C, 60 bytes, puntaje 108 95

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

Pruébalo en línea!

Por lo general, los operadores antes y después del incremento son excelentes para el golf de código, ¡pero realmente duelen en este desafío!

EDITAR: Al restar los recuentos negativos en lugar de sumar los positivos, ahorré un montón de puntaje. Reemplazar for()con while()eliminado un punto y coma también.

Perl 6 , puntaje  61 56 53 46  44

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

Intentalo

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

Intentalo

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

Intentalo

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

Intentalo

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

Intentalo

C # (.NET Core) , puntaje ∞ (quiero decir, 209)

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

Pruébalo en línea!

La puntuación incluye lo siguiente:

using System.Linq;

Jalea , puntaje 5

ĠJ€ẎS

Pruébalo en línea!

Gracias a Leaky Nun por -2 (anteriormente en su respuesta )

PowerShell, puntaje 64

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

(La puntuación se basa en una nueva línea de salto de línea, que no es estándar de Windows pero funciona en PS).

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

• Contador hashtable @{}
• Iterar a través de las letras; $argses una matriz de parámetros; en este caso, la cadena de entrada la convierte en una matriz de un solo elemento; |%realiza un bucle foreach sobre los elementos y utiliza el getE*acceso directo para hacer coincidir el GetEnumerator()método de cadena y llamarlo para convertir la cadena en una secuencia de caracteres.
• |%recorrer los caracteres e incrementar su entrada de tabla hash, agregarlo a un total acumulado. El ($x+=1)formulario con parens modifica la variable y genera el nuevo valor para su uso.
• Salida del total acumulado.

(Cuando lo escribí por primera vez, tenía $c=@{};$t=0;[char[]]"$args"|%{$c[$_]++;$t+=$c[$_]};$tun puntaje de 128, y sentí que no iría mucho más bajo. Reducirlo a 64 es bastante agradable).

Julia 0.6 , 45 bytes, Puntuación: 77

Inspirado en la solución MATL:

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

Pruébalo en línea!

Una solución menos bonita, usando recuentos:

Julia 0.6 , puntuación: 82

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

Pruébalo en línea!

Gracias a Guiseppe por señalar la puntuación y por los consejos. Estos comentarios me ayudaron mucho.

Java 10, puntuación: 149 138 137 134 133 130 103 102 101 100

( Bytes: 72 73 74 75 64 62 61 ) Los bytes suben, pero el puntaje baja. :RE

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

-28 puntaje (y -11 bytes) gracias a @Nevay .
-1 puntuación (y -2 bytes) gracias a @ OlivierGrégoire .
-1 puntaje (y -1 byte) al convertir Java 8 a Java 10.

Explicación:

Pruébalo aquí.

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 #, puntaje 120 118

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

-2 gracias a Kevin Cruijssen !

Pruébalo en línea!

Toma a stringcomo entrada. Seq.countByempareja cada carácter distinto con su recuento ( ides la función de identidad) para que termines con una colección como 'a' = 4, 'b' = 2etc.

La Seq.sumBytoma del recuento para cada letra y resume todos los números de 0la cuenta para esa letra. Entonces, si 'a' = 4la colección sería la 0, 1, 2, 3, 4que sumada es 10. Luego Seq.sumBysuma todos esos totales.

APL (Dyalog) , puntaje 15

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

Pruébalo en línea!

⍞ obtener entrada de texto

∘.=⍨ tabla de igualdad con uno mismo

+\ suma acumulativa a través de

1 1⍉ diagonal (iluminado. contraiga ambas dimensiones en la dimensión uno)

+/ suma

Retina , puntaje 68 45 43

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

Pruébalo en línea! El enlace muestra la puntuación. Editar: Gracias a @MartinEnder que ahorró 20 bytes al usar coincidencias superpuestas en lugar de lookaheads y otros tres bytes al agrupar las etapas para que la sbandera solo se aplique una vez. Ahorró otros dos bytes calculando el número triangular de manera diferente, evitando la necesidad de una clasificación.

PHP , 45 bytes, puntaje 78

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

Pruébalo en línea!

PHP , 46 bytes, puntuación 79 bytes

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

Pruébalo en línea!

PHP , 56 bytes, puntaje 92

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

Pruébalo en línea!

Perl 5 puntaje 91 83

Utiliza la -pbandera que agrega 2 debido a la p en la división.

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

Octava , 39 bytes, puntaje 69

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

Pruébalo en línea!

Si bien hay otra respuesta de Octave, esta es completamente mía y tiene un enfoque diferente, además, obtiene menos puntajes :).

El enfoque se reduce a encontrar primero el recuento (b) de cada carácter único, que se logra utilizando la función de histograma. Luego, para cada elemento, calculamos la suma de 1 a b que se realiza utilizando la fórmula (b*(b+1))/2. Luego, las sumas individuales se suman en la puntuación final.

En las pruebas, parece que los corchetes son realmente costosos en la calificación porque se necesitan muchos. He optimizado desde un puntaje inicial de aproximadamente 88 al reorganizar las preguntas para minimizar el número de paréntesis de apertura / cierre; por lo tanto, ahora hacemos el / 2 en el total final en lugar de individualmente, y también he modificado la fórmula para (b^2+b)/2ya que requiere menos paréntesis.

Common Lisp, puntaje 286 232 222

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

Puntaje de alto valor debido a la sintaxis verbal de los operadores integrados de Common Lisp.

Pruébalo en línea!

El código sin golf:

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

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

entrada

["abcdefg"]

gracias a hftf