Tarea

Construya una calculadora, que tome cualquier cadena, de un archivo, stdin o lo que sea, y sume todos los valores de los caracteres.

Ejemplo

Input
Hello World!

Output
1085

Reglas

La calculadora debe aceptar solo la codificación ASCII.

El código más corto gana.

Notas

En cuanto al comentario de m.buettner, debo decir que no pensé en la parte multibyte.
Así que también lo dejo como algo extra.
La calculadora debe ejecutarse como está escrita, por lo que no es necesario modificarla antes de compilarla o interpretarla.

Prima

Gracias a Synthetica , aquí hay una ventaja más,

El programa que tiene la salida más baja cuando usa su código como su entrada gana obtiene una estrella.

No quiero modificarlo por completo.

Si lo escribe adicionalmente para generar el valor (derecho) en UTF-8, obtendrá una estrella.

El código que se ejecuta más rápido en mi computadora portátil (Lenovo Yoga 13 Intel Core i5 3317U 1.7Ghz, 8GB RAM, 128GB SSD, Intel HD 4000, Windows 8) se convierte en una estrella.

Los códigos web se ejecutarán primero en IE11 con chakra y luego en FireFox 29.0.1 con SpiderMonkey

El código de Linux se ejecutará en una Raspberry Pi con Raspbian.

La cadena de prueba es esta:

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

Diviértete codificando :)

Bonusscoring

Planeo hacer la puntuación este sábado, así que el 07.06.14, todas las respuestas después de esa fecha no obtendrán puntos de bonificación;)

Puede descargar el código que usaré para probar aquí, no dude en bifurcarlo y mejorarlo :)

