Japanische Flagge /bzw. Kreis

[Y0Gi]

Code: Alles auswählen

import sys;w=sys.stdout.writelines;w('P3 90 60 1 ');N=[45-int((324-y*y)**.5)
for y in range(18)]+[45]*12;w('1 %d %d '%(x,x) for x in
sum(([1]*n+[0]*(45-n)*2+[1]*n for n in N[::-1]+N),[]))

Ist sogar etwas kürzer (in Zeichen) als die letzte Version mit der "statischen" Liste.

Warum werden eigentlich die Semikolonse (;)) verwendet und keine Zeilenumbrüche? Wenn man von Newlines ausgeht, sind die auch nur ein Byte groß, aber der Code ist wesentlich lesbarer (wenngleich er sich natürlich in der Vertikalen über mehr Zeilen erstreckt).

[BlackJack]

Es ging hier nicht um lesbar, sondern ob Japaner das Ding als E-Mail-Signatur verwenden können.

("Newlines" zähle ich übrigens bei den Längenangaben immer mit)

[Y0Gi]

OK, für diesen konkreten Fall lasse ich das natürlich gelten

[HWK]

@HWK: Stimmt, Danke! Das ``lea`` war auch unnötig komplex und beim "exit" habe ich ein ``mov eax, 1`` vergessen "kürzer" zu schreiben. Nun ist der Code-Teil auf 94 Bytes runter.

http://paste.pocoo.org/show/28484/

Und weil es soviel Spaß macht:
Zeile 32, 55 und 69 zu

Code: Alles auswählen

inc ebx

bzw.

Code: Alles auswählen

inc eax

und Zeile 56 zu

Code: Alles auswählen

mov edx,eax
inc edx
inc edx

Und in Zeile 45 müsste auch

Code: Alles auswählen

add eax,ecx

funktionieren. Das alles spart wieder 5 Bytes, d.h. Code-Länge unter 90.

[BlackJack]

Mit push/pop auf das 32-Bitregister sind's nochmal zwei Byte weniger = 87 Bytes Code.

http://paste.pocoo.org/show/28606/

[HWK]

@BlackJack: Hier Dein Programm für 16-Bit-Windows angepasst: http://paste.pocoo.org/show/28610/. Es liefert mit Turbo-Assembler ein COM-File von insgesamt (!) 86 Byte. Ach, die gute alte Zeit.

[numerix]

irgendwann würden mich eure Lösungsideen dann ja auch mal interessieren
ich vermute, die gibt es aber erst, wenn apple ne Lösung gepostet hat, oder?

Ich glaube nicht, dass der Apfel von dieser Art der Lösung profitieren könnte;
verstehen wird er sie nicht, und dem Lehrer kann er sie so auch nicht anbieten,
weil der ebenfalls sofort sieht, dass sie nicht vom Apfel sind.

Ich hatte aber darauf gehofft, dass der ein oder andere noch einsteigt in das Rennen um den kürzesten PYTHON(!)-Quelltext zum Ausgangsproblem.

Nach der vorübergehenden Faszination am Assembler-Quelltext, könnte man ja nochmal zu Python zurückkehren. Wenn ich nichts übersehen habe, dann steht man letztes Gebot noch (98 Bytes).

Interessanterweise musste ich am Ende auf List Comprehension verzichten, um die 100 Byte-Marke knacken zu können. Das 98-Byte-Programm kommt sogar ganz ohne Liste aus und verwendet nur einfache Datentypen und grundlegende Kontrollstrukturen - alles Dinge, die man in einem Tutorial auf den ersten Seiten findet.

[BlackJack]

Interessanter Tip das mit den LCs. Ich bin jetzt bei 97 Zeichen.

Und ich glaube schon, das applegreen mittlerweile von dieser Lösung profitieren könnte. Die ist jetzt so einfach, dass man sie durchaus etwas ausführlicher hinschreiben könnte und eine auch für Lehrer akzeptable Lösung hat.

[meneliel]

....
Ich glaube nicht, dass der Apfel von dieser Art der Lösung profitieren könnte;
verstehen wird er sie nicht, und dem Lehrer kann er sie so auch nicht anbieten,
weil der ebenfalls sofort sieht, dass sie nicht vom Apfel sind.

