งาน

สร้างเครื่องคิดเลขที่ใช้สตริงจากไฟล์ stdin หรืออะไรก็ตามและเพิ่มค่าทั้งหมดของตัวอักษร

ตัวอย่าง

Input
Hello World!

Output
1085

กฎระเบียบ

เครื่องคิดเลขต้องยอมรับการเข้ารหัส ASCII เพียงอย่างเดียว

รหัสที่สั้นที่สุดชนะ

หมายเหตุ

เกี่ยวกับความคิดเห็นของ m.buettner ฉันต้องพูดว่าฉันไม่ได้คิดถึงส่วนของมัลติไบต์
ดังนั้นฉันจึงทิ้งมันไว้เป็นสิ่งโบนัสเช่นกัน
เครื่องคิดเลขควรทำงานตามที่เขียนไว้ดังนั้นไม่จำเป็นต้องแก้ไขก่อนที่จะรวบรวมหรือตีความ

โบนัส

ขอบคุณSyntheticaนี่คือโบนัสอีกหนึ่งอย่าง

โปรแกรมที่มีเอาต์พุตต่ำสุดเมื่อคุณใช้รหัสในขณะที่อินพุทชนะจะได้รับดาว

ฉันไม่ต้องการแก้ไขโดยสมบูรณ์

หากคุณเขียนเพิ่มเติมเพื่อส่งออกค่า (ขวา) ใน UTF-8 คุณจะได้ดาว

รหัสที่ทำงานได้เร็วที่สุดบนแล็ปท็อปของฉัน (Lenovo Yoga 13 Intel Core i5 3317U 1.7Ghz, 8GB RAM, 128GB SSD, Intel HD 4000, Windows 8) ได้รับดาว

รหัสเว็บจะทำงานครั้งแรกภายใต้ IE11 ด้วยจักระแล้วใน FireFox 29.0.1 พร้อมSpiderMonkey

รหัส Linux จะทำงานบน Raspberry Pi พร้อม Raspbian

teststring คือ:

q/%8hnp>T%y?'wNb\},9krW &D9']K$n;l.3O+tE*$*._B^s!@k\&Cl:EO1zo8sVxEvBxCock_I+2o6 yeX*0Xq:tS^f)!!7=!tk9K<6#/E`ks(D'$z$\6Ac+MT&[s[]_Y(`<g%"w%cW'`c&q)D$0#C$QGf>?A$iawvc,}`9!('`c&q)D$0#C$QGf>?A$iawvc,}`9!(

ขอให้สนุกกับการเขียนโค้ด :)

Bonusscoring

ฉันวางแผนที่จะทำคะแนนในวันเสาร์นี้ดังนั้น 07.06.14 คำตอบทั้งหมดหลังจากวันนั้นจะไม่ได้รับคะแนนโบนัส)

คุณสามารถดาวน์โหลดรหัสที่ฉันจะใช้สำหรับการทดสอบได้ที่นี่เพื่อแยกและปรับปรุง :)

