Bài tập

Xây dựng một máy tính, lấy bất kỳ chuỗi nào, từ tệp, stdin hoặc bất cứ thứ gì, và cộng tất cả các giá trị của ký tự.

Thí dụ

Input
Hello World!

Output
1085

Quy tắc

Máy tính cần chấp nhận mã hóa ASCII.

Mã ngắn nhất sẽ thắng.

Ghi chú

Liên quan đến nhận xét của m.buettner, tôi cần nói rằng, tôi đã không nghĩ đến phần đa bào.
Vì vậy, tôi để nó như là một điều tiền thưởng là tốt.
Máy tính nên được chạy dưới dạng văn bản, do đó không cần phải sửa đổi trước khi biên dịch hoặc phiên dịch.

Tặng kem

Nhờ Synthetica , đây là một phần thưởng nữa,

Chương trình có đầu ra thấp nhất khi bạn sử dụng mã của nó khi đầu vào của nó thắng được một ngôi sao.

Tôi không muốn sửa đổi nó hoàn toàn.

Nếu bạn viết nó bổ sung để xuất giá trị (phải) trong UTF-8, bạn sẽ có một ngôi sao.

Mã thực thi nhanh nhất trên Máy tính xách tay của tôi (Lenovo Yoga 13 Intel Core i5 3317U 1.7Ghz, RAM 8GB, SSD 128 GB, Intel HD 4000, Windows 8) được đánh dấu sao.

Mã web sẽ chạy đầu tiên trong IE11 với luân xa và sau đó là FireFox 29.0.1 với SpiderMonkey

Mã Linux sẽ chạy trên Raspberry Pi với Raspbian.

Chuỗi kiểm tra là đây:

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!(

Hãy vui vẻ viết mã :)

Bonusscoring

Tôi dự định thực hiện việc ghi điểm vào thứ bảy này để ngày 07/06/14, tất cả các câu trả lời sau ngày đó sẽ không nhận được điểm thưởng;)

Bạn có thể tải xuống mã tôi sẽ sử dụng để thử nghiệm ở đây, vui lòng rẽ nhánh và cải thiện nó :)

Ít cập nhật vì tiền thưởng, máy tính xách tay của tôi bị hỏng một phần vì vậy tôi sẽ làm điều đó vào cuối tuần tới, tôi thực sự xin lỗi vì điều đó :(

GolfScript, 4 ký tự

{+}*

Chỉ cần sử dụng toán tử gập ( *) để thêm tất cả các ký tự.

Nếu nó phải làm việc với chuỗi rỗng, 9 ký tự:

{{+}*}0if

Cảm ơn @PeterTaylor đã cung cấp phiên bản 6-char thay thế hoạt động với chuỗi trống:

0\{+}/

APL (8)

+/⎕UCS⍞

Giải trình:

• +/ Tổng của
• ⎕UCS giá trị unicode của
• ⍞ nhập ký tự

Haskell 36

main=interact$show.sum.map fromEnum

Công cụ Shell + GNU, 29 byte

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

Lấy đầu vào từ stdin:

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

Điểm số riêng: 2385

c, 52 byte

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

Biên dịch với (một số cảnh báo được tạo ra):

gcc addchars.c -o addchars

Lấy đầu vào từ stdin:

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

Điểm số riêng: 4354

Javascript ( ES6 ) 51

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

gs2 , 1 byte

d

d( 0x64/ sum), tất nhiên, tổng hợp tất cả các byte trong đầu vào tiêu chuẩn.

Python 3 - 28 byte

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

Chạy ví dụ:

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

Nhận đầu vào từ stdin, maps ordchức năng cho nó để nhận giá trị ASCII của từng ký tự, sums và prints.

Hội 8086 (16 bit) - 47 41 byte

Nội dung của test.comtập tin là:

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

Công việc thực tế được thực hiện trong 11 byte đầu tiên; Tôi cần phần còn lại để in kết quả theo ký hiệu thập phân.

Mã nguồn (cung cấp làm đầu vào cho trình biên dịch DOS debug.com):

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

Một số lưu ý về mã:

• Chỉ xử lý một dòng (tối đa ký tự cuối dòng 13); treo nếu không có dòng cuối
• Chỉ hỗ trợ các ký tự 7 bit (kết quả không chính xác)
• Đầu ra 0 cho đầu vào trống
• Không thể xử lý đầu ra lớn hơn 64K
• Hướng dẫn tại địa chỉ 0x10d ghi đè lên chính nó (trùng hợp thuần túy)
• Phải sử dụng trình giả lập DOS như DosBox để lắp ráp và chạy chương trình này

CJam, 3 byte (tổng 260)

q1b

Bạn có thể thử nó trực tuyến .
Cảm ơn jimmy23013 vì đã giúp chặt 2 ký tự :)

