Ihre Aufgabe ist es, ein Programm zu schreiben, um die Summe der ASCII-Codes der Zeichen des Programms selbst zu drucken. Sie dürfen keine Datei öffnen (Eingaben wie Befehlszeilenargumente, Standardeingaben oder Dateien sind nicht zulässig).

Das Programm, das die niedrigste Zahl ausgibt (dh die niedrigste Summe von ASCII-Codes hat), gewinnt.

Hier ist ein Beispiel (nicht das kürzeste) eines solchen in C geschriebenen Programms:

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

(keine neue Zeile danach })

wc druckt 0

Jemand sagte "katzenähnliche Sprachen", also ...

Eine leere Datei:

Ausführen mit wc -c file.wc. Bei 0 Bytes denke ich, dass dies der Gewinner in der Kategorie "Nicht wirklich eine Programmiersprache" ist.

Ebenfalls

Katze, druckt 80 (Basis 13)

80

Kein abschließender Zeilenvorschub, die Zahl 80 ₁₃ entspricht 104 dezimal. Sie können mit 60 ₁₇ (102 Dez) kürzer gehen , aber ich dachte, "Basis 13" wäre mehr Geek-Punkte wert.

EDIT: Neues wcBeispiel, dieses kann als Programm ausgeführt werden.

#!/usr/bin/wc
ÿÿzw17

(Wie in Latin-1 kodiert - das ÿ ist ein Byte mit dem Wert 255)

Die Summe der Bytes ist 2223, die Ausgabe ist:

  2  2 23 ./w

PHP, M4 und andere katzenähnliche Sprachen: 150

150

Wir haben diese Lösung mit einem einfachen Haskell-Programm gefunden, um sie zu brachialisieren:

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

-.¤

Dadurch wird nicht die Nummer 255 gedruckt, sondern das 255. ASCII-Zeichen.

Dies kann als Betrug angesehen werden, da der BF-Compiler die ¤ überspringt.

Javascript druckt 9432 6902

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

Dies ist die erste Quine-Lösung, es sei denn, ich verstehe die Haskell- Lösung nicht richtig.

Power Shell

((310))

druckt 310.

Perl, 500

say     500

Es gibt zwei Tabs zwischen sayund 500. :)

(Laufen Sie als Einzeiler mit perl -E, soweit ich das beurteilen kann, liegt dies innerhalb der Regeln)

Rubin, druckt 380

p (380)

Keine nachstehende Zeile nach der schließenden Klammer.

Power Shell

(230)

druckt offensichtlich 230.

Power Shell

-(-320)

druckt 320.

J 150

?!6

Mit dem Vorbehalt, dass es nur 1/720 der Zeit korrekt sein wird.

Python druckt 781

print  781

Zwei Räume.

Element, 220

Dies ist eine Sprache meiner eigenen Schöpfung, und sie ist in meiner Antwort auf eine andere Frage hier dokumentiert .

220`!

Hier ist eine exemplarische Vorgehensweise: Die 220drückt diese Nummer auf den Stapel. Dann führt das `` outputs the top element of the stack. The! `Ein logisches Nicht auf dem Kontrollstapel (ein separater Stapel) durch und setzt ihn auf 1.

PHP, druckt 4440

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

PowerShell, druckt 3902

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

Untersucht die aktuell ausgeführte Zeile und summiert die Codepunktwerte.

INTERCAL, 1572

Ich kann nicht glauben, dass noch niemand INTERCAL gemacht hat!

DOREADOUT#1572


DOGIVEUP

(Beinhaltet das Beenden einer neuen Zeile.) Dieses Programm druckt MDLXXII aus.

Perl, druckt 690

die 690 . $/

Oder, wenn wir Einzeiler posten können ( perl -E)

say(570)

Druckt 570.

(Keine nachgestellten Zeilenumbrüche)

JavaScript, 1750 900 860 790

alert(790)

(Wagenrücklauf (CR, \roder \x0D) nach oder vor dem Programm)

Diese Programme werden durch Brute-Forcing gefunden.

Größere Werte:

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

Java -128

Ich weiß, dass stdin nicht erlaubt ist, aber ich wollte ein Beispiel dafür geben, wie ich meine Punktzahl berechnet habe.

Mein Code summiert die an stdin übergebene ASCII-Zählung von sich und gibt -128 aus

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);}}

Keine nachgestellte neue Zeile

Rubin, druckt 300

p   300

Zwischen dem pund dem befindet sich ein Leerzeichen und ein Tabulator 300. Keine nachgestellte Newline.

Batch-Dateien, 500

ECHO  500

Beachten Sie auch die beiden Leerzeichen zwischen "ECHO" (absichtlich in Großbuchstaben) und "500".

C 1700

Seltsam - noch hat niemand eine C-Lösung gepostet (mit Ausnahme des Beispiels in der Frage).

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

Keine Newline am Ende.

K ( 923 796 795 746) 513)

Ich bin mir nicht sicher, ob dies gegen die Regeln verstößt oder nicht. Es benutzt kein stdin, es öffnet sich als Vektor von Bytes und Summen.

+/1:.z.f

Verwendung:

q scriptname.k

edit 2012.05.08 - keine Notwendigkeit, das Dateihandle zu hsym 2012.05.09 - 1 Punkt durch Konvertieren in Byte anstelle von int gespeichert

2012.05.17 - Kann eine Menge Punkte speichern, indem die Datei als bytestream anstatt als Text gelesen wird:

J, 198

33*6

und

6*33

Fand es mit roher Gewalt. In J gibt es keine 1- oder 2-Zeichen-Lösungen, und die einzige 3-Zeichen-Lösung ist 150. Abgesehen von Fehlern in meiner Suche gibt es auch keine anderen 4-Zeichen-Lösungen.

Aus dem IRC-Kanal #jsoftware hatten wir ebenfalls einen Stand <.%:10!20von 429 und einen selbstzählenden Stand von +/a.i.2#(,{:)'+/a.i.2#(,{:)'''1706.

bc 1160

Aufgerufen mit Echo und Leerzeichen hat der gesamte String, einschließlich 7 Leerzeichen, echo 1160 | bcein Byte von 1160.

echo 1160    |  bc

150 arbeitet auch für bc:

echo "150" > 150
bc -q 150
150

D 9752

Dieser berechnet es tatsächlich ähnlich wie mein 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);

Whitespace, 369

Dieses Programm mit 20 Zeichen gibt die Zahl 369 aus, die die Summe der ASCII-Werte seiner Zeichen darstellt (Tab, Leerzeichen, Zeilenvorschubzeichen, hier symbolisiert durch T, S, L):

SSSTSTTTSSSTLTLSTLLL

(369 = 7 * 9 + 8 * 32 + 5 * 10, wobei 7 Tabulatoren, 8 Leerzeichen und 5 Zeilenvorschübe vorhanden sind.)

Haskell, 7518

Eine kleine Modifikation meiner Quine :

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

Brainf * ck, 253 (oder 252)

Leichte Verbesserung der Lösung von Peter Olson:

---.H

Sofern nicht druckbare Dateien zulässig sind, können sie durch Hinzufügen eines -und Ersetzen Hdurch ASCII-Code 26 weiter verbessert werden .

Scala 1090

Druck (1090)

Python, 5440

Die höchste Punktzahl gewinnt, oder?

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

Ich dachte nur, ich würde es trotzdem posten, b / c, es ist eine halbherzige Lösung.