Ich hatte aber darauf gehofft, dass der ein oder andere noch einsteigt in das Rennen um den kürzesten PYTHON(!)-Quelltext zum Ausgangsproblem.

der Apfel vielleicht nicht ... ^^^ .. aber ...

Ich hatte auch schon überlegt, mir das jezt auch mal anzugucken, mir fehlt nur leider im Moment die Zeit dazu

[numerix]

Ich bin jetzt bei 97 Zeichen.

Es ist schon erstaunlich, was möglich ist, wenn man über ein (in diesem Fall doch sehr überschaubares) Problem länger nachdenkt ...

Jedesmal war ich mir sicher, dass weniger einfach nicht geht.
Und wieder lag ich damit falsch:

Mein neues Gebot: 95 Zeichen.

[BlackJack]

@HWK: Ich wollte mal den NASM zum "cross assemblen" ausprobieren und dabei ist mir aufgefallen, dass man a) BX nicht sichern muss weil int21/ah=9 nur AX und DX verändert und b) COM-Programme auch mit einem einfachen RET enden dürfen.

[Rebecca]

Jetzt will ich auch mal. Da ich gegen eure kurzen Loesungen eh nicht anstinken kann, hab ich mich mal an was Ungewoehnlichem probiert: Elisp

http://paste.pocoo.org/show/28784/

Die Funktion create-jflag fuegt die ppm-Daten an Cursor-Position ein.

PS: Pocoo hat gar geinen Highlighter fuer Lisp!

[Leonidas]

PS: Pocoo hat gar geinen Highlighter fuer Lisp!

Pygments unterstützt Scheme seit langem (ich muss es ja wissen), und Common Lisp auch schon länger. Scheme ist im Auswahlmenü des Lodgeit, Common Lisp müsste man nachrüsten.

Elisp gibt es tatsächlich nicht, aber wenn du willst, können wir da gerne mal schnell was dran ändern. Kenne mich nur mit Elisp nicht sonderlich aus.

[Rebecca]

An Scheme hatte ich gar nicht gedacht. Sieht doch gar nicht mal so schlecht aus: http://paste.pocoo.org/show/28798/. Das einzige, was mir auffaelt, ist bei

Code: Alles auswählen

(defun distance-sqr (x1 y1 x2 y2)

dort erkennt er die Parameterliste nicht als solche, sondern highlightet x1 als Funktionsnamen.

Ich habe ehrlich gesagt keine Ahnung, wo die Syntax-Unterschiede bei den ganzen Lisp-Dialekten liegen. Ich kann nur Elisp, und das auch nicht so sonderlich gut.

EDIT: Es gibt ja einfach keinen Unterschied zwischen Funktionsaufrufen und Listen. Der Scheme-Highligher highlightet anscheinend einfach das erste Listenelement als Funktionsnamen (zusaetzlich gibt's noch spezielle Funktionsnamen wie if und die Rechenoperationen). Emacs macht das nicht, da sind nur besondere Funktionsnahmen gehighlightet (in dem Codebeispiel nur defun, if, dotimes), ansonsten werden alle Listenelemente gleich behandelt. Der Funktionsname in einer defun wird in Emacs auch noch speziell hervorgehoben.

[HWK]

@HWK: Ich wollte mal den NASM zum "cross assemblen" ausprobieren und dabei ist mir aufgefallen, dass man a) BX nicht sichern muss weil int21/ah=9 nur AX und DX verändert und b) COM-Programme auch mit einem einfachen RET enden dürfen.

Bei a) war ich mir nicht sicher, b) war für mich neu. Aber so sind es 80 Bytes (http://paste.pocoo.org/show/28801/). Danke, BlackJack.

[Trundle]

Ohne Statements:

Code: Alles auswählen

(lambda p=__import__('sys').stdout.write:(p('P3 90 60 1 '),[p('1 %i %i '
%(((30-x)**2+(45-y)**2>323,)*2))for x in range(60)for y in range(90)]))()

[BlackJack]

@HWK: a) Habe ich auch nachgeschlagen und b) war mir ebenfalls neu, oder zumindest entfallen, weil ich das nie gemacht habe. Das ist noch aus Kompatibilitätsgründen zu CP/M bzw. DOS 1.x möglich. Technisch wird bei COM-Programmen ein "0 Wort" vor dem Start auf den Stack gelegt und das sorgt dann bei einem RET dafür, dass zu einem entsprechendem INT 21h-Aufruf an Adresse CS:0000 gesprungen wird. Echt interessant wann Microsoft schon damit angefangen hat aus Kompatibiliätsgründen "interessante" Hacks zu implementieren.

