Viết hàm hoặc chương trình xác định chi phí của một chuỗi đã cho, trong đó

• chi phí của mỗi ký tự bằng số lần nhân vật đã xảy ra cho đến thời điểm này trong chuỗi và
• chi phí của chuỗi là tổng chi phí của các ký tự.

Thí dụ

Đối với đầu vào abaacab, chi phí được tính như sau:

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

Do đó, chi phí cho chuỗi abaacablà 14.

Quy tắc

• Điểm của bài nộp của bạn là chi phí cho mã của bạn như được xác định ở trên , đó là bài nộp của bạn chạy trên mã nguồn của chính nó, với điểm thấp hơn sẽ tốt hơn.
• Việc gửi của bạn phải hoạt động trên các chuỗi chứa các ký tự ASCII có thể in được, cộng với tất cả các ký tự được sử dụng trong quá trình gửi của bạn.
• Các nhân vật là trường hợp nhạy cảm, đó là avà Alà các nhân vật khác nhau.

Tủ thử

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

Bảng xếp hạng

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 , điểm 4

&=Rz

Hãy thử trực tuyến!

Giải trình

Hãy xem xét đầu vào 'ABBA'là một ví dụ.

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

Con trăn , điểm 49

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

Hãy thử trực tuyến!

Có một tab sau in.

Phân tích điểm:

• +27 cho 27 ký tự độc đáo
• +16 cho 8 ký tự kép: ()Camnou
• +6 cho 1 char ba lần: S

T-SQL, điểm 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 : Bỏ một vài biến, nén một chút. Xuống tới 16 @biểu tượng thay vì 22, tự nó làm giảm điểm của tôi bằng một con số khổng lồ 117 điểm!

Cuộc thi hay, tôi thích yêu cầu tối ưu hóa cho thứ gì đó ngoài tổng số nhân vật.

Đầu vào là thông qua trường varchar q trong bảng z có sẵn , theo quy tắc IO của chúng tôi . Cơ sở dữ liệu chứa bảng đầu vào này phải được đặt thành đối chiếu phân biệt chữ hoa chữ thường .

Định dạng:

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

Các từ khóa SQL không phân biệt chữ hoa chữ thường, vì vậy tôi đã sử dụng trường hợp hỗn hợp để giảm thiểu số lượng chữ cái trùng lặp ( aaAA tạo ra điểm số tốt hơn / thấp hơn aaaa ).

Vòng lặp chính so sánh độ dài trước và sau khi tước tất cả các phiên bản của ký tự đầu tiên. Sự khác biệt đó n * (n + 1) / 2 được thêm vào tổng số đang chạy.

Hàm SQL LEN()khó chịu bỏ qua dấu cách, vì vậy tôi phải thêm một ký tự điều khiển và trừ đi 1 ở cuối.

EDIT : Đã sửa lỗi tính toán điểm của riêng tôi 2 điểm (vấn đề với trích dẫn trích dẫn), giảm 1 bằng cách thay đổi vỏ của một R. Cũng làm việc trên một chiến lược hoàn toàn khác, tôi sẽ đăng đó là câu trả lời của riêng mình.

C (gcc) , điểm:  113  103 100   96  91

Cảm ơn @ugoren, @CalculatorFeline, @gastropner, @ l4m2 và @ JS1 vì những lời khuyên của họ.

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

Khởi tạo một mảng các số không, sau đó sử dụng các giá trị ASCII của các ký tự trong chuỗi làm chỉ mục cho mảng đó để theo dõi số lượng phiên bản của mỗi ký tự trong chuỗi.

Hãy thử trực tuyến!

JavaScript (ES6), điểm 81 78

Lưu được 3 điểm nhờ @Arnauld

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

Giải pháp đệ quy điểm-81 gốc của tôi:

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

Haskell , điểm 42

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

Hãy thử trực tuyến!

Ẩn danh \l->cho cùng một số điểm.

Thạch , điểm 6

;\ċ"⁸S

Hãy thử trực tuyến!

Võng mạc , điểm 34

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

Hãy thử trực tuyến!

Giải trình