อัปเดตเล็กน้อยเพราะโบนัสแล็ปท็อปของฉันเสียไปบางส่วนดังนั้นฉันจะทำมันในสุดสัปดาห์หน้าฉันขอโทษจริง ๆ :(

GolfScript 4 ตัวอักษร

{+}*

เพียงใช้ตัวดำเนินการ fold ( *) เพื่อเพิ่มอักขระทั้งหมด

ถ้ามันต้องทำงานกับสตริงว่าง, 9 ตัวอักษร:

{{+}*}0if

ขอบคุณ @PeterTaylor ที่ให้บริการรุ่น 6-char ทางเลือกที่ทำงานกับสตริงว่างได้:

0\{+}/

APL (8)

+/⎕UCS⍞

คำอธิบาย:

• +/ ผลรวมของ
• ⎕UCS ค่า Unicode ของ
• ⍞ การป้อนอักขระ

Haskell 36

main=interact$show.sum.map fromEnum

เครื่องมือ Shell + GNU ขนาด 29 ไบต์

echo `od -An -tuC`|tr \  +|bc

รับอินพุตจาก stdin:

$ printf "%s" 'Hello World!' | ./addchars.sh 
1085
$ 

คะแนนของตัวเอง: 2385

c, 52 ไบต์

c;main(p){while(~(p=getchar()))c+=p;printf("%d",c);}

คอมไพล์ด้วย (คำเตือนบางอย่างที่ผลิต):

gcc addchars.c -o addchars

รับอินพุตจาก stdin:

$ printf "%s" 'Hello World!' | ./addchars 
1085 $ 

คะแนนของตัวเอง: 4354

Javascript ( ES6 ) 51

alert([...prompt(x=0)].map(y=>x+=y.charCodeAt())|x)

gs2 , 1 ไบต์

d

d( 0x64/ sum) แน่นอนผลรวมไบต์ทั้งหมดในอินพุตมาตรฐาน

Python 3 - 28 ไบต์

print(sum(map(ord,input())))

ตัวอย่างการเรียกใช้:

$ ./sum_string.py <<< 'Hello World!'
1085

รับอินพุตจาก stdin ซึ่งmapเป็นordฟังก์ชันเพื่อรับค่า ASCII ของแต่ละอักขระsums it และprints

ชุดประกอบ 8086 (16 บิต) - 47 41 ไบต์

เนื้อหาของtest.comไฟล์คือ:

98 01 c3 b4 01 cd 21 3c 0d 75 f5 89 c7 c6 05 24
89 d8 b1 0a 4f 31 d2 f7 f1 80 ca 30 88 15 09 c0
75 f2 89 fa b4 09 cd 21 c3

งานจริงเสร็จใน 11 ไบต์แรก; ฉันต้องการที่เหลือเพื่อพิมพ์ผลลัพธ์เป็นสัญกรณ์ทศนิยม

ซอร์สโค้ด (ให้เป็นอินพุตของแอสdebug.comเซมเบลอร์DOS ):

a
; input the string; count the sum
    cbw
    add bx, ax
    mov ah, 1
    int 21
    cmp al, d
    jne 100
; Prepare for output: stuff an end-of-line marker
    mov di, ax
    mov [di], byte 24
    mov ax, bx
    mov cl, a
; 114
; Divide by 10; write digits to buffer
    dec di
    xor dx, dx
    div cx
    or  dl, 30
    mov [di], dl
    or  ax, ax
    jne 114
; Print the string
    mov dx, di
    mov ah, 9
    int 21
    ret

rcx 29
n test.com
w
q

หมายเหตุบางประการเกี่ยวกับรหัส:

• จัดการหนึ่งบรรทัดเท่านั้น (จนถึงอักขระสุดท้ายของบรรทัดที่ 13); แฮงค์หากไม่มีจุดสิ้นสุดของบรรทัด
• รองรับอักขระ 7 บิตเท่านั้น (ผลลัพธ์ไม่ถูกต้อง)
• เอาต์พุต 0 สำหรับอินพุตว่าง
• ไม่สามารถจัดการเอาต์พุตที่มากกว่า 64K
• การเรียนการสอนที่อยู่ 0x10d เขียนทับตัวเอง (บังเอิญบริสุทธิ์)
• ต้องใช้โปรแกรมจำลองการทำงาน DOS เช่นDosBoxเพื่อประกอบและเรียกใช้โปรแกรมนี้

CJam, 3 ไบต์ (รวม 260)

q1b

คุณสามารถลองออนไลน์ได้
ขอบคุณ jimmy23013 ที่ช่วยตัด 2 ตัวอักษร :)

คำอธิบาย:

q     read the input into a string  
1b    convert from base 1, treating each character as its numeric value

Befunge98, 6 ไบต์, ผลรวม: 445

2j@.~+

ล่ามใด ๆ ก็น่าจะดี ผมใช้CCBI

ใช้ดังต่อไปนี้:

printf 'Hello World!' | ccbi calc.fg

ใช้งานได้กับอักขระหลายไบต์และสตริงว่าง

คำอธิบาย

• 2j- ข้ามคำแนะนำสองคำสั่งถัดไป ( @และ.- ดูด้านล่าง)
• ~ - ใส่ถ่านตัวต่อไปในกอง
• +- เพิ่มค่ารหัสของถ่านใหม่เพื่อผลรวมปัจจุบัน ตัวชี้คำสั่งตัดไปที่จุดเริ่มต้นและวัฏจักรซ้ำ
• เมื่อ~พบ EOF มันจะเข้าทิศทางของตัวชี้และคำสั่ง "ซ่อน" ทั้งสองจะถูกดำเนินการ:
• . - พิมพ์ผลรวม
• @ - ออก