Pequeña actualización debido a la bonificación, mi computadora portátil está parcialmente rota, así que lo haré probablemente el próximo fin de semana, lo siento mucho :(

GolfScript, 4 caracteres

{+}*

Simplemente usa el operador de plegado ( *) para sumar todos los caracteres.

Si tiene que trabajar con la cadena vacía, 9 caracteres:

{{+}*}0if

Gracias a @PeterTaylor por proporcionar una versión alternativa de 6 caracteres que funciona con una cadena vacía:

0\{+}/

APL (8)

+/⎕UCS⍞

Explicación:

• +/ la suma de
• ⎕UCS valores unicode de
• ⍞ entrada de caracteres

Haskell 36

main=interact$show.sum.map fromEnum

Herramientas de Shell + GNU, 29 bytes

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

Toma entrada de stdin:

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

Puntaje propio: 2385

c, 52 bytes

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

Compilar con (algunas advertencias producidas):

gcc addchars.c -o addchars

Toma entrada de stdin:

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

Puntaje propio: 4354

Javascript ( ES6 ) 51

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

gs2 , 1 byte

d

d( 0x64/ sum), por supuesto, resume todos los bytes en la entrada estándar.

Python 3 - 28 bytes

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

Ejemplo de ejecución:

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

Obtiene la entrada de stdin, maps la ordfunción para obtener el valor ASCII de cada carácter, sums it y prints.

Conjunto 8086 (16 bits) - 47 41 bytes

Los contenidos del test.comarchivo son:

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

El trabajo real se realiza en los primeros 11 bytes; Necesito el resto para imprimir el resultado en notación decimal.

Código fuente (dar como entrada al debug.comensamblador de 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

Algunas notas sobre el código:

• Solo maneja una línea (hasta el final del carácter de línea 13); se cuelga si no hay fin de línea
• Solo se admiten caracteres de 7 bits (de lo contrario, los resultados son incorrectos)
• Salidas 0 para entrada vacía
• No puede manejar una salida mayor a 64K
• La instrucción en la dirección 0x10d se sobrescribe (pura coincidencia)
• Tiene que usar emuladores de DOS como DosBox para ensamblar y ejecutar este programa

CJam, 3 bytes (suma 260)

q1b

Puedes probarlo en línea .
Gracias jimmy23013 por ayudar a cortar 2 caracteres :)

Explicación:

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

Befunge98, 6 bytes, suma: 445

2j@.~+

Cualquier intérprete debería estar bien. Yo uso CCBI .

Use de la siguiente manera:

printf 'Hello World!' | ccbi calc.fg

Funciona para caracteres multibyte y cadenas vacías.

Explicación

• 2j- saltar sobre las siguientes dos instrucciones ( @y. - ver más abajo)
• ~ - poner el siguiente personaje en la pila
• +- Agregar el valor del código del nuevo carácter a la suma actual. El puntero de instrucción se ajusta al principio y el ciclo se repite.
• cuando ~ encuentra un EOF, invierte la dirección del puntero y se ejecutan las dos instrucciones "ocultas":
• . - imprimir la suma
• @ - salida

Ruby, 13 12 bytes

p~9+gets.sum

sumes una función incorporada que suma los caracteres de una cadena. Resta 10 para dar cuenta de la nueva línea al final degets valor de retorno '.

(Editado 4 años después para cambiar x-10a ~9+x... el valor de ~9es -10, pero nos permite eliminar el espacio entre py su argumento, guardando un byte).

PowerShell - 27

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

Ejemplo

> SumChars.ps1 'Hello World!'

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

Julia - 11 7 caracteres, suma resultante = 943 536

Como la pregunta permite que la entrada provenga de la fuente que desee, elijo una variable existente. Suponga que Acontiene la cadena que deseamos evaluar.

sum(A)1

Como resultado, puede sumar la cadena directamente, y evaluará ... sin embargo, debido a la forma en que se maneja la suma de caracteres, si hay un número impar de caracteres en la cadena, generará un carácter, en lugar de un entero de cualquier tipo. Como tal, lo forzamos a lanzar a int multiplicando por 1.

Versión antigua:

sum(A.data)

Saldrá en una notación hexadecimal (si la suma es menor que 256, será 0x??, de lo contrario será 8 byte como 0x????????). Si se usa en el código donde se usa el resultado, funcionará como cualquier otro número (así es como Julia muestra las entradas sin firmar).

Para ver el valor del resultado en decimal, encierre lo anterior en int(), como en int(sum(A.data)).

Para cualquiera que no conozca a Julia, usted asigna Aexactamente de la misma manera que hace otras asignaciones a las variables. Entonces, A="Hello World!"o A="sum(n.data)". En el caso de que usted necesita para poner en "o 'caracteres, hay múltiples opciones, el más fácil de los cuales (ya que evita la necesidad de conocimiento de los matices de los literales de cadena Julia) está A=readline(), siguieron simplemente escribiendo en la cadena en STDIN (won' t manejar nuevas líneas, sin embargo). La secuencia de escape para nueva línea es, como de costumbre, \npero no creo que pueda usar eso con readline ().

K5, 2 bytes (función), 5 bytes (programa)

Función

+/

Programa

+/0:`

No estoy seguro de si K5 se creó antes o después de publicar este desafío. Independientemente ... ¡ESTO ES IMPRESIONANTE!

En K5, si realiza operaciones aritméticas en cadenas, convierte los caracteres a sus códigos ASCII. Entonces, esto solo usa el operador de suma +/(en realidad, es más + más).

Matlab / Octave 4 bytes (bonificación: 405)

Este código es una función anónima, que hace el trabajo, tomará una cadena y devolverá el número requerido.

@sum

Ir (59 caracteres)

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

Todo en Go es utf8 por defecto. El texto de código en `delímetros ejecutados a través de sí mismo da una salida de: 5399.

Jolf, 2 bytes (no competidor)

Pruébalo aquí!

ui
u  sum of
 i  the input string

Umm ... no sé qué más decir.

Gol> <> , 4 bytes (no competitivos)

Nota: este lenguaje es más nuevo que el desafío.

iEh+

Javascript ES6, 41 bytes

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

¡Gracias a @ETHproductions por 2 bytes guardados!

Python, 24 bytes

Esto es más corto que cualquier solución de Python hasta ahora: una función anónima sin nombre, que toma la cadena como argumento y devuelve la suma.

lambda x:sum(x.encode())

Pruébalo en línea!

Primero, lo x.encode()transforma en un bytesobjeto. Luego, sumagrega los valores del código de caracteres. Como se trata de una función lambda, el valor es implícitamente devuelto.

Además, uno podría tener lambda x:sum(map(ord,x))el mismo número de bytes.

SML 42 36

Solo agrego otro idioma.

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

Convierte String en una matriz de caracteres, calcula el número ASCII de cada valor y calcula la suma de todos los números ASCII.

C 32

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

D (función: 60)

Definitivamente no en él para ganarlo.

Asumiendo que no necesita ser un programa completo

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

Llamado así

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

Salida:

Hello World! = 1085

D (programa: 133)

No cuenta saltos de línea.

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

Con más espacios en blanco y nombres de variables más largos para facilitar la lectura.

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

Para admitir saltos de línea en la entrada, podría usar byLine(KeepTerminator.yes), de la manera correcta, para 20 caracteres, o agregar un '\n'a mi línea, que rompe la entrada de una sola línea y puede dar la suma incorrecta en Windows debido a CRLF, para 18 caracteres.

JavaScript (ES6) 54 58

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

54 bytes gracias a nderscore :

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

Delfos ( 87 83)

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

Sin golf

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

Recorre Sagregando el ordvalor del carácter al resultado. donde x == resultado

Ediciones:

Guardado 4 caracteres cambiando a int64 y cambiando la suma a la suma.

k (8 caracteres)

+/6h$0:0

Q traducción

sum `int$read0 0

Valor de bonificación:

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

J (7)

Tan cerca, pero tan lejos ... Oh, bueno, supongo que 7 es lo suficientemente decente, ya que esta respuesta también acepta cadenas vacías. (Estoy basando mi uso de una variable como entrada en la frase from a file, stdin or whatever)

+/a.i.b

Explicación:

a.

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

a. contiene todos los caracteres ASCII.

   'people' i. 'pow'
0 2 6

x i. yes similar al de pitón [x.index(i) for i in y].

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

Por lo tanto, se a. i. yconvierte yen una matriz de sus valores ASCII

   +/1 2 3 4 5 6
21

+/es como sum: +/1 2 3 4 5 6significa1+2+3+4+5+6

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

Todo en acción

Por el bono:

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

No está mal, supongo.

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

Bueno, maldita sea.

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

Gracias @algorithmshark

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

Gracias @marinus

R, 35 caracteres (suma de 3086) 26 bytes (suma de 2305)

sum(utf8ToInt(readline()))

readline()es un carácter más largo que, scan(,"")pero scandivide la entrada en espacios de forma predeterminada.

Uso:

> 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 bytes (no competitivos)

Esta respuesta no es competitiva porque Japt se creó después de publicar este desafío.

U¬mc x

Bastante simple. Pruébalo en línea!

Cómo funciona

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 bytes (no competitivos)

us

Pruébalo en línea !

ugenera una matriz de todos los valores de código de char en la cadena de entrada y sencuentra su suma.

Cuando se ejecuta sobre sí mismo, vuelve 232.

Esto es similar a la respuesta Jolf de Conor , excepto que uso un byte para convertir la cadena en una matriz de códigos de caracteres (que está implícito en Jolf), mientras que usa un byte para recuperar la entrada (que está implícito en PlatyPar).