15
\$\begingroup\$

Task

Build a calculator, that takes any string, from a file, stdin or whatever, and adds up all the values of the chars.

Example

Input
Hello World!

Output
1085

Rules

The calculator needs to accept just ASCII encoding.

The shortest code wins.

Notes

Regarding to the comment of m.buettner, I need to say, I didn't thought of the multibyte part.
So I leave it as a bonus thing aswell.
The calculator should be run as written, so no need to modify before compiling or interpreting.

Bonus

Thanks to Synthetica, here is one more bonus,

The program that has the lowest output when you use its code as its input wins gets a star.

I don't want to modify it completly.

If you write it additional to output the (right) value in UTF-8 you get a star.

The code that executes fastest on my Laptop (Lenovo Yoga 13 Intel Core i5 3317U 1.7Ghz, 8GB RAM, 128GB SSD, Intel HD 4000, Windows 8) gets a star.

Web codes will run first under IE11 with chakra and then in FireFox 29.0.1 with SpiderMonkey

Linux code will run on a Raspberry Pi with Raspbian.

The teststring is this:

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

Have fun coding :)

Bonusscoring

I plan to do the scoring at this Saturday so the 07.06.14, all answers after that date won't get bonus points ;)

You can download the code I gonna use for testing here feel free to fork and improve it :)