Ruby, 13 12 ไบต์

p~9+gets.sum

sumเป็นฟังก์ชั่นในตัวที่รวมอักขระของสตริง ลบ 10 เพื่อบัญชีขึ้นบรรทัดใหม่ในตอนท้ายของgetsค่าส่งคืน

(แก้ไข 4 ปีต่อมาเพื่อเปลี่ยนx-10เป็น~9+x... ค่าของ~9คือ-10, แต่ให้เราลบช่องว่างระหว่างpและอาร์กิวเมนต์, บันทึกไบต์)

PowerShell - 27

[char[]]$args[0]|measure -s

ตัวอย่าง

> SumChars.ps1 'Hello World!'

Count    : 12
Average  : 
Sum      : 1085
Maximum  : 
Minimum  : 
Property : 

จูเลีย - 11 7 ตัวอักษรผลรวม = 943 536

เนื่องจากคำถามอนุญาตให้อินพุตมาจากแหล่งใดก็ตามที่คุณต้องการฉันเลือกตัวแปรที่มีอยู่ สมมติว่าAมีสตริงที่เราต้องการประเมิน

sum(A)1

เมื่อปรากฎว่าคุณสามารถรวมสตริงโดยตรงและจะประเมิน ... อย่างไรก็ตามเนื่องจากวิธีการจัดการกับการรวมของตัวอักษรหากมีจำนวนอักขระแปลก ๆ ในสตริงมันจะเอาท์พุทอักขระ แทนที่จะเป็นจำนวนเต็มของการเรียงลำดับใด ๆ ด้วยเหตุนี้เราจึงบังคับให้ส่งไปยัง int โดยการคูณด้วย 1

เวอร์ชั่นเก่า:

sum(A.data)

จะแสดงผลเป็นเลขฐานสิบหก (หากผลรวมน้อยกว่า 256 จะเป็น0x??ไม่เช่นนั้นจะเท่ากับ 8 ไบต์0x????????) หากใช้ในรหัสที่ใช้ผลลัพธ์ผลลัพธ์จะทำงานเหมือนกับหมายเลขอื่น ๆ (เป็นวิธีที่ Julia แสดง int ที่ไม่ได้ลงชื่อ)

การเห็นคุณค่าของผลในทศนิยมที่แนบข้างต้นในขณะที่อยู่ในint()int(sum(A.data))

สำหรับใครก็ตามที่ไม่รู้จักจูเลียคุณก็มอบหมายให้Aทำเช่นเดียวกันกับที่คุณทำกับตัวแปรอื่น ๆ ดังนั้นหรือA="Hello World!" A="sum(n.data)"ในกรณีที่คุณจำเป็นต้องใส่"หรือ'ตัวละครมีหลายตัวเลือกที่ง่ายที่สุด (เพราะหลีกเลี่ยงความต้องการความรู้เกี่ยวกับความแตกต่างของตัวอักษรสตริงจูเลีย) A=readline()ตามด้วยเพียงพิมพ์สตริงลงใน STDIN (ชนะ ' แม้ว่าจะไม่ได้รับการขึ้นบรรทัดใหม่) ลำดับการยกเว้นสำหรับการขึ้นบรรทัดใหม่นั้นเป็นปกติ\nแต่ฉันไม่เชื่อว่าคุณสามารถใช้กับ readline () ได้

K5, 2 ไบต์ (ฟังก์ชัน), 5 ไบต์ (โปรแกรม)

ฟังก์ชัน

+/

โปรแกรม

+/0:`

ไม่แน่ใจว่า K5 ถูกสร้างขึ้นก่อนหรือหลังความท้าทายนี้ถูกโพสต์ ไม่ว่า ... มันยอดเยี่ยมมาก !!

ใน K5 ถ้าคุณทำการดำเนินการทางคณิตศาสตร์กับสตริงมันจะแปลงอักขระเป็นรหัส ASCII นี่ก็แค่ใช้ตัวดำเนินการผลรวม+/(ที่จริงแล้วมันคือบวก + มากกว่า)

Matlab / Octave 4 ไบต์ (โบนัส: 405)

รหัสนี้เป็นฟังก์ชั่นที่ไม่ระบุชื่อซึ่งทำหน้าที่มันจะใช้สตริงและส่งกลับหมายเลขที่ต้องการ

@sum

ไป (59 ตัวอักษร)

func d(s string)(t int){for _,x:=range s{t+=int(x)};return}

ทุกอย่างใน Go คือ utf8 โดยค่าเริ่มต้น Codetext ใน `delimeters ที่เรียกใช้ผ่านตัวมันเองจะให้ผลลัพธ์ของ: 5399