Giải trình:

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

Befunge98, 6 byte, tổng: 445

2j@.~+

Bất kỳ thông dịch viên nên được tốt. tôi sử dụng CCBI .

Sử dụng như sau:

printf 'Hello World!' | ccbi calc.fg

Hoạt động cho ký tự đa bào và chuỗi trống.

Giải trình

• 2j- nhảy qua hai hướng dẫn tiếp theo ( @và. - xem bên dưới)
• ~ - đặt char tiếp theo trên stack
• +- thêm giá trị mã của char mới vào tổng hiện tại. Con trỏ lệnh kết thúc từ đầu và chu kỳ lặp lại
• khi nào ~ gặp EOF, nó đảo ngược hướng của con trỏ và hai lệnh "ẩn" được thực thi:
• . - in tổng
• @ - lối ra

Ruby, 13 12 byte

p~9+gets.sum

sumlà một hàm dựng sẵn tính tổng các ký tự của chuỗi. Trừ 10 để tính đến dòng mới ở cuối getsgiá trị trả về.

(Đã chỉnh sửa 4 năm sau để thay đổi x-10thành ~9+x... giá trị ~9là -10, nhưng nó cho phép chúng ta xóa khoảng trắng giữa pvà đối số của nó, lưu một byte.)

PowerShell - 27

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

Thí dụ

> SumChars.ps1 'Hello World!'

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

Julia - 11 7 ký tự, tổng kết quả = 943 536

Vì câu hỏi cho phép đầu vào đến từ bất kỳ nguồn nào bạn muốn, tôi chọn một biến hiện có. Giả sử Acó chứa chuỗi chúng tôi muốn đánh giá.

sum(A)1

Khi nó bật ra, bạn có thể tính tổng chuỗi trực tiếp và nó sẽ đánh giá ... tuy nhiên, do cách xử lý các ký tự, nếu có một số ký tự lẻ trong chuỗi, nó sẽ xuất ra một ký tự, chứ không phải là một số nguyên của bất kỳ loại. Như vậy, chúng ta buộc nó chuyển sang int bằng cách nhân với 1.

Phiên bản cũ:

sum(A.data)

Sẽ xuất ra một ký hiệu thập lục phân (nếu tổng nhỏ hơn 256, thì nó sẽ là 0x??, nếu không nó sẽ là 8 byte như 0x????????). Nếu được sử dụng trong mã nơi sử dụng kết quả, nó sẽ hoạt động giống như bất kỳ số nào khác (đó chỉ là cách Julia hiển thị số nguyên không dấu).

Để xem giá trị của kết quả ở dạng thập phân, hãy đính kèm ở trên int(), như trong int(sum(A.data)).

Đối với bất kỳ ai không biết Julia, bạn chỉ định Achính xác giống như cách bạn thực hiện các bài tập khác cho các biến. Vì vậy, A="Hello World!"hoặc A="sum(n.data)". Trong trường hợp bạn cần nhập "hoặc 'ký tự, có nhiều tùy chọn, dễ nhất trong số đó (vì nó cần sự hiểu biết về các sắc thái của chuỗi ký tự chuỗi Julia) A=readline(), tiếp theo là chỉ cần nhập chuỗi vào STDIN (won ' t xử lý các dòng mới, mặc dù). Trình tự thoát cho dòng mới, như thường lệ \n, nhưng tôi không tin rằng bạn có thể sử dụng nó với readline ().

K5, 2 byte (chức năng), 5 byte (chương trình)

Chức năng

+/

Chương trình

+/0:`

Không chắc chắn nếu K5 được tạo ra trước hoặc sau khi thử thách này được đăng. Bất kể ... ĐÂY LÀ TUYỆT VỜI !!

Trong K5, nếu bạn thực hiện các phép toán số học trên các chuỗi, nó sẽ chuyển đổi các ký tự thành mã ASCII của chúng. Vì vậy, điều này chỉ sử dụng toán tử tổng +/(thực ra, nó cộng + hơn).

Matlab / Octave 4 byte (tiền thưởng: 405)

Mã này là một hàm ẩn danh, thực hiện công việc, nó sẽ lấy một chuỗi và trả về số lượng cần thiết.

@sum

Đi (59 ký tự)

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

Mọi thứ trong Go là utf8 theo mặc định. Codetext trong `delmeter chạy qua chính nó cho ra một đầu ra: 5399.