Little update because of the bonus, my laptop is partially broken so I will do it probably next weekend, I am really sorry for that :(

\$\endgroup\$
  • 3
    \$\begingroup\$ I get 1085 for Hello World! using two different languages for ASCII values on my computer. \$\endgroup\$ – Kyle Kanos Jun 5 '14 at 14:21
  • 1
    \$\begingroup\$ He probably forgot to add the '!'. edit you were 3 seconds faster... \$\endgroup\$ – gxtaillon Jun 5 '14 at 14:22
  • 1
    \$\begingroup\$ Could one please explain the downvotes? \$\endgroup\$ – Knerd Jun 5 '14 at 14:33
  • 3
    \$\begingroup\$ My guess is that the downvotes indicate that it's not really a good problem. \$\endgroup\$ – Kyle Kanos Jun 5 '14 at 14:37
  • 4
    \$\begingroup\$ @Knerd mainly, because it's a bit too trivial in most languages (as you can see from the length of the submissions you already got) \$\endgroup\$ – Martin Ender Jun 5 '14 at 14:43

61 Answers 61

9
\$\begingroup\$

GolfScript, 4 characters

{+}*

Simply uses the fold operator (*) to add up all the characters.

If it has to work with the empty string, 9 chars:

{{+}*}0if

Thanks to @PeterTaylor for providing an alternative 6-char version that works with empty string:

0\{+}/
\$\endgroup\$
  • \$\begingroup\$ Does not work on the empty string. \$\endgroup\$ – Howard Jun 5 '14 at 14:32
  • \$\begingroup\$ @Howard Good point; edited. \$\endgroup\$ – Doorknob Jun 5 '14 at 14:35
  • \$\begingroup\$ 0\{+}/ supports empty string \$\endgroup\$ – Peter Taylor Jun 5 '14 at 14:40
  • 1
    \$\begingroup\$ @Doorknob sorry for the stupid question, how to I input data? I use golfscript.apphb.com \$\endgroup\$ – Knerd Jun 5 '14 at 15:21
  • 2
    \$\begingroup\$ @immibid A cyclops with a weirdly shaped eye. :-P (or, in GolfScript, the "swap-and-add-each" face!) \$\endgroup\$ – Doorknob Jun 6 '14 at 11:49
7
\$\begingroup\$

APL (8)

+/⎕UCS⍞

Explanation:

  • +/ sum of
  • ⎕UCS unicode values of
  • character input
\$\endgroup\$
  • \$\begingroup\$ What would be the result for Hello World!? \$\endgroup\$ – Knerd Jun 5 '14 at 14:30
  • \$\begingroup\$ @Knerd: 1085. It wouldn't be correct if it gave another output. It sums the values of the Unicode codepoints of the characters. \$\endgroup\$ – marinus Jun 5 '14 at 14:43
  • \$\begingroup\$ ok, I didn't got what the means ;) \$\endgroup\$ – Knerd Jun 5 '14 at 14:44
  • 1
    \$\begingroup\$ @knerd: means read a line from the keyboard \$\endgroup\$ – marinus Jun 5 '14 at 14:49
  • \$\begingroup\$ Do you know an APL interpreter that is free? \$\endgroup\$ – Knerd Jun 5 '14 at 17:05
5
\$\begingroup\$

Haskell 36

main=interact$show.sum.map fromEnum
\$\endgroup\$
  • \$\begingroup\$ From where does it read the text? \$\endgroup\$ – Knerd Jun 5 '14 at 14:47
  • \$\begingroup\$ stdin. $ printf "Hello World!" | ./charsum \$\endgroup\$ – gxtaillon Jun 5 '14 at 14:50
  • \$\begingroup\$ ok, I couldn't get it run on my Windows machine, I gonna try it on the rpi when I am at home \$\endgroup\$ – Knerd Jun 5 '14 at 14:54
  • \$\begingroup\$ When I execute your code, I just get the string "Hello World!" as Output. This is my commandline: ECHO "Hello World! | ghci charsum.hs \$\endgroup\$ – Knerd Jun 5 '14 at 16:25
  • 1
    \$\begingroup\$ use interact and show instead of getContents>>=print: main=interact$show.sum.map fromEnum \$\endgroup\$ – Flonk Jun 5 '14 at 17:59
5
\$\begingroup\$

Shell+GNU tools, 29 bytes

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

Takes input from stdin:

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

Own score: 2385


c, 52 bytes

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

Compile with (some warnings produced):

gcc addchars.c -o addchars

Takes input from stdin:

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

Own score: 4354

\$\endgroup\$
  • \$\begingroup\$ This is great answer. CodeBlocks with GNU compiler always complains if variables have no type e.g int c, main(int p). So I think these should be included in your answer. \$\endgroup\$ – bacchusbeale Jun 6 '14 at 8:02
  • \$\begingroup\$ @bacchusbeale I added a note about compilation warnings, but I think this is generally par-for-the-course when golfing in c. As long as the code compiles and runs as expected, then warnings can be ignored. See codegolf.stackexchange.com/a/2230/11259 and codegolf.stackexchange.com/a/2204/11259. Of course production code is a different matter entirely. \$\endgroup\$ – Digital Trauma Jun 6 '14 at 16:38
  • \$\begingroup\$ @DigitalTrauma are all those spaces actually necessary? Can the Shell not ignore the whitespace and use the - to mark new parameters? \$\endgroup\$ – Ashwin Gupta Jan 4 '16 at 1:46
  • \$\begingroup\$ @AshwinGupta Are you talking about the od command? od -AntuC does not do the same as od -An -tuC. \$\endgroup\$ – Digital Trauma Jan 4 '16 at 15:43
  • \$\begingroup\$ @DigitalTrauma yeah I was. I meant couldn't you do od-An-tuC or od -An-tuC \$\endgroup\$ – Ashwin Gupta Jan 4 '16 at 23:22
5
\$\begingroup\$

Javascript (ES6) 51

alert([...prompt(x=0)].map(y=>x+=y.charCodeAt())|x)
\$\endgroup\$
  • \$\begingroup\$ @nderscore Can you explain what the ... before the prompt does? Is this a new ES6 thing or is it pre-ES6? \$\endgroup\$ – WallyWest Jun 20 '14 at 0:41
  • 1
    \$\begingroup\$ @WallyWest It's called a spread operator and it's part of the ES6 draft. \$\endgroup\$ – nderscore Jun 20 '14 at 14:12
  • \$\begingroup\$ @nderscore So If I'm understanding the spread operator syntax, your use of [...prompt(x=0)] has taken the prompt with a default value of 0 (which goes later to be used in the sum), and applies that input as an array of characters...? Which technically would be the same as prompt(x=0).split(""), right? \$\endgroup\$ – WallyWest Jun 25 '14 at 11:24
  • 1
    \$\begingroup\$ @WallyWest prompt(x=0) means "set x to 0, call prompt with the value of setting x to 0", which is to say, 0. It would be equivalent to write (x=0,prompt(x)) \$\endgroup\$ – Cyoce Jan 6 '16 at 6:27
5
\$\begingroup\$

gs2, 1 byte

d

d (0x64 / sum), of course, sums up all bytes in standard input.

\$\endgroup\$
5
\$\begingroup\$

CJam, 3 bytes (sum 260)

q1b

You can try it online.
Thanks jimmy23013 for helping chop off 2 characters :)