[numerix]

Jetzt will ich auch mal. Da ich gegen eure kurzen Loesungen eh nicht anstinken kann

Nee, nee, das glaube ich nicht. Wenn ich nichts durcheinander bringe, hast du in irgendeinem Thread geschrieben, dass du ein abgeschlossenes Mathestudium hast. Und wie ich deiner Website entnommen habe, hast du im Herbst sogar einen Python-Kurs abgehalten. Das reicht sicher für dieses Programm.
Man braucht kein Python-Guru zu sein, um das Programm einigermaßen kurz zu bekommen. Ich habe im Sommer 2007 überhaupt zum ersten Mal davon gehört, dass es eine Programmiersprache namens Python gibt und staune immer wieder über solche Kabinettstückchen wie die von BlackJack oder auch dieses hier von Trundle als Beitrag zum Japaner-Thread:

Code: Alles auswählen

(lambda p=__import__('sys').stdout.write:(p('P3 90 60 1 '),[p('1 %i %i '
%(((30-x)**2+(45-y)**2>323,)*2))for x in range(60)for y in range(90)]))()

Zwar ist das - verglichen mit den Dimensionen, in denen wir uns aktuell mit dem kürzesten Programm zur Lösung des Ausgangsproblems bewegen - ein richtig langer Quelltext, aber die Analyse eines solchen Kunstwerks hilft mir jedesmal, noch tiefer in die Feinheiten von Python einzudringen.

Ich habe mittlerweile sicher schon ein Dutzend (eher mehr) Fassungen für dieses kleine Problem entwickelt und eines hat mich dabei wirklich erstaunt: Mit wenigen Ausnahmen sind die Quelltexte dadurch kürzer geworden, dass ich sie EINFACHER gemacht habe. Keine tiefen Griffe in die Python-Trickkiste, bei denen Python-Anfänger wie ich nur mit den Ohren schlackern, sondern wirkliches Basiswissen. Meine anfänglichen "kürzesten Versionen" hatten noch List Comprehension und formatierte Ausgabe mit verdoppelten Tupeleinträgen usw. Musste alles weg, um es kurz zu bekommen.

BlackJack scheint es ähnlich ergangen zu sein, wenn er schreibt, dass er es für möglich hält, dass applegreen seine kürzeste Lösung verstehen und etwas aufarbeiten könnte, um sie seinem Lehrer anbieten zu können.

Noch ein Tipp für die, die noch einsteigen wollen: Die doppelte Schleife muss weg. Das geht, und dann wird es richtig kurz. Ich bin schon unter 90 Byte ...

[BlackJack]

Jup, mit *einer* Schleife bin ich jetzt auch bei 88 Zeichen. Ist allerdings etwas schwerer zu verstehen. Meine Variante davor hätte wirklich fast als Lösung für'n Unterricht getaugt.

[Rebecca]

http://paste.pocoo.org/show/28784/

Da sieht man mal, dass ich kein Lisp-Guru bin. Statt die insert-Methode im if- und else-Zweig aufzurufen...

Code: Alles auswählen

(if (> (distance-sqr 30 45 i j) 324)
	  (insert "1 1 1 ")
	(insert "1 0 0 "))

...kann man das insert auch einfach "ausklammern":

Code: Alles auswählen

(insert (if (> (distance-sqr 30 45 i j) 324) "1 1 1 " "1 0 0 "))

Wobei man sowas in die Richtung ja mit den Conditional Expressions aus Python 2.5 auch machen kann.

pütone: Aber so kann ich die Japanische Flagge direkt in meinem Lieblingseditor erzeugen.

Ueberhaupt sollten wir sowas oefter machen: Kleinere Aufgaben posten und sehen, was so Kreatives dabei rauskommt.