Jolf, 2 byte (không cạnh tranh)

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

ui
u  sum of
 i  the input string

Umm ... tôi không biết nói gì nữa.

Gol> <> , 4 byte (không cạnh tranh)

Lưu ý: ngôn ngữ này mới hơn thách thức.

iEh+

Javascript ES6, 41 byte

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

Cảm ơn @ETHproductions đã lưu 2 byte!

Python, 24 byte

Điều này ngắn hơn bất kỳ giải pháp Python nào cho đến nay: một hàm ẩn danh chưa được đặt tên, lấy chuỗi này làm đối số và trả về tổng.

lambda x:sum(x.encode())

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

Đầu tiên, x.encode()biến nó thành một bytesđối tượng. Sau đó, sumthêm các giá trị mã char. Vì đây là hàm lambda, giá trị được trả về.

Ngoài ra, người ta có thể có lambda x:sum(map(ord,x))cùng số byte.

SML, 42 36

Chỉ cần thêm một ngôn ngữ khác.

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

Chuyển đổi chuỗi thành mảng char, tính toán số ascii của từng giá trị và tính tổng của tất cả các số ascii.

C 32

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

D (chức năng: 60)

Chắc chắn không phải trong nó để giành chiến thắng.

Giả sử nó không cần phải là một chương trình hoàn chỉnh

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

Gọi như vậy

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

Đầu ra:

Hello World! = 1085

D (chương trình: 133)

Không tính ngắt dòng.

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

Với nhiều khoảng trắng hơn và tên biến dài hơn để dễ đọc

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

Để hỗ trợ ngắt dòng trong đầu vào, tôi có thể sử dụng byLine(KeepTerminator.yes)- cách chính xác, cho 20 ký tự - hoặc nối thêm '\n'vào dòng của tôi - phá vỡ đầu vào một dòng và có thể đưa ra tổng sai trên Windows vì CRLF, cho 18 ký tự.

JavaScript (ES6) 54 58

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

54 byte nhờ nderscore :

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;

Ung dung

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

Vòng lặp thông qua Sviệc thêm ordgiá trị của char vào kết quả. trong đó x == kết quả

Chỉnh sửa:

Đã lưu 4 ký tự bằng cách chuyển sang int64 và thay đổi cộng vào tổng.

k (8 ký tự)

+/6h$0:0

Q dịch

sum `int$read0 0

Giá trị tiền thưởng:

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

J (7)

Rất gần, nhưng cho đến nay ... Ồ, tôi đoán 7 là đủ tốt, vì câu trả lời này cũng chấp nhận chuỗi rỗng. (Tôi đang căn cứ vào việc sử dụng một biến làm đầu vào cho cụm từ from a file, stdin or whatever)

+/a.i.b

Giải trình:

a.

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

a. chứa tất cả các ký tự ASCII.

   'people' i. 'pow'
0 2 6

x i. ytương tự như trăn [x.index(i) for i in y].

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

Do đó, a. i. ychuyển đổi ythành một mảng các giá trị ASCII của nó

   +/1 2 3 4 5 6
21

+/giống như sum: +/1 2 3 4 5 6có nghĩa là1+2+3+4+5+6

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

Toàn bộ hành động

Đối với phần thưởng:

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

Không tệ, tôi đoán thế.

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

Chà, chết tiệt.

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

Cảm ơn @alerskymshark

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

Cảm ơn @marinus

R, 35 ký tự (tổng số 3086) 26 byte (tổng số 2305)

sum(utf8ToInt(readline()))

readline()theo mặc định là một ký tự dài hơn scan(,"")nhưng scanphân chia đầu vào trên khoảng trắng.

Sử dụng:

> 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

Japt , 6 byte (không cạnh tranh)

Câu trả lời này không cạnh tranh vì Japt được tạo ra sau khi thử thách này được đăng.

U¬mc x

Khá đơn giản. Hãy thử trực tuyến!

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

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 byte (không cạnh tranh)

us

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

utạo ra một mảng của tất cả các giá trị charcode trong chuỗi đầu vào và stìm tổng của chúng.

Khi chạy trên chính nó, nó trở lại 232.

Điều này tương tự như câu trả lời Jolf của Conor , ngoại trừ việc tôi sử dụng một byte để chuyển đổi chuỗi thành một chuỗi các ký tự (được ẩn trong Jolf), trong khi anh ta sử dụng một byte để truy xuất đầu vào (được ẩn trong PlatyPar).