Code Kata - Christmas Tree

Ich habe mir heute auch mal ChatGPT angesehen und gleich mal mit dieser Aufgabe hier betraut.

Meine Frage war einfach: "Schreibe ein AutoIt-Programm, welches einen Tannenbaum in der Konsole ausgibt."

Tja und das hier war das Ergebnis:

# RequireAdmin

; Set the height of the tree
$treeHeight = 10

; Print the tree
For $i = 1 To $treeHeight
    For $j = 1 To $treeHeight - $i
        ConsoleWrite(" ")
    Next
    For $j = 1 To (2 * $i - 1)
        ConsoleWrite("*")
    Next
    ConsoleWrite(@CRLF)
Next

; Print the base of the tree
For $i = 1 To ($treeHeight - 1)
    ConsoleWrite(" ")
Next
ConsoleWrite("#")

; Pause the script so the user can see the tree
Sleep(10000)

gruselig...

Um mal wieder penetrant Werbung einzubauen - hier meine Methode mit der _ArrayPlus-UDF:

#include "ArrayPlus.au3"
#include <String.au3>

ConsoleWrite( _Tannenbaum(8) )


Func _Tannenbaum(Const $nEbenen)
    ; Die Nadeln
    Local $aBaum = _ArrayCreate("1:" & 2*$nEbenen & ":2", '_StringRepeat("X", $A)')

    ; Die Spitze:
    _ArrayInsert($aBaum, 0, "*")

    ; Der Stamm:
    _ArrayAdd($aBaum, "| |", 0, '_')

    Return StringRegExpReplace(_Array2String($aBaum), '\h{2}', ' ')
EndFunc

Zitat von SOLVE-SMART

Ein wenig schade ist, dass bei dem expliziten Ansatz, eine Funktion als Parameter zu übergeben, jegliche Kontrolle vor dem ausführen bzw. beim Kompilieren verloren geht, da es ja einfach ein string ist.

Da musst du mir nochmal auf die Sprünge helfen, da ich dies nicht verstanden habe.

Wo genau geht Kontrolle verloren?

Du legst ja selbst fest, welcher Code ausgeführt werden soll.
Es muss auch kein String sein - es geht auch ein Funktionspointer oder ein fester String als Wert (dann darf halt kein $A drin vorkommen).

Zitat von SOLVE-SMART

Am Ende keine größe Sache, aber die Verwendung von Strings maskiert hierbei Fehler

Das stimmt sicher und wir gelangen wieder zum Punkt: Wieviel Fehlermanagement soll der Ersteller einer UDF anbieten und wieviel soll der Anwender tun.

Ich bin der Meinung, wenn klar definiert ist, wie ein Parameter auszusehen hat (in diesem Fall "String mit einer Funktion"), dann kann die UDF davon ausgehen, dass genau das übergeben wird und muss nicht extra Prüfungen durchführen. Diese Prüfung kann der Anwender problemlos selbst vorab durchführen, z.B. durch exportieren des Codes in eine Temp.au3 und Auswertung dieser mit Syntaxcheck.

Es gibt ja Alternativen zur Definition des Codes als Stringparameter.
Diese ist ja nur mit in die UDF gekommen um eben extra zu schreibende Funktionen für kleinere Sachen zu vermeiden.

Du kannst daher auch weiterhin direkt eine Funktion übergeben und dann hast du wieder dein Code-Parsing:

_ArrayCreate("1:" & 2*$nEbenen & ":2", meinefunktion)

Func meinefunktion($Y)
    Return _StringRepeat("X", $Y)
EndFunc

Mars

nix komplizierte udf nix irgend etwas seltsammes - nur ein wenig nachgedacht und schon hat man mit ein paar Zeilen alles erledigt

LG

Peter

Hab mal geschaut wie kurz ich es ohne irgendeine UDF in reinem AutoIt hinbekomme.
Aktuell scheint bei mir bei 156 Zeichen Schluss zu sein:

$B=""
For $i=1 To 14 Step 2
$B&=StringFormat("%13."&$i&"s\n","XXXXXXXXXXXXX")
Next
ConsoleWrite("      *"&@LF&StringReplace($B,"  "," ")&"     | |"&@LF)

Wer bietet weniger?

2022_12_22_08_55_40_Hi_Assistant_Greeting.jpg

AspirinJunkie Und es hätte noch eine Zeile sparen können, indem das Global in der 2. Teile steht

ChatGPT hat auf Nachfrage dann einen dynamischen Code erstellt, der das ganz mit 177 Zeichen macht. Daraufhin habe ich ihm deinen Code geschickt und bekam folgende Antwort:

Zitat

Du hast Recht, dass der von dir vorgeschlagene Code tatsächlich kürzer ist als das von mir vorgestellte Beispiel. Der Code verwendet eine Schleife, um den Baumstring Schritt für Schritt aufzubauen, indem er jedes Mal eine zusätzliche Zeile hinzufügt, die aus Sternen besteht. Diese Sternzeichen werden mithilfe der StringFormat-Funktion generiert und dann dem Baumstring hinzugefügt.

