เขียนฟังก์ชั่นหรือโปรแกรมที่กำหนดค่าใช้จ่ายของสตริงที่กำหนดที่ไหน

• ค่าใช้จ่ายของตัวละครแต่ละตัวเท่ากับจำนวนครั้งที่ตัวละครเกิดขึ้นจนถึงจุดนี้ในสตริงและ
• ต้นทุนของสตริงคือผลรวมของต้นทุนของอักขระ

ตัวอย่าง

สำหรับอินพุตของ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เป็นตัวละครที่แตกต่างกัน

Testcases

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

Python 49 คะแนน

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

ลองออนไลน์!

inมีแท็บหลังจากที่เป็น

รายละเอียดคะแนน:

• +27 สำหรับ 27 ตัวอักษรที่ไม่ซ้ำกัน
• +16 สำหรับ 8 double chars: ()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

แก้ไข : วางตัวแปรสองตัวลงบีบอัดเล็กน้อย ลงไปที่ 16 @สัญลักษณ์แทน 22 ที่ด้วยตัวเองลดคะแนนของฉันโดยมหันต์ 117 คะแนน!

การประกวดที่ดีฉันชอบความต้องการที่จะเพิ่มประสิทธิภาพสำหรับบางสิ่งบางอย่างนอกเหนือจากจำนวนตัวละครทั้งหมด

การป้อนข้อมูลผ่านทาง varchar ฟิลด์Qในตารางที่มีอยู่ก่อนZ , ต่อกฎ IO ของเรา ฐานข้อมูลที่มีตารางอินพุตนี้ต้องถูกตั้งค่าเป็นการเปรียบเทียบขนาดเล็ก

จัดรูปแบบ:

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 จะถูกเพิ่มเข้าไปในผลรวมสะสม

LEN()ฟังก์ชั่นSQL ไม่สนใจช่องว่างต่อท้ายดังนั้นฉันจึงต้องผนวกอักขระควบคุมและลบ 1 ในตอนท้าย

แก้ไข : แก้ไขผิดของคะแนนของตัวเองโดย 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

คะแนน recursive 81 คะแนนของฉันเดิม:

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

Haskellคะแนน 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 สำหรับทุกขั้นตอน (เช่นทำให้.linefeeds การแข่งขัน)

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

มีเป้าหมายที่จะเปิดการทำงานของnตัวอักษรลงในT _nตัวอักษร (คนn TH จำนวนสามเหลี่ยม) เนื่องจากว่าเป็นคะแนนของการเกิดขึ้นของตัวละครนี้ ในการทำเช่นนั้นเราพบการแข่งขันที่ทับซ้อนกัน โดยเฉพาะอย่างยิ่งสำหรับแต่ละฉันใน[1, n]เราจะรวมอักขระi-1ไว้ในการแข่งขัน &เราได้รับการแข่งขันทุกคนเนื่องจากธงทับซ้อนกัน นั่นทำให้เราn * (n-1) / 2 = T _n-1 = T _n - nตัวละครจากการแข่งขัน แต่ระยะการแข่งขันจะเข้าร่วมเหล่านี้ด้วย linefeeds ซึ่งเป็นn linefeeds สำหรับnไม้ขีด มีปัญหาเดียวเท่านั้น จะไม่มีการป้อนบรรทัดหลังจากการจับคู่ครั้งล่าสุดดังนั้นจำนวนอักขระโดยรวมในเอาต์พุตจะน้อยกว่าที่เราต้องการ เราแก้ไขปัญหานี้ด้วยการจับคู่จุดเริ่มต้นของอินพุตซึ่งจะให้บรรทัดป้อนบรรทัดเดียวแก่เราหากมีคู่อื่นอย่างน้อยหนึ่งรายการ

.

ในที่สุดเราก็นับจำนวนตัวอักษรที่มีในสตริง

Haskell คะแนน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#.แทนการ+/@หาผลรวมจะบันทึกไม่กี่คะแนนและ&สามารถใช้แทนการใช้@ในบริบทของ monadic เพื่อบันทึกอีกหนึ่ง 1ค่าใช้จ่ายซ้ำฉันหนึ่งจุดพิเศษ แต่ฉันไม่สามารถกำจัดมันได้

R , คะแนน: 67 83 95 128

-61 ขอบคุณเคล็ดลับยอดนิยมจาก Giuseppe

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;}

ลองออนไลน์!

โดยปกติผู้ประกอบการก่อนและหลังเพิ่มขึ้นนั้นยอดเยี่ยมสำหรับการตีกอล์ฟ

แก้ไข: ด้วยการลบจำนวนลบแทนการเพิ่มค่าบวกฉันบันทึกคะแนนเต็มทั้งหมด การแทนที่for()ด้วยwhile()เซมิโคลอนจะถูกกำจัดเช่นกัน

Perl 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

ลองออนไลน์!

ขอบคุณLeaky Nunสำหรับ -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

• เคาน์เตอร์ Hashtable @{}
• วนซ้ำตามตัวอักษร; $argsคืออาร์เรย์ของพารามิเตอร์ - ในกรณีนี้สตริงอินพุตทำให้เป็นอาร์เรย์ไอเท็มเดี่ยว |%ทำ foreach วนรอบไอเท็มและใช้getE*ช็อตคัตเพื่อจับคู่GetEnumerator()เมธอดสตริงและเรียกมันเพื่อเปลี่ยนสตริงให้เป็นสตรีมตัวอักษร
• |%วนรอบตัวอักขระและเพิ่มรายการ hashtable ของพวกเขาเพิ่มไปยังผลรวมที่กำลังทำงานอยู่ ($x+=1)รูปแบบที่มี parens ทั้งปรับเปลี่ยนตัวแปรและผลค่าใหม่สำหรับการใช้งาน
• เอาท์พุทผลรวมการทำงาน

(ตอนที่ฉันเขียนครั้งแรกมัน$c=@{};$t=0;[char[]]"$args"|%{$c[$_]++;$t+=$c[$_]};$tมีคะแนน 128 และรู้สึกว่ามันจะไม่ลดลงไปมากการลดลงถึง 64 เป็นที่น่าพอใจ)

Julia 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 bytes) ขอบคุณที่@Nevay
-1 คะแนน (และ -2 bytes) ต้องขอบคุณ@ 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 ขอบคุณKevin Cruijssen !

ลองออนไลน์!

ใช้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

ลองออนไลน์!

ในขณะที่มีคำตอบ Octave อีกคำตอบนี้เป็นของฉันเองและเป็นแนวทางที่แตกต่างกันโดยสิ้นเชิง แต่ก็ให้คะแนนน้อยกว่า :)

วิธีการนี้จะเริ่มต้นในการค้นหาจำนวน (b) ของอักขระที่ไม่ซ้ำกันแต่ละรายการซึ่งทำได้โดยใช้ฟังก์ชันฮิสโตแกรม แล้วสำหรับแต่ละองค์ประกอบที่เราคำนวณผลรวมของ 1 (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

Mathematica คะแนน 54

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

อินพุต

[ "abcdefg"]

ขอบคุณ hftf