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

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 ¤.

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.

PowerShell

((310))

prints 310.

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)

Ruby, prints 380

p (380)

No trailing newline after the closing parenthesis.

PowerShell

(230)

prints 230, obviously.

PowerShell

-(-320)

prints 320.

J, 150

?!6

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

Python, prints 781

print  781

Two spaces.

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.

PHP, prints 4440

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

Perl, prints 690

die 690 . $/

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

say(570)

Prints 570.

(No trailing newlines)

PowerShell, prints 3902

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

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

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)

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

Ruby, prints 300

p   300

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

Batch files, 500

ECHO  500

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

C, 1700

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

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

No newline at the end.

INTERCAL, 1572

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

DOREADOUT#1572


DOGIVEUP

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

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:

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.

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

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

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.)

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="

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.

Scala 1090

println (1090)

Python, 5440

Highest score wins, right?

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

I just thought I'd post it anyway b/c it's a halfway quine solution.