Ваша задача - написать программу для вывода суммы ASCII-кодов символов самой программы. Вам не разрешено открывать какие-либо файлы (любые входные данные, такие как аргументы командной строки, стандартный ввод или файлы запрещены).

Программа, которая печатает наименьшее число (то есть имеет наименьшую сумму кодов ASCII), побеждает.

Вот пример (не самый короткий) такой программы, написанной на C:

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

(нет новой строки после })

туалет, печать 0

Кто-то сказал "кошачьи языки", так что ...

Пустой файл:

Выполнить с wc -c file.wc. При 0 байтах я думаю, что это победитель в категории «не совсем язык программирования».

Также

кот, отпечатки 80 (база 13)

80

Не завершающий перевод строки, число 80 ₁₃ эквивалентно 104 в десятичном виде. Вы можете пойти короче с 60 ₁₇ (102 декабря), но я подумал, что «база 13» будет стоить больше очков гиков.

РЕДАКТИРОВАТЬ: Новый wcпример, этот можно запустить как программу.

#!/usr/bin/wc
ÿÿzw17

(Как закодировано в Latin-1 - ÿ является байтом со значением 255)

Сумма байтов составляет 2223, вывод:

  2  2 23 ./w

PHP, m4 и другие кошачьи языки: 150

150

Нашел это решение, используя простую программу на Haskell:

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

-.¤

Это не будет печатать число 255, а скорее 255-й символ ASCII.

Это можно считать обманом, потому что компилятор BF пропускает ¤.

Javascript, печать 9432 6902

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

Пока что это первое решение для Quine, если я не правильно понял Haskell .

PowerShell

((310))

отпечатки 310.

Perl 500

say     500

Есть две вкладки между sayи 500. :)

(Запускать как однострочник perl -E, насколько я могу судить, это в правилах)

Рубин, принты 380

p (380)

После закрывающей скобки нет завершающего символа новой строки.

PowerShell

(230)

отпечатки 230, очевидно.

PowerShell

-(-320)

отпечатки 320.

J 150

?!6

С оговоркой, что это будет правильно только 1 / 720th времени.

Питон, печать 781

print  781

Два пробела.

Элемент, 220

Это язык моего собственного творения, и он задокументирован в моем ответе на другой вопрос здесь .

220`!

Вот пошаговое руководство о том, как это работает: 220помещает это число в стек. Затем `` outputs the top element of the stack. The! `Затем выполняет логическое не в стеке управления (отдельный стек), устанавливая его в 1.

PHP, печать 4440

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

PowerShell, печать 3902

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

Просматривает текущую строку и суммирует значения кодовых точек.

ИНТЕРКАЛ, 1572

Я не могу поверить, что никто еще не сделал INTERCAL!

DOREADOUT#1572


DOGIVEUP

(Включает завершающий перевод строки.) Эта программа выводит MDLXXII.

Perl, печать 690

die 690 . $/

Или, если мы можем опубликовать однострочники ( perl -E)

say(570)

Отпечатки 570.

(Нет завершающих строк)

JavaScript, 1750 900 860 790

alert(790)

(Возврат каретки (CR, \rили \x0D) после или перед программой)

Эти программы найдены путем перебора.

Большие значения:

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

Java-128

Я знаю, что читать stdin нельзя, но я хотел привести пример того, как я рассчитал свой счет.

Мой код суммирует подсчет ASCII самого себя, переданного на стандартный ввод, и выводит -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);}}

Нет новой строки

Рубин, отпечатки 300

p   300

Существует пространство и вкладки между pи 300. Нет завершающего перевода строки.

Пакетные файлы, 500

ECHO  500

Также обратите внимание на два пробела между «ECHO» (заглавными буквами) и «500».

С, 1700

Странно - еще никто не опубликовал решение C (исключая пример из вопроса).

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

Нет новой строки в конце.

К ( 923 796 795 746 513)

Я не уверен, что это противоречит правилам или нет. Он не использует stdin, он открывается как вектор байтов и сумм.

+/1:.z.f

Использование:

q scriptname.k

редактировать 2012.05.08 - не нужно hsym дескриптор файла 2012.05.09 - сохранено 1 балл путем преобразования в байт вместо int

2012.05.17 - Можно сохранить загрузку точек, считывая файл в виде потока, а не текста:

J, 198

33*6

и

6*33

Нашел это грубой силой. В J нет 1 или 2-символьных решений, и единственное 3-символьное решение есть 150. За исключением каких-либо ошибок в моем поиске, также нет других 4-символьных решений.

На IRC-канале #jsoftware у нас тоже было <.%:10!20429, а +/a.i.2#(,{:)'+/a.i.2#(,{:)'''в 1706 - счетный счетчик .

до н.э. 1160

вызывается с эхом и пробелами, вся строка, включая 7 пробелов, echo 1160 | bcимеет байт 1160.

echo 1160    |  bc

150 работает для до н.э .:

echo "150" > 150
bc -q 150
150

D 9752

этот на самом деле вычисляет это похоже на мою квину

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

Пробел, 369

Эта 20-символьная программа печатает число 369, которое является суммой значений ascii ее символов (которые являются символами табуляции, пробела, перевода строки, здесь обозначены T, S, L соответственно):

SSSTSTTTSSSTLTLSTLLL

(369 = 7 * 9 + 8 * 32 + 5 * 10, есть 7 вкладок, 8 пробелов и 5 перевод строки.)

Хаскелл, 7518

Небольшая модификация моей квинны :

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

Brainf * ck, 253 (или 252)

Незначительное улучшение решения Питера Олсона:

---.H

При условии, что недопечатаемые файлы разрешены, их можно еще улучшить, добавив -и заменив Hкод ASCII 26.

Scala 1090

println (1090)

Питон, 5440

Самый высокий балл побеждает, верно?

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

Я просто подумал, что выложу это в любом случае, потому что это наполовину готовое решение.