Nhiệm vụ của bạn là viết một chương trình để in tổng mã ASCII của các ký tự của chính chương trình. Bạn không được phép mở bất kỳ tệp nào (Bất kỳ đầu vào nào như đối số dòng lệnh, đầu vào tiêu chuẩn hoặc tệp đều bị cấm).

Chương trình in số thấp nhất (nghĩa là có tổng số mã ASCII thấp nhất) sẽ thắng.

Dưới đây là một ví dụ (không phải ngắn nhất) của một chương trình như vậy được viết bằng C:

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

(không có dòng mới sau })

wc, in 0

Có người nói "ngôn ngữ giống mèo", nên ...

Một tập tin trống:

Thực hiện với wc -c file.wc. Với 0 byte, tôi nghĩ đây là người chiến thắng trong hạng mục 'không thực sự là ngôn ngữ lập trình'.

Cũng thế

mèo, in 80 (cơ sở 13)

80

Không chấm dứt dòng mới, số 80 ₁₃ tương đương với 104 ở dạng thập phân. Bạn có thể đi ngắn hơn với 60 ₁₇ (102 tháng 12), nhưng tôi cho rằng "cơ sở 13" sẽ có giá trị nhiều điểm hơn.

EDIT: wcVí dụ mới , cái này có thể được chạy như một chương trình.

#!/usr/bin/wc
ÿÿzw17

(Như được mã hóa bằng tiếng Latin-1 - the là một byte có giá trị 255)

Tổng số byte là 2223, đầu ra là:

  2  2 23 ./w

PHP, m4 và các ngôn ngữ giống mèo khác: 150

150

Tìm thấy giải pháp này bằng cách sử dụng chương trình Haskell đơn giản để bắt buộc:

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

-.¤

Điều này sẽ không in số 255, mà là ký tự ASCII thứ 255.

Điều này có thể được coi là gian lận vì trình biên dịch BF bỏ qua.

Javascript, in 9432 6902

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

Đây là giải pháp quine đầu tiên cho đến nay, trừ khi tôi không hiểu chính xác về Haskell .

PowerShell

((310))

in 310.

Perl, 500

say     500

Có hai tab giữa sayvà 500. :)

(Chạy như một lớp lót với perl -E, theo như tôi có thể nói điều này nằm trong quy tắc)

Ruby, in 380

p (380)

Không có dòng mới sau dấu ngoặc đơn đóng.

PowerShell

(230)

In 230, rõ ràng.

PowerShell

-(-320)

in 320.

J, 150

?!6

Với lời cảnh báo rằng nó sẽ chỉ đúng 1/20 lần.

Python, in 781

print  781

Hai không gian.

Yếu tố, 220

Đây là một ngôn ngữ của sáng tạo của riêng tôi, và nó được ghi lại trong câu trả lời của tôi cho một câu hỏi khác ở đây .

220`!

Đây là hướng dẫn về cách thức hoạt động của nó: Việc 220đẩy số đó lên ngăn xếp. Sau đó, `` outputs the top element of the stack. The! `Sau đó thực hiện một logic không có trong ngăn xếp điều khiển (một ngăn xếp riêng), đặt nó thành 1.

PHP, in 4440

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

PowerShell, in 3902

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

Nhìn vào dòng hiện đang chạy và tính tổng các giá trị điểm mã.

INTERCAL, 1572

Tôi không thể tin rằng chưa có ai thực hiện INTERCAL!

DOREADOUT#1572


DOGIVEUP

(Bao gồm chấm dứt dòng mới.) Chương trình này in ra MDLXXII.

Perl, in 690

die 690 . $/

Hoặc, nếu chúng ta có thể đăng một-liners ( perl -E)

say(570)

In 570.

(Không có dòng mới)

JavaScript, 1750 900 860 790

alert(790)

(Trả lại vận chuyển (CR, \rhoặc \x0D) sau hoặc trước chương trình)

Các chương trình này được tìm thấy bởi brute-buộc.

Giá trị lớn hơn:

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

Java -128

Tôi biết đọc stdin không được phép nhưng tôi muốn cung cấp một ví dụ về cách tôi tính điểm của mình.

Mã của tôi tính tổng số ASCII của chính nó được truyền vào stdin và in ra -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);}}

Không có dòng mới

Ruby, in 300

p   300

Có một khoảng trắng và một tab giữa pvà 300. Không có dòng mới.

Tập tin hàng loạt, 500

ECHO  500

Đồng thời, chú ý hai khoảng trắng giữa "ECHO" (chữ hoa trên mục đích) và "500".

C, 1700

Lạ - chưa có ai đăng giải pháp C (trừ ví dụ trong câu hỏi).

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

Không có dòng mới ở cuối.

K ( 923 796 795 746 513)

Tôi không chắc chắn nếu điều này rơi vào quy tắc hay không. Nó không sử dụng stdin, nó tự mở như một vectơ byte và tổng.

+/1:.z.f

Sử dụng:

q scriptname.k

chỉnh sửa 2012.05.08 - không cần hsym xử lý tệp 2012.05.09 - đã lưu 1 điểm bằng cách chuyển đổi sang byte thay vì int

2012.05.17 - Có thể lưu tải điểm bằng cách đọc tệp dưới dạng bytestream thay vì văn bản:

J, 198

33*6

và

6*33

Tìm thấy nó bằng vũ lực. Trong J không có giải pháp 1 hoặc 2 char và giải pháp 3 char duy nhất là 150. Không có bất kỳ lỗi nào trong tìm kiếm của tôi, cũng không có giải pháp 4 char nào khác.

Từ kênh IRC #jsoftware, chúng tôi cũng đã có <.%:10!20429 và một quine tự đếm +/a.i.2#(,{:)'+/a.i.2#(,{:)'''ở 1706.

bc 1160

được gọi với echo và khoảng trống, toàn bộ Chuỗi, bao gồm 7 khoảng trống, echo 1160 | bccó byte là 1160.

echo 1160    |  bc

150 công trình cho bc quá:

echo "150" > 150
bc -q 150
150

D, 9752

cái này thực sự tính toán nó tương tự như tôi 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);

Khoảng trắng, 369

Chương trình 20 ký tự này in số 369, là tổng của các giá trị ascii của các ký tự của nó (lần lượt là các ký tự Tab, Space, Linefeed, ở đây được ký hiệu là T, S, L):

SSSTSTTTSSSTLTLSTLLL

(369 = 7 * 9 + 8 * 32 + 5 * 10, có 7 Tab, 8 Spaces và 5 Linefeed.)

Haskell, 7518

Một sửa đổi nhỏ của quine của tôi :

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

Brainf * ck, 253 (hoặc 252)

Cải thiện nhẹ về giải pháp của Peter Olson:

---.H

Được cung cấp không in được cho phép, nó có thể được cải thiện hơn nữa bằng cách thêm -và thay thế Hbằng mã ASCII 26.

Scala 1090

in (1090)

Con trăn, 5440

Điểm số cao nhất chiến thắng, phải không?

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

Tôi chỉ nghĩ rằng tôi sẽ đăng nó dù sao đi nữa, đó là một giải pháp nửa chừng.