Tugas Anda adalah menulis program untuk mencetak jumlah kode ASCII dari karakter program itu sendiri. Anda tidak diperbolehkan membuka file apa pun (input apa pun seperti argumen baris perintah, input standar, atau file dilarang).

Program yang mencetak angka terendah (yaitu memiliki jumlah kode ASCII terendah) menang.

Berikut adalah contoh (bukan yang terpendek) dari program semacam itu yang ditulis dalam C:

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

(tidak ada baris baru setelah })

wc, mencetak 0

Seseorang berkata "bahasa seperti kucing", jadi ...

File kosong:

Jalankan dengan wc -c file.wc. Pada 0 byte, saya pikir ini adalah pemenang dalam kategori 'tidak benar-benar bahasa pemrograman'.

Juga

kucing, mencetak 80 (basis 13)

80

Tanpa menghentikan baris baru, angka 80 ₁₃ sama dengan 104 dalam desimal. Anda bisa lebih pendek dengan 60 ₁₇ (102 Desember), tapi saya pikir "base 13" akan lebih bernilai poin geek.

EDIT: wcContoh baru , ini bisa dijalankan sebagai program.

#!/usr/bin/wc
ÿÿzw17

(Sebagaimana dikodekan dalam Latin-1 - ÿ adalah byte dengan nilai 255)

Jumlah byte adalah 2223, output adalah:

  2  2 23 ./w

PHP, m4, dan bahasa seperti kucing lainnya: 150

150

Menemukan solusi ini menggunakan program Haskell sederhana untuk memaksakannya:

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

-.¤

Ini tidak akan mencetak angka 255, melainkan karakter ASCII 255.

Ini mungkin dianggap curang karena kompiler BF melompati ¤.

Javascript, mencetak 9432 6902

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

Ini adalah solusi quine pertama sejauh ini, kecuali saya tidak memahami yang Haskell dengan benar.

PowerShell

((310))

mencetak 310.

Perl, 500

say     500

Ada dua tab di antara saydan 500. :)

(Jalankan sebagai one-liner dengan perl -E, sejauh yang saya tahu ini sesuai aturan)

Ruby, mencetak 380

p (380)

Tidak ada baris baru setelah tanda kurung tutup.

PowerShell

(230)

mencetak 230, jelas.

PowerShell

-(-320)

mencetak 320.

J, 150

?!6

Dengan peringatan bahwa itu akan benar hanya 1/720 waktu.

Python, mencetak 781

print  781

Dua ruang.

Elemen, 220

Ini adalah bahasa ciptaan saya sendiri, dan didokumentasikan pada jawaban saya untuk pertanyaan lain di sini .

220`!

Berikut ini adalah langkah-langkah bagaimana cara kerjanya: 220Mendorong nomor itu ke tumpukan. Kemudian `` outputs the top element of the stack. The! `Kemudian melakukan logis bukan pada tumpukan kontrol (tumpukan terpisah), mengaturnya ke 1.

PHP, mencetak 4440

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

PowerShell, mencetak 3902

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

Lihat ke baris yang saat ini dijalankan dan jumlah nilai-nilai titik kode

INTERCAL, 1572

Saya tidak percaya belum ada yang melakukan INTERCAL!

DOREADOUT#1572


DOGIVEUP

(Termasuk mengakhiri baris baru.) Program ini mencetak MDLXXII.

Perl, mencetak 690

die 690 . $/

Atau, jika kita dapat memposting satu kalimat ( perl -E)

say(570)

Cetakan 570.

(Tidak ada baris baru)

JavaScript, 1750 900 860 790

alert(790)

(Pengembalian kereta (CR, \ratau \x0D) setelah atau sebelum program)

Program-program ini ditemukan dengan kekerasan.

Nilai yang lebih besar:

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

Java -128

Saya tahu membaca stdin tidak diperbolehkan tetapi saya ingin memberikan contoh bagaimana saya menghitung skor saya.

Kode saya menjumlahkan jumlah ASCII yang diteruskan pada stdin dan mencetak -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);}}

Tidak membuntuti baris baru

Ruby, mencetak 300

p   300

Ada spasi dan tab antara pdan 300. Tidak ada baris baru.

File kumpulan, 500

ECHO  500

Juga, perhatikan dua ruang antara "ECHO" (huruf besar dengan sengaja) dan "500".

C, 1700

Aneh - belum ada yang memposting solusi C (tidak termasuk contoh dalam pertanyaan).

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

Tidak ada baris baru di akhir.

K ( 923 796 795 746 513)

Saya tidak yakin apakah ini melanggar aturan atau tidak. Itu tidak menggunakan stdin, itu membuka dirinya sebagai vektor byte dan jumlah.

+/1:.z.f

Pemakaian:

q scriptname.k

sunting 2012.05.08 - tidak perlu hsym pegangan file 2012.05.09 - menyelamatkan 1 poin dengan mengonversi ke byte alih-alih int

2012.05.17 - Dapat menyimpan banyak poin dengan membaca file sebagai bytestream daripada teks:

J, 198

33*6

dan

6*33

Ditemukan dengan kekuatan kasar. Di J tidak ada solusi char 1 atau 2, dan satu-satunya solusi char 3 adalah 150. Kecuali ada bug dalam pencarian saya, tidak ada solusi 4-char lainnya.

Dari saluran IRC #jsoftware, kami juga memiliki <.%:10!20429 dan quine yang menghitung sendiri +/a.i.2#(,{:)'+/a.i.2#(,{:)'''pada 1706.

SM 1160

dipanggil dengan gema dan blank, seluruh String, termasuk 7 blank, echo 1160 | bcmemiliki bytesum 1160.

echo 1160    |  bc

150 bekerja untuk bc juga:

echo "150" > 150
bc -q 150
150

D, 9752

yang ini sebenarnya menghitungnya mirip dengan quine saya

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

Spasi, 369

Program 20 karakter ini mencetak angka 369, yang merupakan jumlah nilai ascii dari karakternya (yaitu Tab, Spasi, karakter Linefeed, di sini dilambangkan dengan T, S, L, masing-masing):

SSSTSTTTSSSTLTLSTLLL

(369 = 7 * 9 + 8 * 32 + 5 * 10, terdapat 7 Tab, 8 Spaces, dan 5 Linefeeds.)

Haskell, 7518

Modifikasi kecil dari quine saya :

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

Brainf * ck, 253 (atau 252)

Perbaikan sedikit pada solusi Peter Olson:

---.H

Asalkan tidak dapat dicetak diperbolehkan, itu dapat ditingkatkan lebih lanjut dengan menambahkan -dan mengganti Hdengan kode ASCII 26.

Scala 1090

println (1090)

Python, 5440

Kemenangan skor tertinggi, bukan?

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

Saya hanya berpikir saya akan tetap mempostingnya tapi itu solusi setengah jadi.