Tulis fungsi atau program yang menentukan biaya string yang diberikan, di mana

• biaya masing-masing karakter sama dengan jumlah berapa kali karakter telah terjadi hingga saat ini dalam string, dan
• biaya string adalah jumlah dari biaya karakternya.

Contoh

Untuk input abaacab, biaya dihitung sebagai berikut:

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

Jadi biaya untuk string abaacabadalah 14.

Aturan

• Skor kiriman Anda adalah biaya kode Anda sebagaimana didefinisikan di atas , yaitu kiriman Anda dijalankan dengan kode sumbernya sendiri, dengan skor yang lebih rendah lebih baik.
• Kiriman Anda harus bekerja pada string yang berisi karakter ASCII yang dapat dicetak, ditambah semua karakter yang digunakan dalam kiriman Anda.
• Karakter bersifat case-sensitive, yaitu adan Amerupakan karakter yang berbeda.

Testcases

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

Papan peringkat

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

&=Rz

Cobalah online!

Penjelasan

Pertimbangkan input 'ABBA'sebagai contoh.

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

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

Cobalah online!

Setelah itu ada tab in.

Rincian skor:

• +27 untuk 27 karakter unik
• +16 untuk 8 karakter ganda: ()Camnou
• +6 untuk 1 char tiga kali lipat: S

T-SQL, skor 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 : Menjatuhkan beberapa variabel, sedikit dipadatkan. Turun ke 16 @simbol, bukan 22, yang dengan sendirinya mengurangi skor saya dengan 117 poin kekalahan!

Kontes yang bagus, saya suka persyaratan untuk mengoptimalkan selain jumlah total karakter.

Input melalui bidang varchar q di tabel yang sudah ada sebelumnya z , sesuai aturan IO kami . Database yang berisi tabel input ini harus disetel ke susunan case-sensitive .

Diformat:

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

Kata kunci SQL tidak peka huruf besar-kecil, jadi saya menggunakan huruf besar-kecil untuk meminimalkan jumlah surat duplikat ( aaAA menghasilkan skor yang lebih baik / lebih rendah dari aaaa ).

Loop utama membandingkan panjang sebelum dan sesudah melepas semua instance dari karakter pertama. Perbedaan itu n * (n + 1) / 2 ditambahkan ke total berjalan.

Fungsi SQL secara LEN()mengganggu mengabaikan spasi tambahan, jadi saya harus menambahkan karakter kontrol dan mengurangi 1 di akhir.

EDIT : Memperbaiki salah perhitungan skor saya sendiri dengan 2 poin (masalah dengan kutipan penawaran), dikurangi 1 dengan mengubah satu casing R. Juga mengerjakan strategi yang sama sekali berbeda, saya akan memposting itu sebagai jawabannya sendiri.

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

Terima kasih kepada @ugoren, @CalculatorFeline, @gastropner, @ l4m2, dan @ JS1 untuk tips mereka.

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

Menginisialisasi array nol, kemudian menggunakan nilai ASCII dari karakter dalam string sebagai indeks untuk array itu untuk melacak jumlah instance dari setiap karakter dalam string.

Cobalah online!

JavaScript (ES6), skor 81 78

Menyimpan 3 poin berkat @Arnauld

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

Solusi rekursif skor-81 asli saya:

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

Haskell , skor 42

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

Cobalah online!

Anonimisasi \l->memberikan skor yang sama.

Jelly , skor 6

;\ċ"⁸S

Cobalah online!

Retina , skor 34

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

Cobalah online!

Penjelasan

