20
\$\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\$
17
  • 3
    \$\begingroup\$ I get 1085 for Hello World! using two different languages for ASCII values on my computer. \$\endgroup\$ Commented Jun 5, 2014 at 14:21
  • 1
    \$\begingroup\$ He probably forgot to add the '!'. edit you were 3 seconds faster... \$\endgroup\$ Commented Jun 5, 2014 at 14:22
  • 1
    \$\begingroup\$ Could one please explain the downvotes? \$\endgroup\$ Commented Jun 5, 2014 at 14:33
  • 4
    \$\begingroup\$ My guess is that the downvotes indicate that it's not really a good problem. \$\endgroup\$ Commented Jun 5, 2014 at 14:37
  • 6
    \$\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\$ Commented Jun 5, 2014 at 14:43

87 Answers 87

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

APL (8)

+/⎕UCS⍞ 

Explanation:

  • +/ sum of
  • ⎕UCS unicode values of
  • character input
\$\endgroup\$
7
  • \$\begingroup\$ What would be the result for Hello World!? \$\endgroup\$ Commented Jun 5, 2014 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\$ Commented Jun 5, 2014 at 14:43
  • \$\begingroup\$ ok, I didn't got what the means ;) \$\endgroup\$ Commented Jun 5, 2014 at 14:44
  • 1
    \$\begingroup\$ @knerd: means read a line from the keyboard \$\endgroup\$ Commented Jun 5, 2014 at 14:49
  • \$\begingroup\$ Do you know an APL interpreter that is free? \$\endgroup\$ Commented Jun 5, 2014 at 17:05
7
\$\begingroup\$

gs2, 1 byte

d 

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

\$\endgroup\$
6
\$\begingroup\$

Haskell 36

main=interact$show.sum.map fromEnum 
\$\endgroup\$
9
  • \$\begingroup\$ From where does it read the text? \$\endgroup\$ Commented Jun 5, 2014 at 14:47
  • \$\begingroup\$ stdin. $ printf "Hello World!" | ./charsum \$\endgroup\$ Commented Jun 5, 2014 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\$ Commented Jun 5, 2014 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\$ Commented Jun 5, 2014 at 16:25
  • 1
    \$\begingroup\$ use interact and show instead of getContents>>=print: main=interact$show.sum.map fromEnum \$\endgroup\$ Commented Jun 5, 2014 at 17:59
6
\$\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\$
7
  • \$\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\$ Commented Jun 6, 2014 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\$ Commented Jun 6, 2014 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\$ Commented Jan 4, 2016 at 1:46
  • \$\begingroup\$ @AshwinGupta Are you talking about the od command? od -AntuC does not do the same as od -An -tuC. \$\endgroup\$ Commented Jan 4, 2016 at 15:43
  • \$\begingroup\$ @DigitalTrauma yeah I was. I meant couldn't you do od-An-tuC or od -An-tuC \$\endgroup\$ Commented Jan 4, 2016 at 23:22
6
\$\begingroup\$

Javascript (ES6) 51

alert([...prompt(x=0)].map(y=>x+=y.charCodeAt())|x) 
\$\endgroup\$
4
  • \$\begingroup\$ @nderscore Can you explain what the ... before the prompt does? Is this a new ES6 thing or is it pre-ES6? \$\endgroup\$ Commented Jun 20, 2014 at 0:41
  • 1
    \$\begingroup\$ @WallyWest It's called a spread operator and it's part of the ES6 draft. \$\endgroup\$ Commented Jun 20, 2014 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\$ Commented Jun 25, 2014 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\$ Commented Jan 6, 2016 at 6:27
6
\$\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\$
4
  • \$\begingroup\$ How can you understand that? o.O \$\endgroup\$ Commented Jun 19, 2014 at 8:04
  • \$\begingroup\$ Love the brutality of just writing the output right into your code :) BTW, You can -2 bytes in the "Prepare for output" section by replacing mov di, ax with xchg ax, di and also mov ax, bx with xchg ax, bx. Nice work! \$\endgroup\$ Commented Jan 20, 2020 at 16:08
  • \$\begingroup\$ You could also use si instead of di for the output buffer pointer since on all mainstream versions of DOS si is initialized to 100h by default saving one my byte by removing the xchg ax, di. \$\endgroup\$ Commented Jan 20, 2020 at 16:22
  • \$\begingroup\$ OR (last one I promise) you could use bx for your pointer and move mov cl, 0ah and xchg ax, bx above mov byte ptr [bx], '$' and it'll use the 0x10d address as you had it before. Same 38 byte size as above though. \$\endgroup\$ Commented Jan 20, 2020 at 16:59
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
  • 1
    \$\begingroup\$ q1b is shorter. \$\endgroup\$ Commented Jan 4, 2016 at 3:24
5
\$\begingroup\$

Ruby, 13 12 bytes

p~9+gets.sum 

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.

(Edited 4 years later to change x-10 to ~9+x... the value of ~9 is -10, but it lets us remove the space between p and its argument, saving a byte.)

\$\endgroup\$
2
  • \$\begingroup\$ I am not familiar with Ruby at all, could you explain your code please? \$\endgroup\$ Commented Jun 5, 2014 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\$ Commented Jun 5, 2014 at 14:35
4
\$\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\$
5
  • \$\begingroup\$ Ninja'd, I had the exact same idea. +1 for that. \$\endgroup\$ Commented Jun 5, 2014 at 15:16
  • \$\begingroup\$ @TheRare So did I, even though mine was longer, because I used Python 2.7. I'm getting rusty ;) \$\endgroup\$ Commented Jun 5, 2014 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\$ Commented Jun 5, 2014 at 15:18
  • 1
    \$\begingroup\$ @TheRare Which was my exact answer ;) \$\endgroup\$ Commented Jun 5, 2014 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\$ Commented Jun 6, 2014 at 14:30
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\$