Explanation:

q     read the input into a string  
1b    convert from base 1, treating each character as its numeric value
\$\endgroup\$
  • 1
    \$\begingroup\$ q1b is shorter. \$\endgroup\$ – jimmy23013 Jan 4 '16 at 3:24
4
\$\begingroup\$

Ruby, 13

p gets.sum-10

sum is a built-in function that sums the characters of a string. Subtracts 10 to account for the newline at the end of gets's return value.

\$\endgroup\$
  • \$\begingroup\$ I am not familiar with Ruby at all, could you explain your code please? \$\endgroup\$ – Knerd Jun 5 '14 at 14:30
  • 1
    \$\begingroup\$ gets is a function that reads a string from standard in until a newline is read, it returns a String. String#sum adds the values of each character, which returns a Fixnum. Fixnum#- is just subtraction. p is a method for outputting the debug value of something on a line. \$\endgroup\$ – Kyle Smith Jun 5 '14 at 14:35
4
\$\begingroup\$

Befunge98, 6 bytes, sum: 445

2j@.~+

Any interpreter should be fine. I use CCBI.

Use as follows:

printf 'Hello World!' | ccbi calc.fg

Works for multibyte chars and empty strings.

Explanation

  • 2j - jump over the next two instructions (@ and . - see below)
  • ~ - put the next char on the stack
  • + - add the code value of the new char to the current sum. The instruction pointer wraps to the beginning and the cycle repeats
  • when ~ encounters an EOF it inverses the direction of the pointer and the two "hidden" instructions are executed:
  • . - print the sum
  • @ - exit
\$\endgroup\$
4
\$\begingroup\$

8086 Assembly (16-bit) - 47 41 bytes

The contents of the test.com file are:

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

Actual work is done in the first 11 bytes; I need the rest to print the result in decimal notation.

Source code (give as input to the DOS debug.com assembler):

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

Some notes on the code:

  • Only handles one line (up to end-of-line character 13); hangs if no end-of-line
  • Only 7-bit characters are supported (results are incorrect otherwise)
  • Outputs 0 for empty input
  • Cannot handle output greater than 64K
  • Instruction at address 0x10d overwrites itself (pure coincidence)
  • Have to use DOS emulators like DosBox to assemble and run this program
\$\endgroup\$
  • \$\begingroup\$ How can you understand that? o.O \$\endgroup\$ – Knerd Jun 19 '14 at 8:04
3
\$\begingroup\$

Python 3 - 28 bytes

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

Example run:

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

Gets input from stdin, maps the ord function to it to get the ASCII value of each character, sums it and prints.

\$\endgroup\$
  • \$\begingroup\$ Ninja'd, I had the exact same idea. +1 for that. \$\endgroup\$ – seequ Jun 5 '14 at 15:16
  • \$\begingroup\$ @TheRare So did I, even though mine was longer, because I used Python 2.7. I'm getting rusty ;) \$\endgroup\$ – ɐɔıʇǝɥʇuʎs Jun 5 '14 at 15:17
  • \$\begingroup\$ @Synthetica I always use Python 2.7, on which the answer would have been print sum(map(ord,raw_input())) \$\endgroup\$ – seequ Jun 5 '14 at 15:18
  • 1
    \$\begingroup\$ @TheRare Which was my exact answer ;) \$\endgroup\$ – ɐɔıʇǝɥʇuʎs Jun 5 '14 at 15:19
  • \$\begingroup\$ Nitpicking here, but you can make it perform better by changing map(ord,input()) to input().encode(). Bytes objects can still be summed, and it stays the same length. \$\endgroup\$ – cjfaure Jun 6 '14 at 14:30
2
\$\begingroup\$

PowerShell - 27

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

Example

> SumChars.ps1 'Hello World!'

Count    : 12
Average  : 
Sum      : 1085
Maximum  : 
Minimum  : 
Property : 
\$\endgroup\$
  • \$\begingroup\$ 26 if you use [char[]]"$args"|measure -s as long as there is only one $arg entry. \$\endgroup\$ – TessellatingHeckler Jan 5 at 8:34
2
\$\begingroup\$

Julia - 11 7 characters, resultant sum = 943 536

Since the question allows the input to come from whatever source you want, I choose an existing variable. Assume that A contains the string we wish to evaluate.

sum(A)1