Jolf 2 ไบต์ (ไม่ใช่การแข่งขัน)

ลองที่นี่!

ui
u  sum of
 i  the input string

อืม ... ฉันไม่รู้จะพูดอะไรอีก

Gol> <> , 4 ไบต์ (ไม่แข่งขัน)

หมายเหตุ: ภาษานี้ใหม่กว่าความท้าทาย

iEh+

Javascript ES6, 41 ไบต์

_=>[..._].map(y=>x+=y.charCodeAt(),x=0)|x

ขอบคุณ @ETHproductions ที่บันทึกไว้ 2 ไบต์!

Python ขนาด 24 ไบต์

นี่คือสั้นกว่าโซลูชัน Python ใด ๆ : ฟังก์ชันที่ไม่ระบุชื่อซึ่งใช้สตริงเป็นอาร์กิวเมนต์และส่งคืนผลรวม

lambda x:sum(x.encode())

ลองออนไลน์!

ขั้นแรกให้x.encode()เปลี่ยนเป็นbytesวัตถุ จากนั้นsumเพิ่มค่ารหัสตัวอักษร เนื่องจากนี่คือฟังก์ชันแลมบ์ดา

นอกจากนี้หนึ่งอาจมีlambda x:sum(map(ord,x))จำนวนไบต์เดียวกัน

SML, 42 36

เพียงเพิ่มภาษาอื่น

fun$x=foldl op+0(map ord(explode x))

แปลง String ไปเป็นอาร์เรย์ถ่านคำนวณหมายเลข ascii ของแต่ละค่าและคำนวณผลรวมของตัวเลข ASCII ทั้งหมด

ค 32

f(char*s){return*s?*s+f(s+1):0;}

D (ฟังก์ชั่น: 60)

ไม่อย่างแน่นอนที่จะชนะมัน

สมมติว่ามันไม่จำเป็นต้องเป็นโปรแกรมที่สมบูรณ์

int c(string i){int s;foreach(e;i){s+=cast(int)e;}return s;}

เรียกได้ว่าเป็นอย่างนั้น

void main ()
{
    import std.stdio;
    auto hw = "Hello World!";
    writefln("%s = %d", hw, c(hw));
}

เอาท์พุท:

Hello World! = 1085

D (โปรแกรม: 133)

ไม่นับการขึ้นบรรทัดใหม่

void main(){import std.algorithm,std.stdio;stdin.byLine.map!((a){int s;foreach(e;a){s+=cast(int)e;}return s;}).reduce!"a+b".writeln;}

ด้วยช่องว่างที่มากขึ้นและชื่อตัวแปรที่ยาวขึ้นเพื่อความสะดวกในการอ่าน

void main () {
    import std.algorithm, std.stdio;

    stdin.byLine
        .map!((line) {
                int sum;
                foreach (ch; line) {
                    sum += cast(int)ch;
                }
                return sum;
            })
        .reduce!"a+b"
        .writeln;
}

เพื่อรองรับการขึ้นบรรทัดใหม่ในอินพุตฉันสามารถใช้byLine(KeepTerminator.yes)- วิธีที่ถูกต้องสำหรับ 20 ตัวอักษร - หรือต่อท้าย'\n'บรรทัดของฉัน - ซึ่งแบ่งอินพุตบรรทัดเดียวและอาจให้ผลรวมผิดบน Windows เนื่องจาก CRLF สำหรับ 18 ตัวอักษร

JavaScript (ES6) 54 58

alert([].reduce.call(prompt(),(v,c)=>v+c.charCodeAt(0),0))

ขอบคุณ 54 ไบต์ถึงขีดล่าง :

alert([...prompt()].reduce((v,c)=>v+c.charCodeAt(),0))

Delphi ( 87 83)

function x(s:string):int64;var c:char;begin x:=0;for c in s do x:=result+ord(c)end;

Ungolfed

function x(s:string):int64;
var
  c:char;
begin
  x:=0;
  for c in s do
    x:=result+ord(c)
