งานของคุณคือการเขียนโปรแกรมเพื่อพิมพ์ผลรวมของรหัส 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 Dec) แต่ฉันคิดว่า "ฐาน 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 แต่เป็นอักขระ ASCII ที่ 255

สิ่งนี้อาจถูกพิจารณาว่าเป็นการโกงเนื่องจากคอมไพเลอร์ BF ข้ามไปที่¤

Javascript, พิมพ์9432 6902

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

นี่เป็นวิธีแก้ปัญหาควินแรกจนถึงถ้าฉันไม่เข้าใจHaskell อย่างถูกต้อง

PowerShell

((310))

พิมพ์ 310

Perl, 500

say     500

มีสองแท็บระหว่างมีและsay 500:)

(ทำงานเป็นสายการบินperl -Eเดียวกับเท่าที่ฉันสามารถบอกได้ว่านี้อยู่ภายในกฎ)

Ruby พิมพ์ 380

p (380)

ไม่มีการขึ้นบรรทัดใหม่หลังวงเล็บปิด

PowerShell

(230)

พิมพ์ 230 เห็นได้ชัด

PowerShell

-(-320)

พิมพ์ 320

J, 150

?!6

ด้วยข้อแม้ว่ามันจะถูกต้องเพียง 1 / 720th ของเวลา

Python พิมพ์ 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

Perl พิมพ์ 690

die 690 . $/

หรือถ้าเราสามารถโพสต์หนึ่งสมุทร ( perl -E)

say(570)

พิมพ์ 570

(ไม่มีการขึ้นบรรทัดใหม่)

JavaScript, 1750 900 860 790

alert(790)

(Carriage return (CR \rหรือ\x0D) หลังหรือก่อนโปรแกรม)

โปรแกรมเหล่านี้ถูกค้นพบโดย brute-force

ค่าที่ใหญ่กว่า:

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

Java -128

ฉันรู้ว่าไม่อนุญาตให้อ่าน stdin แต่ฉันต้องการยกตัวอย่างวิธีคำนวณคะแนนของฉัน

รหัสของฉันสรุปจำนวน ASCII ของตัวเองที่ส่งผ่านไปยัง stdin และพิมพ์ออกมา -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);}}

ไม่มีการขึ้นบรรทัดใหม่

Ruby พิมพ์ 300

p   300

มีพื้นที่และแท็บระหว่างเป็นและp 300ไม่มีการขึ้นบรรทัดใหม่

แบตช์ไฟล์ 500

ECHO  500

เช่นกันให้สังเกตช่องว่างสองช่องระหว่าง "ECHO" (ตัวพิมพ์ใหญ่โดยเจตนา) และ "500"

C, 1700

Strange - ยังไม่มีใครโพสต์โซลูชัน C (ยกเว้นตัวอย่างในคำถาม)

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

ไม่มีการขึ้นบรรทัดใหม่ในตอนท้าย

K ( 923 796 795 746 513)

ฉันไม่แน่ใจว่าสิ่งนี้จะขัดกับกฎหรือไม่ มันไม่ได้ใช้ stdin มันเปิดตัวเองเป็นเวกเตอร์ของไบต์และผลรวม

+/1:.z.f

การใช้งาน:

q scriptname.k

แก้ไข 2012.05.08 - ไม่จำเป็นต้อง hsym จัดการไฟล์ 2012.05.09 - บันทึก 1 จุดโดยการแปลงเป็นไบต์แทน int

2012.05.17 - สามารถบันทึกคะแนนโดยการอ่านไฟล์เป็น bytestream แทนข้อความ:

J, 198

33*6

และ

6*33

พบว่ากำลังดุร้าย ใน J ไม่มี 1 หรือ 2 การแก้ปัญหาถ่านและทางออกเดียว 3 150ถ่าน ยกเว้นข้อบกพร่องใด ๆ ในการค้นหาของฉันไม่มีวิธีการแก้ปัญหาอื่น ๆ อีก 4 ตัวเช่นกัน

จาก #jsoftware IRC channel เรายังมี<.%:10!20ที่ 429 และquine self-count +/a.i.2#(,{:)'+/a.i.2#(,{:)'''ที่ 1706

bc 1160

เรียกใช้ด้วย echo และ blanks สตริงทั้งหมดซึ่งรวมถึง 7 ช่องว่างecho 1160 | bcมีไบต์ 1160

echo 1160    |  bc

150 ทำงานกับ bc ด้วย:

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 ฟีด)

Haskell, 7518

ปรับเปลี่ยนเล็ก ๆ ของฉันควิน :

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

อนุญาตให้ไม่สามารถพิมพ์ได้ก็สามารถปรับปรุงเพิ่มเติมได้โดยการเพิ่ม-และแทนที่Hด้วยรหัส ASCII 26

สกาล่า 1,090

println (1090)

Python 5440

ชนะคะแนนสูงสุดใช่มั้ย

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

ฉันแค่คิดว่าฉันจะโพสต์มันต่อไป b / c มันเป็นวิธีการแก้ปัญหาควายครึ่งทาง