As it turns out, you can sum the string directly, and it will evaluate... however, due to the way that summing of chars is handled, if there is an odd number of characters in the string, it will output a character, rather than an integer of any sort. As such, we force it to cast to int by multiplying by 1.

Old version:

sum(A.data)

Will output in a hexadecimal notation (if the sum is less than 256, it'll be 0x??, otherwise it'll be 8 byte as 0x????????). If used in code where the result is used, it will operate just like any other number (it's just how Julia displays unsigned ints).

To see the value of the result in decimal, enclose the above in int(), as in int(sum(A.data)).

For anybody who doesn't know Julia, you assign to A exactly the same way you do other assignments to variables. So, A="Hello World!" or A="sum(n.data)". In the case where you need to put in " or ' characters, there are multiple options, the easiest of which (because it avoids need for knowledge of the nuances of Julia string literals) is A=readline(), followed by simply typing in the string into STDIN (won't handle newlines, though). The escape sequence for newline is, as usual, \n, but I don't believe you can use that with readline().

\$\endgroup\$
  • \$\begingroup\$ +1 for the god damn clever solution ^^ Could you post, how to assign the test value to the variable n? I don't know Julia at all ;) \$\endgroup\$ – Knerd Jun 6 '14 at 7:09
  • \$\begingroup\$ @Knerd - I've edited it in. Hope that helps. \$\endgroup\$ – Glen O Jun 6 '14 at 11:12
  • \$\begingroup\$ Great, thank you. I try to test it later :) \$\endgroup\$ – Knerd Jun 6 '14 at 11:14
  • \$\begingroup\$ Minor change - switched variable from n to A to reduce the resultant sum from 988 to 943. \$\endgroup\$ – Glen O Jun 6 '14 at 17:22
  • \$\begingroup\$ OK, much bigger change - I realised that you can sum the string directly, rather than extracting the characters with .data; but because they're characters, they produce a character result for an odd number of characters. Multiplication by 1 corrects that. \$\endgroup\$ – Glen O Jun 6 '14 at 17:29
2
\$\begingroup\$

K5, 2 bytes (function), 5 bytes (program)

Function

+/

Program

+/0:`

Not sure if K5 was created before or after this challenge was posted. Regardless...THIS IS AWESOME!!

In K5, if you perform arithmetic operations on strings, it converts the characters to their ASCII codes. So this just uses the sum operator +/ (actually, it's plus + over).

\$\endgroup\$
2
\$\begingroup\$

Matlab/Octave 4 bytes (bonus: 405)

This code is an anonymous function, that does the job, it will take a string, and return the required number.

@sum
\$\endgroup\$
  • \$\begingroup\$ I am not sure about the gs2 answer, but at least with the same approach as the Julia answer, I should still write sum(A). I think sum alone is not ok (wouldn't even be valid code=). \$\endgroup\$ – flawr Jan 6 '16 at 17:33
2
\$\begingroup\$

Go (59 characters)

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

Everything in Go is utf8 by default. Codetext in ` delimeters run through itself gives an output of: 5399.

\$\endgroup\$
  • \$\begingroup\$ I have to say I'm rather surprised there's no math.Sum for use with map or similar \$\endgroup\$ – cat Jan 2 '16 at 14:37
2
\$\begingroup\$

Jolf, 2 bytes (non-competing)

Try it here!

ui
u  sum of
 i  the input string

Umm... I don't know what else to say.

\$\endgroup\$
2
\$\begingroup\$

Gol><>, 4 bytes (non-competing)

Note: this language is newer than the challenge.

iEh+
\$\endgroup\$
  • \$\begingroup\$ Is it pronounced like 'Golfish?' \$\endgroup\$ – cat Jan 2 '16 at 18:01
  • \$\begingroup\$ @cat Yes, it's golfish. \$\endgroup\$ – randomra Jan 2 '16 at 18:08
  • \$\begingroup\$ @randomra is that "gol•fish" or "golf•ish"? As in a fish with gol, or something kind of like golf? \$\endgroup\$ – Cyoce Jan 6 '16 at 15:22
2
\$\begingroup\$

Javascript ES6, 41 bytes

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

Thanks to @ETHproductions for 2 bytes saved!

\$\endgroup\$
  • 1
    \$\begingroup\$ How about _=>[..._].map(y=>x+=y.charCodeAt(),x=0)|x? \$\endgroup\$ – ETHproductions Jan 4 '16 at 2:57
2
\$\begingroup\$

SML, 42 36

Just adding another language.

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

Converts String to char array, calculates ascii number of each value and calculates the sum of all ascii numbers.

\$\endgroup\$
1
\$\begingroup\$

D (function: 60)

Definitely not in it to win it.

Assuming it doesn't need to be a complete program

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

Called like so

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

Output:

Hello World! = 1085

D (program: 133)

Does not count line breaks.

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

With more whitespace and longer variable names for readability

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

To support line breaks in the input, I could either use byLine(KeepTerminator.yes) — the correct way, for 20 characters — or append a '\n' to my line — which breaks single-line input and may give the wrong sum on Windows because of CRLF, for 18 characters.

\$\endgroup\$
  • \$\begingroup\$ +1 for posting even if you know, that you won't win \$\endgroup\$ – Knerd Jun 5 '14 at 18:09
1
\$\begingroup\$

JavaScript (ES6) 54 58

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

54 bytes thanks to nderscore:

alert([...prompt()].reduce((v,c)=>v+c.charCodeAt(),0))
\$\endgroup\$
  • \$\begingroup\$ Works good, I tried it by now in es6fiddle.net \$\endgroup\$ – Knerd Jun 5 '14 at 17:20
  • \$\begingroup\$ You could just use Firefox ;) \$\endgroup\$ – core1024 Jun 5 '14 at 17:30
  • 1
    \$\begingroup\$ I was at work so :D \$\endgroup\$ – Knerd Jun 5 '14 at 17:40
  • 1
    \$\begingroup\$ 54: alert([...prompt()].reduce((v,c)=>v+c.charCodeAt(),0)) \$\endgroup\$ – nderscore Jun 6 '14 at 0:37
  • 1
    \$\begingroup\$ Got it down to 51 now :) alert([...prompt(x=0)].map(y=>x+=y.charCodeAt())|x) \$\endgroup\$ – nderscore Jun 6 '14 at 16:05