Es gibt jedoch einige mögliche Nachteile an diesem Ansatz. Zum einen ist der Code etwas schwieriger zu verstehen, da er eine Reihe von Funktionen verwendet, die für sich genommen vielleicht nicht offensichtlich sind. Zum anderen ist der Code nicht sehr flexibel und kann nur Baumhöhen generieren, die eine gerade Anzahl von Zeilen haben. Wenn du beispielsweise versuchen würdest, einen Baum mit einer Höhe von 7 Zeilen zu erstellen, würde der Code fehlschlagen.

Letztendlich hängt es davon ab, welche Anforderungen du an deinen Weihnachtsbaum hast und wie wichtig dir die Lesbarkeit und Flexibilität des Codes sind. Beide von uns vorgestellten Beispiele könnten in unterschiedlichen Situationen sinnvoll sein. Ich hoffe, das hilft bei der Entscheidung! Wenn du weitere Fragen hast, lass es mich wissen.

Zitat von Moombas

Daraufhin habe ich ihm deinen Code geschickt und bekam folgende Antwort:

What the hell?!

Auch wenn er mit seiner Einschätzung, dass damit nur gerade Anzahl von Zeilen funktionieren daneben liegt.
Ich vermute, das Step 2 wird ihn auf diesen Dreh gebracht haben.

Zum anderen aber trifft er den Nagel komplett auf den Kopf indem er auf die mangelnde Lesbarkeit hinweist.

AspirinJunkie

Ich bin beeindruckt. Nicht nur dass der Code verständlich ist, er ist flexibel anpassbar und wunderbar kurz. So soll Code sein!!!

Frohe Weihnachten

Peter

Ps.: Kürzer kann ich mir nicht mehr (wirklich) vorstellen. Aber ich lasse mich gerne überraschen

Das Thema ist zwar schon alt, aber ich habe es erst gestern gefunden und außerdem steht wieder Weihnachten vor der Tür und ich möchte euch an meinen Ergenissen teilhaben lassen.

Zitat von AspirinJunkie

Wer bietet weniger?

Du mit 152 Zeichen, wenn du die Wagenrückläufe weglässt.

Ich bekomme morgen vom Nikolausi noch weniger Zeichen bereitgestellt, deshalb muss ich noch schnell ein paar mehr vergeuden!

Die etwas abgewandelte Variante von AspirinJunkie (143 Zeichen bei CRLF; 139 Zeichen bei LF):

$t='     *'&@LF
For $i=1 To 6
$t&=StringFormat('%'&6-$i&'s%0'&$i*2-1&'s\n','',0)
Next
ConsoleWrite(StringReplace($t,'0','X')&'    | |'&@LF)

Schaut halt etwas kryptisch aus. Hiermit wird es klarer (135 bzw. 131 Zeichen):

$t='     *'&@LF
For $i=1 To 6
$t&=StringLeft('     ',6-$i)&StringLeft('XXXXXXXXXXX',$i*2-1)&@LF
Next
ConsoleWrite($t&'    | |'&@LF)

Damit etwas kürzer (132/128 Zeichen):

$t='     *'&@LF
For $i=1 To 6
$t&=StringMid('     ',$i)&StringMid('XXXXXXXXXXX',13-$i*2)&@LF
Next
ConsoleWrite($t&'    | |'&@LF)

Und hiermit ganz kurz und klar (115/111 Zeichen):

$t='     *'&@LF
For $i=1 To 6
$t&=StringMid('     XXXXXXXXXXX',$i,$i+5)&@LF
Next
ConsoleWrite($t&'    | |'&@LF)

Leider erfüllen alle obigen Codes in diesem Thema bis auf jene von SOLVE-SMART, Moombas und Mars streng genommen nicht die Anforderungen von SOLVE-SMART (jedenfalls seinen Bildern nach zu urteilen), weil keine Leerzeichen rechts am Weihnachtsbaum angehängt werden.

Die mit zwei zusätzlich vorangestellten sowie auffüllend angehängten Leerzeichen und in der Zeilenanzahl anpassbare, jedoch nicht mehr so klare letzte Variante von AspirinJunkie ohne sparsame Syntax wäre (582 Zeichen bei CRLF):

_ChristmasTree(8)

Func _ChristmasTree($n)
  Local Const $c = $n * 2 - 1
  Local $t = ''
  If $n > 0 Then
    $t &= StringFormat('%' & $c & 's%' & $c - 1 & 's\r\n', '*', '')
    For $i = 1 To $c - 4 Step 2
      $t &= StringFormat('%' & $c - $i + 1 & 's%0' & $i - 1 & 's' & _
                         '%' & $c - $i & 's\r\n', '0', '', '')
    Next
    If $n > 1 Then $t &= StringFormat('%' & $c & 's%' & $c - 3 & 's\r\n', '| |', '')
    $t = StringReplace(StringReplace($t, '  ', ' '), '0', 'X')
  EndIf
  ConsoleWrite(@CRLF & $t & @CRLF)
EndFunc   ;==>_ChristmasTree

Meine kürzeste Variante habe ich auch noch entsprechend angepasst (519 Zeichen bei CRLF):

_ChristmasTree(8)

