Write a program to print the sum of the ascii codes of the program

Question

Your task is to write a program to print the sum of the ASCII codes of the characters of the program itself. You are not allowed to open any file (Any input such as command line arguments, standard input or files is prohibited).

The program that prints the lowest number (i.e. has the lowest sum of ASCII codes) wins.

Here is an example (not the shortest) of such a program written in C:

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

(no new line after })

Answer 1

PHP, m4, and other cat-like languages: 150

150

Found this solution using a simple Haskell program to brute-force it:

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]]

Answer 2

wc, prints 0

Someone said "cat-like languages", so...

An empty file:

Execute with wc -c file.wc. At 0 bytes, I think this is the winner in the 'not really a programming language' category.

Also

cat, prints 80 (base 13)

80

No terminating newline, the number 80₁₃ is equivalent to 104 in decimal. You can go shorter with 60₁₇ (102 dec), but I figured "base 13" would be worth more geek points.

EDIT: New wc example, this one can be run as a program.

#!/usr/bin/wc
ÿÿzw17

(As encoded in Latin-1 - the ÿ is a byte with value 255)

Sum of bytes is 2223, output is:

  2  2 23 ./w

Answer 3

Brainf*ck, 255

-.¤

This will not print the number 255, but rather the 255th ASCII character.

This might be considered cheating because the BF compiler skips over the ¤.

Answer 4

Javascript, prints 9432 6902

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

This is the first quine solution so far, unless I am not understanding the Haskell one correctly.

Answer 5

PowerShell

((310))

prints 310.

Answer 6

Perl, 500

say     500

There are two tabs between say and 500. :)

(Run as a one-liner with perl -E, as far as I can tell this is within the rules)

Answer 7

Ruby, prints 380

p (380)

No trailing newline after the closing parenthesis.

Answer 8

PowerShell

(230)

prints 230, obviously.

Answer 9

PowerShell

-(-320)

prints 320.

Answer 10

J, 150

?!6

With the caveat that it will be correct only 1/720th of the time.

Answer 11

Python, prints 781

print  781

Two spaces.

Answer 12

INTERCAL, 1572

I can't believe no one's done INTERCAL yet!

DOREADOUT#1572


DOGIVEUP

(Includes terminating newline.) This program prints out MDLXXII.

Answer 13

Element, 220

This is a language of my own creation, and it is documented on my answer to another question here.

220`!

Here is a walkthrough of how it works: The 220 pushes that number onto the stack. Then the ` outputs the top element of the stack. The ! then performs a logical NOT on the control stack (a separate stack), setting it to 1.

Answer 14

PHP, prints 4440

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

Answer 15

PowerShell, prints 3902

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

Looks into the line currently run and sums the code point values.

Answer 16

C, 1700

Strange - nobody posted a C solution yet (excluding the example in the question).

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

No newline at the end.

Answer 17

J, 198

33*6

and

6*33

Found it by brute force. In J there are no 1 or 2 char solutions, and the only 3-char solution is 150. Barring any bugs in my search, there are no other 4-char solutions, either.

---

From the #jsoftware IRC channel, we also had <.%:10!20 at 429 and a self-counting quine +/a.i.2#(,{:)'+/a.i.2#(,{:)''' at 1706.

Answer 18

naz, score 777 333

3a
3o

I think this is allowed.

The newline is normalized to \r\n by the naz interpreter at runtime, a sequence which contributes 23 to the overall score.

Explanation

3a # Add 3 to the register
3o # Output 3 times

The previous solution:

7a2o1m1o1a

Answer 19

Perl, prints 690

die 690 . $/

Or, if we can post one-liners (perl -E)

say(570)

Prints 570.

(No trailing newlines)

Answer 20

JavaScript, 1750 900 860 790

alert(790)

(Carriage return (CR, \r or \x0D) after or before the program)

These programs are found by brute-forcing.

Bigger values:

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

Answer 21

Java -128

I know reading stdin isn't allowed but I wanted to provide an example of how I calculated my score.

My code sums the ASCII count of itself passed on stdin and prints out -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);}}

No trailing new line

Answer 22

Ruby, prints 300

p   300

There is a space and a tab between the p and the 300. No trailing newline.

Answer 23

Batch files, 500

ECHO  500

As well, notice the two spaces between "ECHO" (uppercase on purpose) and "500".

Answer 24

K (923 796 795 746 513)

I'm not sure if this falls afoul of the rules or not. It doesn't use stdin, it opens itself as a vector of bytes and sums.

+/1:.z.f

Usage:

q scriptname.k

edit 2012.05.08 - no need to hsym the file handle 2012.05.09 - saved 1 point by converting to byte instead of int

2012.05.17 - Can save a load of points by reading file as bytestream rather than text:

Answer 25

Lenguage, 4 bytes, prints 0

Source code consists of 4 null bytes. Therefore, it should output (0+0+0+0)=0.

Answer 26

bc 1160

invoked with echo and blanks, the whole String, including 7 blanks, echo 1160 | bc has a bytesum of 1160.

echo 1160    |  bc

150 works for bc too:

echo "150" > 150
bc -q 150
150

Answer 27

D, 9752

this one actually calculates it similar to my 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);

Answer 28

Whitespace, 369

This 20-character program prints the number 369, which is the sum of the ascii values of its characters (which are Tab,Space,Linefeed characters, here symbolized by T,S,L, respectively):

SSSTSTTTSSSTLTLSTLLL

(369 = 7*9 + 8*32 + 5*10, there being 7 Tabs, 8 Spaces, and 5 Linefeeds.)

Answer 29

Haskell, 7518

A small modification of my quine:

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

Answer 30

Brainf*ck, 253 (or 252)

Slight improvement on Peter Olson's solution:

---.H

Provided non-printables are allowed, it can be improved further by adding a - and replacing H by ASCII code 26.