1
\$\begingroup\$

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;

Loops through S adding the ord value of the char to the result. where x==result

Edits:

Saved 4 characters by switching to int64 and changing the adding to the sum.

\$\endgroup\$
  • \$\begingroup\$ Do you have a free version of Delphi (insert you version here) availiable? \$\endgroup\$ – Knerd Jun 6 '14 at 14:54
  • \$\begingroup\$ Hm.. Not really sorry. But I can explain un-golfed what happens where and do some testcases if you want. Free pascal has more or less the same syntax so you could do that. \$\endgroup\$ – Teun Pronk Jun 6 '14 at 14:57
  • \$\begingroup\$ Ok, I gonna check that out. \$\endgroup\$ – Knerd Jun 6 '14 at 15:02
1
\$\begingroup\$

k (8 chars)

+/6h$0:0

Q translation

sum `int$read0 0

Bonus value:

k)+/6h$0:0
+/6h$0:0
438i
\$\endgroup\$
1
\$\begingroup\$

J (7)

So close, yet so far... Oh well, I guess 7 is decent enough, since this answer also accepts empty strings. (I'm basing my usage of a variable as input on the phrase from a file, stdin or whatever)

+/a.i.b

Explanation:

a.

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

a. contains all ASCII chars.

   'people' i. 'pow'
0 2 6

x i. y is similar to python's [x.index(i) for i in y].

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

Therefor, a. i. y converts y to an array of its ASCII values

   +/1 2 3 4 5 6
21

+/ is like sum: +/1 2 3 4 5 6 means 1+2+3+4+5+6

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

The whole thing in action

For the bonus:

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

Not bad, I guess.

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

Well, darn.

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

Thanks @algorithmshark

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

Thanks @marinus

\$\endgroup\$
  • \$\begingroup\$ +1 for the great explanation. One little question, where can I best execute J? \$\endgroup\$ – Knerd Jun 5 '14 at 15:07
  • 1
    \$\begingroup\$ @Knerd From the makers (jsoftware.com) I guess, I don't know any online interpreters. (Fun fact: they have an official console for Android.) jsoftware.com/download/j801 \$\endgroup\$ – ɐɔıʇǝɥʇuʎs Jun 5 '14 at 15:10
  • \$\begingroup\$ @Synthectica That is cool :D Now I need an Android smartphone :P \$\endgroup\$ – Knerd Jun 5 '14 at 15:11
  • \$\begingroup\$ Renaming b to A results in a score of 449. \$\endgroup\$ – algorithmshark Jun 5 '14 at 16:20
  • \$\begingroup\$ @algorithmshark Oh, right! I'll claim that star for now ;) \$\endgroup\$ – ɐɔıʇǝɥʇuʎs Jun 5 '14 at 16:42
1
\$\begingroup\$

R, 35 characters (sum of 3086) 26 bytes (sum of 2305)

sum(utf8ToInt(readline()))

readline() is one character longer than scan(,"") but scan split the input on spaces by default.

Usage:

> 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
\$\endgroup\$
1
\$\begingroup\$

Japt, 6 bytes (non-competing)

This answer is non-competing because Japt was created after this challenge was posted.

U¬mc x

Pretty simple. Try it online!

How it works

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
\$\endgroup\$
  • \$\begingroup\$ Out of curiosity, why didn't you assign ¬ to a negation of some sort? \$\endgroup\$ – Conor O'Brien Jan 6 '16 at 0:49
  • \$\begingroup\$ @CᴏɴᴏʀO'Bʀɪᴇɴ Because I was in a hurry and just assigned them as I saw need, without planning ahead. I have a set that makes more sense ready to be rolled out, by changing one line of code, but I'm leery about that because it'd invalidate nearly every existing answer. \$\endgroup\$ – ETHproductions Jan 6 '16 at 19:51
  • \$\begingroup\$ That's an easy fix. Add a conditional to the header (e.g., url/interpreter.html#new=1); anything without it uses the old character set, and anything with it uses the new character set. \$\endgroup\$ – Conor O'Brien Jan 6 '16 at 19:53
  • \$\begingroup\$ @CᴏɴᴏʀO'Bʀɪᴇɴ Thanks, I'll consider that. \$\endgroup\$ – ETHproductions Jan 6 '16 at 19:54
1
\$\begingroup\$

PlatyPar, 2 bytes (non-competing)

us

Try it online!

u generates an array of all charcode values in the input string, and s finds their sum.

When run on itself, it returns 232.

This is similar to Conor's Jolf answer, except that I use a byte to convert the string into an array of character codes (which is implicit in Jolf), whereas he uses a byte to retrieve the input (which is implicit in PlatyPar).

\$\endgroup\$
1
\$\begingroup\$

JavaScript function golf, 77 bytes (non-competing)

var s=i();var x=0;for(var i1=0;i1<sl(s);i1++){x+=schca(s,i1);}console.log(x);

I made this for you!

Yes, you got it right, it's my own function golf again. It recently got a string functions update.

The language was created after the challenge, so it's non-competing.

Validity source:

>>> var s=i();var x=0;for(var i1=0;i1<sl(s);i1++){x+=schca(s,i1);}console.log(x);
Hello World!
1085

Bonus score:

>>> var s=i();var x=0;for(var i1=0;i1<sl(s);i1++){x+=schca(s,i1);}console.log(x);
var s=i();var x=0;for(var i1=0;i1<sl(s);i1++){x+=schca(s,i1);}console.log(x);
6276
\$\endgroup\$
1
\$\begingroup\$

Java 8, 113 chars

BigInteger C(String s){BigInteger i=BigInteger.ZERO;s.chars().forEach(x->i=i.add(BigInteger.valueOf());return i;}

Note each character in Java is Unicode 1-4 bytes unsigned integer, using sum function would easily overflow.

Detailed

BigInteger C (String s)
{
    BigInteger i = BigInteger.ZERO;

    s.chars().forEach(x -> i = i.add(BigInteger.valueOf(x));

    return i;
}

Java 8, 57 chars

ASCII only solution

int C(String s){return s.chars().filter(x->x<128).sum();} 

Detailed try here

public static int C (String s)
{
    return s
        .chars() // stream the characters
        .filter(x -> x < 128) // filter ASCII (optional)
        .sum(); // return the sum
}
\$\endgroup\$
  • \$\begingroup\$ Maybe you misunderstood -- you must work with at least ASCII, so there is no reason for you to filter ascii. \$\endgroup\$ – cat Apr 22 '16 at 2:28
  • \$\begingroup\$ @cat I fixed it now, the solution wouldn't work for unicode since int would easily overflow even if you just sum two characters with higher than 2^32 / 2 \$\endgroup\$ – Khaled.K Apr 22 '16 at 8:38

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.