당신의 임무는 프로그램 자체의 문자의 ASCII 코드의 합계를 인쇄하는 프로그램을 작성하는 것입니다. 파일을 열 수 없습니다 (명령 줄 인수, 표준 입력 또는 파일과 같은 입력은 금지됨).

가장 낮은 숫자를 인쇄하는 프로그램 (즉, 가장 낮은 ASCII 코드 합계를 가진 프로그램)이 승리합니다.

다음은 C로 작성된 그러한 프로그램의 예입니다 (가장 짧지 않음).

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

(이후에 줄 바꿈 없음 })

화장실, 0을 인쇄

누군가가 "고양이와 같은 언어"라고 말했습니다.

빈 파일 :

로 실행하십시오 wc -c file.wc. 0 바이트에서 나는 이것이 실제로 프로그래밍 언어가 아닌 범주에서 승자라고 생각합니다.

또한

고양이, 인쇄물 80 (기본 13)

80

종료 줄 바꿈이 없으면 숫자 80 ₁₃ 은 10 진수 104와 같습니다. 60 ₁₇ (102 12 월) 로 더 짧아 질 수 있지만, "base 13"이 더 괴짜 포인트가 될 것이라고 생각했습니다.

편집 : 새로운 wc예, 이것은 프로그램으로 실행될 수 있습니다.

#!/usr/bin/wc
ÿÿzw17

(라틴 -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 컴파일러가 ¤을 건너 뛰기 때문에 부정 행위로 간주 될 수 있습니다.

자바 스크립트, 인쇄 9432 6902

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

Haskell 솔루션을 올바르게 이해하지 못하면 지금까지 첫 번째 quine 솔루션 입니다.

PowerShell

((310))

310을 인쇄합니다.

펄, 500

say     500

say와 사이에 두 개의 탭이 있습니다 500. :)

( perl -E이것이 규칙 내에 있다고 말할 수 있는 한, 하나의 라이너로 실행하십시오 )

루비, 인쇄 380

p (380)

닫는 괄호 뒤에 줄 바꿈이 없습니다.

PowerShell

(230)

분명히 230을 인쇄합니다.

PowerShell

-(-320)

320을 인쇄합니다.

J, 150

?!6

경고는 시간의 1/720에 해당한다는 것입니다.

파이썬, 인쇄 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}

현재 실행중인 행을 살펴보고 코드 포인트 값을 합산합니다.

INTERCAL, 1572

아직 아무도 INTERCAL을하지 않았다고 믿을 수 없습니다!

DOREADOUT#1572


DOGIVEUP

(개행 종료 포함)이 프로그램은 MDLXXII를 인쇄합니다.

펄, 인쇄 690

die 690 . $/

또는 1 개의 라이너를 게시 할 수있는 경우 ( perl -E)

say(570)

570을 인쇄합니다.

(후행 줄 바꿈 없음)

자바 스크립트, 1750 900 860 790

alert(790)

( 프로그램 후 또는 전에 캐리지 리턴 (CR \r또는 \x0D))

이러한 프로그램은 무차별 강제 실행에 의해 발견됩니다.

더 큰 값 :

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

자바 -128

나는 stdin을 읽는 것이 허용되지 않는다는 것을 알고 있지만 점수를 어떻게 계산했는지에 대한 예를 제공하고 싶었습니다.

내 코드는 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

이상 함-아무도 C 솔루션을 아직 게시하지 않았습니다 (질문의 예 제외).

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

끝에 줄 바꿈이 없습니다.

K ( 923796795746513 )

이것이 규칙에 위배되는지 여부는 확실하지 않습니다. stdin을 사용하지 않고 바이트 및 합계 벡터로 열립니다.

+/1:.z.f

용법:

q scriptname.k

2012.05.08 편집-파일 핸들을 숨길 필요가 없습니다. 2012.05.09-int 대신 바이트로 변환하여 1 포인트 저장

2012.05.17-파일을 텍스트가 아닌 바이트 스트림으로 읽어서 많은 양의 포인트를 저장할 수 있습니다.

198 년

33*6

과

6*33

무차별적인 힘으로 찾았습니다. J에는 1 또는 2 개의 문자 솔루션이 없으며 유일한 3 문자 솔루션은 150입니다. 내 검색에서 버그를 제외하고 다른 4 문자 솔루션도 없습니다.

#jsoftware IRC 채널에서 우리는 또한 <.%:10!20429에, +/a.i.2#(,{:)'+/a.i.2#(,{:)'''1706 에는 자체 계산 퀴네를 가지고있었습니다 .

기원전 1160

echo와 blank를 사용하여 7 개의 공백을 포함한 전체 문자열 echo 1160 | bc의 바이트 수는 1160입니다.

echo 1160    |  bc

bc도 150에서 작동합니다.

echo "150" > 150
bc -q 150
150

D, 9752

이건 실제로 내 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);

공백, 369

이 20 자 프로그램은 숫자 369를 인쇄합니다.이 숫자는 문자의 ASCII 값 (Tab, Space, Linefeed 문자, 여기서 각각 T, S, L로 표시됨)의 합계입니다.

SSSTSTTTSSSTLTLSTLLL

(369 = 7 * 9 + 8 * 32 + 5 * 10, 탭 7 개, 공백 8 개 및 줄 바꿈 5 개가 있습니다.)

하스켈, 7518

내 quine 의 작은 수정 :

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

Brainf * ck, 253 (또는 252)

Peter Olson의 솔루션에 대한 약간의 개선 :

---.H

인쇄 할 수없는 것이 허용되면 ASCII 코드 26 을 추가 -하고 대체 하여 더 향상시킬 수 있습니다 H.

스칼라 1090

println (1090)

파이썬, 5440

가장 높은 점수가 이깁니다.

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

방금 반 퀴네 솔루션 인 b / c 게시한다고 생각했습니다.