s(O`.

Kita mulai dengan menyortir semua karakter dalam input sehingga karakter yang identik dikelompokkan bersama menjadi satu run. The s(mengaktifkan modus singleline untuk semua tahap (yaitu membuat .linefeeds pertandingan).

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

Tujuannya adalah untuk mengubah serangkaian n karakter menjadi karakter T _n ( angka segitiga ke- n ) karena itulah skor kemunculan karakter ini. Untuk melakukannya, kami menemukan kecocokan yang tumpang tindih. Khususnya, untuk setiap i dalam [1, n] , kita akan memasukkan karakter i-1 dalam pertandingan. Kami mendapatkan semua pertandingan itu karena bendera yang tumpang tindih &. Itu memberi kita n * (n-1) / 2 = T _n-1 = T _n - n karakter hanya dari pertandingan. Namun tahap pertandingan akan bergabung ini dengan linefeeds, yang n linefeeds untuk ncocok. Hanya ada satu masalah. Tidak akan ada umpan baris setelah pertandingan terakhir, jadi jumlah keseluruhan karakter dalam output adalah satu kurang dari yang kita butuhkan. Kami memperbaikinya dengan mencocokkan awal input, yang memberi kami satu umpan baris terkemuka jika setidaknya ada satu kecocokan lainnya.

.

Akhirnya, kami hanya menghitung berapa banyak karakter yang ada di string.

Haskell, skor 52 51

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

Ada tab di antara fdan _.

Cobalah online!

Nilai string kosong adalah 0. Nilai string s, di mana akarakter pertama dan bsisa string adalah 1 ditambah kemunculan ain bplus panggilan rekursif dengan b.

J , skor 16

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

Cobalah online!

Penjelasan

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.

Menggunakan 1#.alih-alih +/@untuk jumlah menyimpan beberapa poin, dan &dapat digunakan sebagai pengganti @dalam konteks monadik untuk menyimpan satu lagi. Pengulangan itu membuat 1saya kehilangan satu poin ekstra, tetapi saya belum bisa menyingkirkannya.

R , skor: 67 83 95 128

-61 Berkat tips top dari Giuseppe

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

Cobalah online!

String dipisah menggunakan utf8ToIntdan setiap nilai ascii dihitung table. Hasilnya dihitung menggunakan melakukan perkalian matriks %*%lebih dari itu sendiri + 1 dan akhirnya setengah.

05AB1E , skor 6

{γ€gLO

Cobalah online!

Pyth , skor 6

1 byte berkat isaacg.

+F/V._

Suite uji.

Bagaimana itu bekerja

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

$+/@,2!1#.=

Cobalah online!

Jelly , skor 7

ċЀQRFS

Penjelasan:

   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)

Cobalah online!

C, 60 byte, skor 108 95

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

Cobalah online!

Biasanya operator sebelum dan sesudah kenaikan sangat bagus untuk kode golf, tetapi mereka benar-benar terluka pada tantangan ini!

EDIT: Dengan mengurangi jumlah negatif daripada menambahkan yang positif, saya menyimpan banyak skor. Mengganti for()dengan while()menghilangkan titik koma juga.

Perl 6 , skor  61 56 53 46  44

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

Cobalah

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

Cobalah

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

Cobalah

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

Cobalah

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

Cobalah

C # (.NET Core) , skor ∞ (maksud saya, 209)

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

Cobalah online!

Skor tersebut meliputi:

using System.Linq;

Jelly , skor 5

ĠJ€ẎS

Cobalah online!

Terima kasih kepada Leaky Nun untuk -2 (sebelumnya pada jawabannya )

PowerShell, skor 64

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

(Skor didasarkan pada baris baris baru, yang bukan standar Windows tetapi bekerja di PS).

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

• Counter Hashtable @{}
• Iterate melalui surat-surat; $argsadalah array parameter - dalam hal ini string input menjadikannya array item tunggal; |%melakukan foreach loop pada item, dan menggunakan jalan getE*pintas untuk mencocokkan GetEnumerator()metode string dan memanggilnya untuk mengubah string menjadi aliran karakter.
• |%loop di atas karakter dan meningkatkan entri hashtable mereka, tambahkan ke total berjalan. The ($x+=1)form dengan parens baik memodifikasi variabel dan output nilai baru untuk digunakan.
• Keluarkan total yang berjalan.

(Ketika saya pertama kali menulisnya, itu $c=@{};$t=0;[char[]]"$args"|%{$c[$_]++;$t+=$c[$_]};$tdengan skor 128, dan merasa seperti itu tidak akan jauh lebih rendah. Membagi dua menjadi 64 cukup menyenangkan).

Julia 0.6 , 45 bytes, Nilai: 77

Terinspirasi oleh solusi MATL:

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

Cobalah online!

Solusi yang kurang cantik, menggunakan hitungan:

Julia 0.6 , skor: 82

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

Cobalah online!

Terima kasih kepada Guiseppe yang telah menunjukkan skor dan tipnya. Komentar-komentar ini banyak membantu saya.

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

( Bytes: 72 73 74 75 64 62 61 ) Bytes naik, tetapi skor turun. : D

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

Skor -28 (dan -11 byte) berkat @Nevay .
Skor -1 (dan -2 byte) berkat @ OlivierGrégoire .
Skor -1 (dan -1 byte) dengan mengonversi Java 8 ke Java 10.

Penjelasan:

Coba di sini.

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

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

-2 Terima kasih kepada Kevin Cruijssen !

Cobalah online!

Mengambil stringsebagai input. Seq.countBypasangkan setiap karakter berbeda dengan hitungannya ( idadalah fungsi identitas) sehingga Anda berakhir dengan koleksi seperti 'a' = 4, 'b' = 2dll.

The Seq.sumBymengambil hitungan untuk setiap huruf dan merangkum semua angka dari 0hitungan untuk surat itu. Jadi jika 'a' = 4koleksi yang akan 0, 1, 2, 3, 4dirangkum adalah 10. Lalu Seq.sumByjumlahkan semua total itu.

APL (Dyalog) , skor 15

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

Cobalah online!

⍞ dapatkan input teks

∘.=⍨ meja kesetaraan dengan diri sendiri

+\ jumlah kumulatif di seluruh

1 1⍉ diagonal (sedikit jatuhkan kedua dimensi ke dimensi satu)

+/ jumlah

Retina , skor 68 45 43

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

Cobalah online! Tautan menunjukkan skor. Sunting: Terima kasih kepada @MartinEnder yang menyimpan 20 byte dengan menggunakan pertandingan yang tumpang tindih alih-alih mencari yang lain dan tiga byte selanjutnya dengan mengelompokkan tahapan sehingga sbendera hanya perlu diterapkan sekali. Menyimpan dua byte lebih lanjut dengan menghitung angka segitiga secara berbeda, menghindari perlunya pengurutan.

PHP , 45 byte, Skor 78

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

Cobalah online!

PHP , 46 byte, Skor 79 Bytes

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

Cobalah online!

PHP , 56 byte, Skor 92

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

Cobalah online!

Perl 5 skor 91 83

Menggunakan -pbendera yang menambahkan 2 karena p di split.

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

Oktaf , 39 byte, Skor 69

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

Cobalah online!

Walaupun ada satu lagi jawaban Octave, yang ini sepenuhnya milik saya dan pendekatan yang berbeda, ditambah skornya lebih sedikit :).

Pendekatan ini bermula untuk menemukan jumlah (b) pertama dari setiap karakter unik, yang dicapai dengan menggunakan fungsi histogram. Kemudian untuk setiap elemen kita menghitung jumlah 1 hingga b yang dilakukan menggunakan rumus (b*(b+1))/2. Kemudian jumlah individu semua dijumlahkan ke dalam skor akhir.

Dalam pengujian tampaknya kurung benar-benar mahal dalam penilaian karena banyak yang dibutuhkan. Saya telah dioptimalkan turun dari skor awal sekitar 88 dengan mengatur ulang pertanyaan untuk meminimalkan jumlah kurung buka / tutup - maka kita sekarang melakukan / 2 pada total akhir daripada secara individual, dan juga saya telah memodifikasi rumus untuk (b^2+b)/2karena itu membutuhkan kurung lebih sedikit.

Common Lisp, skor 286 232 222

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

Skor bernilai tinggi karena sintaksis bertele-tele dari operator Common Lisp.

Cobalah online!

Kode yang tidak dipisahkan:

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

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

memasukkan

["abcdefg"]

terima kasih kepada hftf