end;

วนซ้ำผ่านSการเพิ่มordค่าของ char ไปยังผลลัพธ์ โดยที่ x == ผล

การแก้ไข:

บันทึก 4 ตัวอักษรโดยเปลี่ยนเป็น int64 และเปลี่ยนการเพิ่มเป็นผลรวม

k (8 ตัวอักษร)

+/6h$0:0

แปล Q

sum `int$read0 0

ค่าโบนัส:

k)+/6h$0:0
+/6h$0:0
438i

J (7)

ใกล้ แต่ยังไกล ... อืมฉันเดาว่า 7 ดีพอเนื่องจากคำตอบนี้ก็ยอมรับสตริงว่าง ๆ (ฉันอ้างอิงการใช้ตัวแปรเป็นอินพุตของวลีfrom a file, stdin or whatever)

+/a.i.b

คำอธิบาย:

a.

┌┬┐├┼┤└┴┘│─ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~��������������������������������������������������������������������������������������������������������������������������������

a. มีตัวอักษร ASCII ทั้งหมด

   'people' i. 'pow'
0 2 6

x i. y[x.index(i) for i in y]จะคล้ายกับของงูหลาม

   a. i. 'Hello World!'
72 101 108 108 111 32 87 111 114 108 100 33

ดังนั้นa. i. yแปลงyเป็นอาร์เรย์ของค่า ASCII

   +/1 2 3 4 5 6
21

+/เป็นเช่นsum: +/1 2 3 4 5 6หมายถึง1+2+3+4+5+6

   +/ a. i. 'Hello World!'
1085

ในการดำเนินการทั้งหมด

สำหรับโบนัส:

   b=:'+/a.i.b'
   +/a.i.b
482

ไม่เลวฉันเดา

   b=:'0\{+}/'
   +/a.i.b
478

อืม

   A=:'+/a.i.A'
   +/a.i.A
449

ขอบคุณ @ อัลกอริทึม

    A=:'+/3 u:A'
    +/3 u:A
413

ขอบคุณ @marinus

R, 35 ตัวอักษร (รวม 3086) 26 ไบต์ (รวม 2305)

sum(utf8ToInt(readline()))

readline()มีความยาวเกินหนึ่งตัวscan(,"")แต่scanแยกอินพุตในช่องว่างโดยค่าเริ่มต้น

การใช้งาน:

> sum(utf8ToInt(readline()))
Hello World!
[1] 1085
> sum(utf8ToInt(readline()))
sum(utf8ToInt(readline()))
[1] 2305
> sum(utf8ToInt(readline()))
q/%8hnp>T%y?'wNb\},9krW &D9']K$n;l.3O+tE*$*._B^s!@k\&Cl:EO1zo8sVxEvBxCock_I+2o6 yeX*0Xq:tS^f)!!7=!tk9K<6#/E`ks(D'$z$\6Ac+MT&[s[]_Y(`<g%"w%cW'`c&q)D$0#C$QGf>?A$iawvc,}`9!('`c&q)D$0#C$QGf>?A$iawvc,}`9!(
[1] 14835

Japtet , 6 ไบต์ (ไม่ใช่การแข่งขัน)

คำตอบนี้ไม่สามารถแข่งขันได้เพราะ Japt ถูกสร้างขึ้นหลังจากมีการโพสต์ความท้าทายนี้

U¬mc x

ค่อนข้างง่าย ลองออนไลน์!

มันทำงานอย่างไร

U¬mc x  // Implicit: U = input string
U¬      // Split U into chars.
  mc    // Map each item to its char code.
     x  // Sum.
        // Implicit: output last expression

PlatyPar 2 ไบต์ (ไม่แข่งขัน)

us

ลองออนไลน์ !

uสร้างอาร์เรย์ของค่า charcode ทั้งหมดในสตริงอินพุตและsค้นหาผลรวม

เมื่อทำงานกับมันมันจะกลับ232มา

นี่คล้ายกับคำตอบ Jolfของ Conor ยกเว้นว่าฉันใช้ byte เพื่อแปลงสตริงเป็นอาร์เรย์ของรหัสอักขระ (ซึ่งเป็นนัยใน Jolf) ในขณะที่เขาใช้ byte เพื่อดึงข้อมูล (ซึ่งเป็นนัยใน PlatyPar)