Python, 24 bytes

This is shorter than any Python solution so far: an unnamed anonymous function, which takes the string as an argument, and returns the sum.

lambda x:sum(x.encode()) 

Try it online!

First, x.encode() transforms it into a bytes object. Then, sum adds the char-code values. As this is a lambda function, the value is implicity returned.

Additionally, one could have lambda x:sum(map(ord,x)) for the same byte count.

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

PowerShell - 27

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

Example

> SumChars.ps1 'Hello World!' Count : 12 Average : Sum : 1085 Maximum : Minimum : Property : 
\$\endgroup\$
1
  • \$\begingroup\$ 26 if you use [char[]]"$args"|measure -s as long as there is only one $arg entry. \$\endgroup\$ Commented Jan 5, 2019 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\$
4
  • \$\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\$ Commented Jun 6, 2014 at 7:09
  • \$\begingroup\$ @Knerd - I've edited it in. Hope that helps. \$\endgroup\$ Commented Jun 6, 2014 at 11:12
  • \$\begingroup\$ Minor change - switched variable from n to A to reduce the resultant sum from 988 to 943. \$\endgroup\$ Commented Jun 6, 2014 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\$ Commented Jun 6, 2014 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\$
1
  • \$\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\$ Commented Jan 6, 2016 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\$
1
  • \$\begingroup\$ I have to say I'm rather surprised there's no math.Sum for use with map or similar \$\endgroup\$ Commented Jan 2, 2016 at 14:37
2
\$\begingroup\$

Javascript ES6, 41 bytes

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

Thanks to @ETHproductions for 2 bytes saved!

\$\endgroup\$
1
  • 1
    \$\begingroup\$ How about _=>[..._].map(y=>x+=y.charCodeAt(),x=0)|x? \$\endgroup\$ Commented Jan 4, 2016 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
2
\$\begingroup\$

Gol><>, 4 bytes

iEh+ 
\$\endgroup\$
3
  • \$\begingroup\$ Is it pronounced like 'Golfish?' \$\endgroup\$ Commented Jan 2, 2016 at 18:01
  • \$\begingroup\$ @cat Yes, it's golfish. \$\endgroup\$ Commented Jan 2, 2016 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\$ Commented Jan 6, 2016 at 15:22
2
\$\begingroup\$

Jolf, 2 bytes

Try it here!

ui u sum of i the input string 

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

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

Vyxal, 2 bytes

C∑ 

Try it Online!

Explained

C∑ C # char ∑ # sum 
\$\endgroup\$
2
\$\begingroup\$

Fig, \$1\log_{256}(96)\approx\$ 0.823 bytes

S 

Try it online!

\$\endgroup\$
1
  • \$\begingroup\$ imagine my disappointment when I scroll down \$\endgroup\$ Commented Oct 11, 2022 at 21:06
1
\$\begingroup\$

C 32

f(char*s){return*s?*s+f(s+1):0;} 
\$\endgroup\$
3
  • \$\begingroup\$ main(int argc,char **argv){return(argc?main(0,&(argv[1])):(**argv?**argv+main(0,argv)+((*argv)++?0:0):0));} (107 chars) though it ignores the first character for some reason. Also, POSIX exit codes are only 8 bits; in bash, echo $?. \$\endgroup\$ Commented Jun 5, 2014 at 19:27
  • \$\begingroup\$ the rules were a little bit broad so i didn't use main. i'll work on something shorter maybe \$\endgroup\$ Commented Jun 5, 2014 at 19:51
  • \$\begingroup\$ @bebe I changed the rules a bit, to make it clear what is needed ;) \$\endgroup\$ Commented Jun 6, 2014 at 7:11
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\$
1
  • \$\begingroup\$ +1 for posting even if you know, that you won't win \$\endgroup\$ Commented Jun 5, 2014 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\$
6
  • \$\begingroup\$ Works good, I tried it by now in es6fiddle.net \$\endgroup\$ Commented Jun 5, 2014 at 17:20
  • \$\begingroup\$ You could just use Firefox ;) \$\endgroup\$ Commented Jun 5, 2014 at 17:30
  • 1
    \$\begingroup\$ I was at work so :D \$\endgroup\$ Commented Jun 5, 2014 at 17:40
  • 1
    \$\begingroup\$ 54: alert([...prompt()].reduce((v,c)=>v+c.charCodeAt(),0)) \$\endgroup\$ Commented Jun 6, 2014 at 0:37
  • 1
    \$\begingroup\$ Got it down to 51 now :) alert([...prompt(x=0)].map(y=>x+=y.charCodeAt())|x) \$\endgroup\$ Commented Jun 6, 2014 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\$
3
  • \$\begingroup\$ Do you have a free version of Delphi (insert you version here) availiable? \$\endgroup\$ Commented Jun 6, 2014 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\$ Commented Jun 6, 2014 at 14:57
  • \$\begingroup\$ Ok, I gonna check that out. \$\endgroup\$ Commented Jun 6, 2014 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\$
6
  • \$\begingroup\$ +1 for the great explanation. One little question, where can I best execute J? \$\endgroup\$ Commented Jun 5, 2014 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\$ Commented Jun 5, 2014 at 15:10
  • \$\begingroup\$ @Synthectica That is cool :D Now I need an Android smartphone :P \$\endgroup\$ Commented Jun 5, 2014 at 15:11
  • \$\begingroup\$ Renaming b to A results in a score of 449. \$\endgroup\$ Commented Jun 5, 2014 at 16:20
  • \$\begingroup\$ @algorithmshark Oh, right! I'll claim that star for now ;) \$\endgroup\$ Commented Jun 5, 2014 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\$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.