Su tarea es escribir un programa para imprimir la suma de los códigos ASCII de los caracteres del programa en sí. No está permitido abrir ningún archivo (está prohibida cualquier entrada, como argumentos de línea de comando, entrada estándar o archivos).

El programa que imprime el número más bajo (es decir, tiene la suma más baja de códigos ASCII) gana.

Aquí hay un ejemplo (no el más corto) de dicho programa escrito en C:

#include <stdio.h>
int main(){
printf("4950");/*i*/
return 0;
}

(sin nueva línea después })

wc, imprime 0

Alguien dijo "lenguajes felinos", así que ...

Un archivo vacio:

Ejecutar con wc -c file.wc. Con 0 bytes, creo que este es el ganador en la categoría 'no es realmente un lenguaje de programación'.

también

gato, estampados 80 (base 13)

80

Sin nueva línea de terminación, el número 80 ₁₃ es equivalente a 104 en decimal. Puedes ir más corto con 60 ₁₇ (102 dec), pero pensé que "base 13" valdría más puntos geek.

EDITAR: Nuevo wcejemplo, este se puede ejecutar como un programa.

#!/usr/bin/wc
ÿÿzw17

(Como se codifica en Latin-1, el ÿ es un byte con valor 255)

La suma de bytes es 2223, la salida es:

  2  2 23 ./w

PHP, m4 y otros lenguajes tipo gato: 150

150

Encontré esta solución usando un programa simple de Haskell para forzarlo:

f :: String -> Bool
f s = (read s :: Int) == (sum . map fromEnum) s

main = mapM_ print [filter f $ sequence $ replicate n ['0'..'9'] | n <- [1..10]]

Brainf * ck, 255

-.¤

Esto no imprimirá el número 255, sino el 255 ° carácter ASCII.

Esto podría considerarse trampa porque el compilador BF omite el ¤.

Javascript, imprime 9432 6902

(function a(){b="("+a+")()";c=0;for(i=0;i<b.length;i++){c+=b.charCodeAt(i-0)}alert(c)})()

Esta es la primera solución quine hasta ahora, a menos que no entienda la solución Haskell correctamente.

Potencia Shell

((310))

impresiones 310.

Perl, 500

say     500

Hay dos pestañas entre sayy 500. :)

(Corre con una sola línea perl -E, por lo que puedo decir, esto está dentro de las reglas)

Ruby, impresiones 380

p (380)

No hay nueva línea final después del paréntesis de cierre.

Potencia Shell

(230)

imprime 230, obviamente.

Potencia Shell

-(-320)

impresiones 320.

J 150

?!6

Con la advertencia de que será correcto solo 1/720 del tiempo.

Python, impresiones 781

print  781

Dos espacios

Element, 220

Este es un lenguaje de mi propia creación, y está documentado en mi respuesta a otra pregunta aquí .

220`!

Aquí hay un tutorial de cómo funciona: 220empuja ese número a la pila. Luego, `` outputs the top element of the stack. The! 'Realiza una lógica no en la pila de control (una pila separada), configurándola en 1.

PHP, imprime 4440

<?php
for($x=0;$x<15000;$x++)if($x==4440){printf($x);exit;}

PowerShell, imprime 3902

&{[char[]]$myinvocation.Line|%{$s+=+$_};$s}

Busca en la línea actualmente ejecutada y suma los valores de los puntos de código.

INTERCAL, 1572

¡No puedo creer que nadie haya hecho INTERCAL todavía!

DOREADOUT#1572


DOGIVEUP

(Incluye nueva línea de terminación). Este programa imprime MDLXXII.

Perl, imprime 690

die 690 . $/

O, si podemos publicar one-liners ( perl -E)

say(570)

Impresiones 570.

(No hay nuevas líneas finales)

JavaScript 1750 900 860 790

alert(790)

(Devolución de carro (CR, \ro \x0D) después o antes del programa)

Estos programas se encuentran por fuerza bruta.

Valores más grandes:

alert(860)%0
alert(900)&&6
document.write(1750)

Java -128

Sé que leer stdin no está permitido, pero quería proporcionar un ejemplo de cómo calculé mi puntaje.

Mi código resume el recuento ASCII de sí mismo pasado en stdin e imprime -128

class P{public static void main(String[]z)throws Exception{byte v=0;int b=0;while((b=System.in.read())!=-1){v+=(byte)b;}System.out.println(v);}}

Sin nueva línea final

Ruby, imprime 300

p   300

Hay un espacio y una pestaña entre el py el 300. Sin nueva línea final.

Archivos por lotes, 500

ECHO  500

Además, observe los dos espacios entre "ECHO" (mayúsculas a propósito) y "500".

C, 1700

Extraño: nadie ha publicado una solución C todavía (excluyendo el ejemplo en la pregunta).

main(R){puts("1700");}

No hay línea nueva al final.

K ( 923 796 795 746 513)

No estoy seguro de si esto cae en conflicto con las reglas o no. No usa stdin, se abre como un vector de bytes y sumas.

+/1:.z.f

Uso:

q scriptname.k

editar 2012.05.08 - no es necesario hsym el identificador de archivo 2012.05.09 - guardado 1 punto al convertir en byte en lugar de int

2012.05.17 - Puede guardar una carga de puntos leyendo el archivo como bytestream en lugar de texto:

J, 198

33*6

y

6*33

Lo encontré por la fuerza bruta. En J no hay soluciones de 1 o 2 caracteres, y la única solución de 3 caracteres es 150. Salvo cualquier error en mi búsqueda, tampoco hay otras soluciones de 4 caracteres.

Desde el canal #jsoftware IRC, también tuvimos <.%:10!20429 y una quine de conteo automático +/a.i.2#(,{:)'+/a.i.2#(,{:)'''en 1706.

aC 1160

invocado con eco y espacios en blanco, toda la cadena, incluidos 7 espacios en blanco, echo 1160 | bctiene un bytes de 1160.

echo 1160    |  bc

150 funciona para bc también:

echo "150" > 150
bc -q 150
150

D, 9752

este en realidad lo calcula similar a mi quine

enum c=q{import std.stdio;void main(){int s;foreach(d;"enum c=q{"~c~"};mixin(c);")s+=d;write(s);}};mixin(c);

Espacio en blanco, 369

Este programa de 20 caracteres imprime el número 369, que es la suma de los valores ascii de sus caracteres (que son caracteres Tab, Space, Linefeed, aquí simbolizados por T, S, L, respectivamente):

SSSTSTTTSSSTLTLSTLLL

(369 = 7 * 9 + 8 * 32 + 5 * 10, habiendo 7 pestañas, 8 espacios y 5 avances de línea).

Haskell, 7518

Una pequeña modificación de mi quine :

main=print.sum.map fromEnum$q++show q;q="main=print.sum.map fromEnum$q++show q;q="

Brainf * ck, 253 (o 252)

Ligera mejora en la solución de Peter Olson:

---.H

Siempre que se permitan no imprimibles, se puede mejorar aún más agregando ay -reemplazando Hpor el código 26 ASCII.

Scala 1090

println (1090)

Python, 5440

La puntuación más alta gana, ¿verdad?

import sys
print sum(ord(i)for i in open(sys.argv[0]).read())

Solo pensé que lo publicaría de todos modos porque es una solución a medias.