s(O`.

Chúng tôi bắt đầu bằng cách sắp xếp tất cả các ký tự trong đầu vào để các ký tự giống hệt nhau được nhóm lại thành một lần chạy. Các s(kích hoạt chế độ singleline cho tất cả các giai đoạn (tức là làm cho .linefeeds trận đấu).

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

Mục tiêu là biến một chuỗi n ký tự thành các ký tự T _n ( số tam giác thứ n ) vì đó là điểm số của các lần xuất hiện của nhân vật này. Để làm như vậy, chúng tôi tìm thấy các trận đấu chồng chéo. Đặc biệt, với mỗi i trong [1, n] , chúng tôi sẽ đưa các ký tự i-1 vào trận đấu. Chúng tôi nhận được tất cả các trận đấu do cờ chồng chéo &. Điều đó cho chúng ta n * (n-1) / 2 = T _n-1 = T _n - n ký tự chỉ từ các trận đấu. Nhưng giai đoạn đối sánh sẽ tham gia những điều này với các nguồn cấp dữ liệu, đó là các nguồn cấp dữ liệu n cho nDiêm. Chỉ có một vấn đề. Sẽ không có nguồn cấp dữ liệu sau trận đấu cuối cùng, vì vậy tổng số ký tự trong đầu ra ít hơn một ký tự chúng tôi cần. Chúng tôi khắc phục điều này bằng cách khớp với phần đầu của đầu vào, điều này mang lại cho chúng tôi một nguồn cấp dữ liệu hàng đầu duy nhất nếu có ít nhất một kết quả khớp khác.

.

Cuối cùng, chúng ta chỉ đếm có bao nhiêu ký tự trong chuỗi.

Haskell, điểm 52 51

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

Có một tab giữa fvà _.

Hãy thử trực tuyến!

Giá trị của chuỗi rỗng là 0. Giá trị của chuỗi s, nơi alà char đầu tiên và bphần còn lại của chuỗi là 1 cộng với sự xuất hiện của atrong bcộng với một cuộc gọi đệ quy với b.

J , điểm 16

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

Hãy thử trực tuyến!

Giải trình

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.

Sử dụng 1#.thay +/@cho tổng đã lưu một vài điểm và &có thể được sử dụng thay vì @trong bối cảnh đơn điệu để lưu thêm một điểm. Việc lặp đi lặp lại 1khiến tôi mất thêm một điểm, nhưng tôi không thể thoát khỏi nó.

R , điểm: 67 83 95 128

-61 nhờ những lời khuyên hàng đầu từ Giuseppe

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

Hãy thử trực tuyến!

Chuỗi được phân chia bằng cách sử dụng utf8ToIntvà mỗi giá trị ascii được tính table. Kết quả được tính toán bằng cách thực hiện phép nhân ma trận %*%so với chính nó + 1 và cuối cùng là một nửa.

05AB1E , điểm 6

{γ€gLO

Hãy thử trực tuyến!

Pyth , điểm 6

1 byte nhờ isaacg.

+F/V._

Bộ thử nghiệm.

Làm thế nào nó hoạt động

+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 , điểm: 14 12 11

$+/@,2!1#.=

Hãy thử trực tuyến!

Thạch , điểm 7

ċЀQRFS

Giải trình:

   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)

Hãy thử trực tuyến!

C, 60 byte, điểm 108 95

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

Hãy thử trực tuyến!

Thông thường các nhà khai thác trước và sau tăng rất tốt cho môn đánh gôn, nhưng họ thực sự đau lòng với thử thách này!

EDIT: Bằng cách trừ các số âm thay vì thêm các số dương, tôi đã lưu cả đống điểm. Thay thế for()bằng while()loại bỏ một dấu chấm phẩy là tốt.

Perl 6 , điểm  61 56 53 46  44

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

Thử nó

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

Thử nó

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

Thử nó

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

Thử nó

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

Thử nó

C # (.NET Core) , điểm (ý tôi là, 209)

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

Hãy thử trực tuyến!

Điểm số bao gồm:

using System.Linq;

Thạch , điểm 5

ĠJ€ẎS

Hãy thử trực tuyến!

Cảm ơn Leaky Nun cho -2 (trước đây về câu trả lời của anh ấy )

PowerShell, điểm 64

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

(Điểm được dựa trên một dòng mới cho nguồn cấp dữ liệu, không phải là tiêu chuẩn của Windows nhưng hoạt động trong PS).

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

• Bộ đếm băm @{}
• Lặp lại qua các chữ cái; $argslà một mảng các tham số - trong trường hợp này, chuỗi đầu vào làm cho nó thành một mảng mục duy nhất; |%thực hiện một vòng lặp foreach trên các mục và sử dụng getE*phím tắt để khớp với GetEnumerator()phương thức chuỗi và gọi nó để biến chuỗi thành một luồng ký tự.
• |%lặp qua các ký tự và tăng mục nhập hashtable của chúng, thêm nó vào tổng số đang chạy. Biểu ($x+=1)mẫu với parens đều sửa đổi biến và xuất giá trị mới để sử dụng.
• Xuất tổng số chạy.

(Khi tôi lần đầu tiên viết nó, nó $c=@{};$t=0;[char[]]"$args"|%{$c[$_]++;$t+=$c[$_]};$tcó số điểm 128, và cảm giác như nó sẽ không xuống thấp hơn nhiều. Giảm một nửa xuống còn 64 là khá dễ chịu).

Julia 0,6 , 45 byte, Điểm: 77

Lấy cảm hứng từ giải pháp MATL:

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

Hãy thử trực tuyến!

Một giải pháp ít đẹp hơn, sử dụng số lượng:

Julia 0,6 , điểm: 82

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

Hãy thử trực tuyến!

Cảm ơn Guiseppe đã chỉ ra cách tính điểm và cho lời khuyên. Những ý kiến ​​đã giúp tôi tải.

Java 10, điểm: 149 138 137 134 133 130 103 102 101 100

( Byte: 72 73 74 75 64 62 61 ) Byte tăng, nhưng điểm số giảm. :CƯỜI MỞ MIỆNG

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

-28 điểm (và -11 byte) nhờ @Nevay .
-1 điểm (và -2 byte) nhờ @ OlivierGrégoire .
-1 điểm (và -1 byte) bằng cách chuyển đổi Java 8 sang Java 10.

Giải trình:

Hãy thử nó ở đây.

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 #, điểm 120 118

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

-2 cảm ơn Kevin Cruijssen !

Hãy thử trực tuyến!

Có một stringđầu vào. Seq.countByghép từng ký tự riêng biệt với số đếm của nó ( idlà hàm nhận dạng) để bạn kết thúc với một bộ sưu tập như 'a' = 4, 'b' = 2v.v.

Số Seq.sumByđếm cho mỗi chữ cái và tính tổng tất cả các số từ 0đến số đếm cho chữ cái đó. Vì vậy, nếu 'a' = 4bộ sưu tập sẽ được 0, 1, 2, 3, 4tổng hợp với nhau là 10. Sau đó Seq.sumBytổng hợp tất cả những tổng số đó.

APL (Dyalog) , điểm 15

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

Hãy thử trực tuyến!

⍞ nhận văn bản nhập

∘.=⍨ bảng bình đẳng với bản thân

+\ tổng tích lũy trên

1 1⍉ đường chéo (lit. thu gọn cả hai chiều thành một chiều)

+/ tổng

Võng mạc , điểm 68 45 43

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

Hãy thử trực tuyến! Liên kết cho thấy điểm số. Chỉnh sửa: Cảm ơn @MartinEnder, người đã lưu 20 byte bằng cách sử dụng các kết quả trùng lặp thay vì tìm kiếm và thêm ba byte bằng cách nhóm các giai đoạn để scờ chỉ cần được áp dụng một lần. Đã lưu thêm hai byte bằng cách tính số tam giác khác nhau, tránh sự cần thiết phải sắp xếp.

PHP , 45 byte, Điểm 78

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

Hãy thử trực tuyến!

PHP , 46 byte, Điểm 79 byte

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

Hãy thử trực tuyến!

PHP , 56 byte, Điểm 92

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

Hãy thử trực tuyến!

5 điểm Perl 91 83

Sử dụng -pcờ có thêm 2 vì p được chia.

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

Octave , 39 byte, Điểm 69

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

Hãy thử trực tuyến!

Mặc dù có một câu trả lời khác của Octave, nhưng câu trả lời này hoàn toàn là của riêng tôi và một cách tiếp cận khác, cộng với nó ít điểm hơn :).

Cách tiếp cận tập trung vào lần đầu tiên tìm số đếm (b) của từng ký tự duy nhất, đạt được bằng cách sử dụng chức năng biểu đồ. Sau đó, với mỗi phần tử, chúng tôi tính tổng từ 1 đến b được thực hiện bằng công thức (b*(b+1))/2. Sau đó, các khoản tiền riêng lẻ được tổng hợp vào điểm số cuối cùng.

Trong thử nghiệm, dường như các dấu ngoặc thực sự tốn kém trong việc tính điểm vì cần nhiều. Tôi đã tối ưu hóa từ điểm số ban đầu khoảng 88 bằng cách sắp xếp lại các câu hỏi để giảm thiểu số lượng dấu ngoặc mở / đóng - do đó giờ đây chúng tôi thực hiện / 2 trên tổng số cuối cùng thay vì riêng lẻ và tôi cũng đã sửa đổi công thức thành (b^2+b)/2vì điều đó đòi hỏi ít dấu ngoặc hơn.

Lisp thường gặp, điểm số 286 232 222

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

Điểm có giá trị cao do cú pháp dài dòng của các toán tử dựng sẵn của Common Lisp.

Hãy thử trực tuyến!

Mã không mã hóa:

(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

Toán, điểm 54

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

đầu vào

["abcdefg"]

cảm ơn