Func _ChristmasTree($n)
  Local Const $c = StringReplace(StringFormat('%' & $n * 2 - 5 & 's', ''), ' ', 'X')
  Local $s = StringFormat('%' & $n - 1 & 's', '')
  Local $t = ''
  If $n > 0 Then
    $t = $s & '*' & $s & @CRLF
    For $i = 1 To $n - 2
      $t &= StringMid($s & $c, $i, $i + $n - 1) & StringMid($s, $i) & @CRLF
    Next
    $s = StringTrimRight($s, 1)
    If $n > 1 Then $t &= $s & '| |' & $s & @CRLF
  EndIf
  ConsoleWrite(@CRLF & $t & @CRLF)
EndFunc   ;==>_ChristmasTree

Gruß, fee

Neues Jahr, neuer Weihnachtsbaum!

(Entspricht nicht den Vorgaben, aber ich wollte einfach Basteln)

P(15)

Func P($h, $_ = Default)
	If $_ <> Default Then
		If $_ > 0 Then
			Local $1 = $h = '.' ? '' : $h, $a = ['.', '.', ' ', '*', 'O'], $o = False
			For $i = 0 To $_ - 2 Step 1
				$h &= $1 ? $1 : $a[Random(0, UBound($a)-1-(StringInStr($h, 'O', 0, 1)?1:0), 1)]
			Next
			Return $h
		Else
			Return ''
		EndIf
	EndIf
	Local $w = Int($h / 2) * 2 + 1, $r = 1, $s = '', $l = False, $k, $p
	For $y = 0 To $h - 1 Step 1
		$s &= ($y = 0 ? (P(' ', Int($w / 2 + 1)) & '*') : ($y < $h - 1) ? (P(' ', Int(($w - $r)/2) - 0) & '/' & P('.', $r) & '\') : ((($p/2 < $r/2 ? ' ' : '') & P('^', $p/2) & '[_]' & P('^', $p/2)))) & @CRLF
		If Not ($y < $h - 1 And $y > 0) Then ContinueLoop
		$p = $r
		$k = ($h - $y - 2) > (($w - $r) / 2) And Not $l
		$l = $k ? Random() > 0.5 : False
		$r += $k ? (Not ($l And $y > 2) ? ((Random() > 0.5 ? 2 : ($r < $w / 2 ? 2 : ($y > 3 ? -2 : 2)))) : 0) : 2
		$r = $r - 2 * ($r > $w)
	Next
	ConsoleWrite($s & @CRLF)
EndFunc

lg

M

Zitat von SOLVE-SMART

außerdem noch unflexibel was die Anpassung auf 15 Zeilen angeht

Ich weiß, aber als ich den Code von AspirinJunkie "verbesserte" (naja, wohl eher verkrüppelte ), verstand ich die detaillierte Funktionsweise des Codes immer besser und konnte durch weiteres Nachdenken die kürzeren Varianten entwickeln. Bei "gestauchten" 111 Zeichen war halt Schluss.

Die Anpassung von acht Christbaumzeilen:

$t='     *'&@LF
For $i=1 To 6
$t&=StringMid('     XXXXXXXXXXX',$i,$i+5)&@LF
Next
ConsoleWrite($t&'    | |'&@LF)

auf 15 Zeilen (152/148 Zeichen):

$t='            *'&@LF
For $i=1 To 13
$t&=StringMid('            XXXXXXXXXXXXXXXXXXXXXXXXX',$i,$i+12)&@LF
Next
ConsoleWrite($t&'           | |'&@LF)

ist doch gar nicht so schwer. Naja, verständlicher und flexibler wäre es so: (231/223 Zeichen; leider erst ab $l=4 fehlerfrei)

$l=15
$s=StringFormat('%'&$l-3&'s','')
$p=StringReplace($s&$s&StringLeft($s,1),' ','X')
$w=StringLen($s)
$t=$s&'*'&@LF
For $i=1 To $l-2
$t&=StringMid($s&$p,$i,$i+$w)&@LF
Next
ConsoleWrite($t&StringTrimRight($s,1)&'| |'&@LF)

Sehr schön Mars, gut gemacht!
Ich dachte erst wegen deines Bildschirmfotos entgegen deiner Einleitung, es wird ein Weihnachtswald statt eines einzelnen Baumes ausgegeben. Naja, bleibt noch eine Aufgabe fürs nächste Jahr.

Im übernächsten Jahr wird erst der Weihnachtsbaum und im Jahr darauf ein Weihnachtswald funkelnd animiert, gell? Die beiden Jahre danach bilden mit farbig funkelndem Weihnachtsbaum und Weihnachtswald den krönenden Abschluss, wenn die Konsole Junge bekommen hat, hehe!

Nur so am Rande:

• Mindestens diese Überbleibsel sind noch in deinem Code: , $o = False, - 0 und zwei Step 1.
• Die lange Zeile in der Schleife mit $s &= (…) wäre mit verschachtelten If-Anweisungen deutlich lesbarer, sähe aber nicht so interessant aus.

Der Weihnachtsbaum ist dir auf alle Fälle sehr gut gelungen, Respekt!

Gruß, fee