Code Kata - Christmas Tree

**SOLVE-SMART** · Poweruser seit 21.01.2023

Hi Leute,

hier mal wieder, zum Jahresausklang, etwas für zwischendurch: Die "Christmas Tree" Code Kata.

💡 Ziel: Ist es einen Algorithmus bestehend aus einer oder mehreren Funktionen zu schreiben, der dir einen Weihnachtsbaum auf der Konsole ausgeben lässt.

Es dürfen nur diese drei Zeichen verwendet werden: * für die Spitze, X als Tannennadeln und | als Baumstamm-Symbol.
Das Baumstamm-Symbol (die Pipe) soll doppelt und trotzdem mittig dargestellt werden | |.

🥈 Teil 1: Entwickle die Funktion(en) um den Weihnachtsbaum auf acht Zeilen in der Konsole darzustellen.

🥇 Teil 2: Erweitere den Ansatz um flexibel einen Weihnachtsbaum mit bspw. 15 Zeilen in der Konsole darzustellen (oder 12 Zeilen oder 20 Zeilen [...]).

⚡ Rahmenbedingungen:

Versuche es möglichst komplett ohne Hilfsmittel und ohne Google Suche.
Zeitliche Vorstellung für diese kleine Challenge ist um die 20 - 30 min.
Wenn du eine Lösung hast und diese hier postest, dann bitte den Code in Spoiler einbinden, damit jeder selbst entscheiden kann ob er die Lösungsvariante der Anderen sehen möchte oder nicht 😉 .

Ich bin gespannt auf eure Lösungen und wünsche happy coding 👍 .

Viele Grüße
Sven

Velted

Moin,

in der Hoffnung, dass als viertes Zeichen auch das Leerzeichen erlaubt ist:

Spoiler anzeigen

AutoIt

Weihnachtsbaum(20)

Func Weihnachtsbaum($iZeilen)
    If Not IsInt($iZeilen) Or $iZeilen < 5 Or $iZeilen > 32 Then
        MsgBox(16, "Fehler", "Der Parameter $iZeilen ist ungültig: " & $iZeilen)
        Return False
    EndIf
    Local $iLinks = $iZeilen - 1 ; bei zwei Leerzeichen am linken Rand
    Local $sLeer = ""
    For $I = 1 To $iLinks
        $sLeer &= " "
    Next
    ConsoleWrite(StringLeft($sLeer, $iLinks) & "*" & @CRLF)
    Local $sBaum = "+"
    For $I = 1 To $iZeilen - 2
        ConsoleWrite(StringLeft($sLeer, $iLinks) & $sBaum & @CRLF)
        $iLinks -= 1
        $sBaum &= "++"
    Next
    ConsoleWrite(StringLeft($sLeer, $iZeilen - 2) & "| |" & @CRLF)
    Return True
EndFunc

Alles anzeigen

Ich wünsche Allen ein frohes Weihnachtsfest und einen guten neues Jahr.

**Alina**

Zitat von Velted

Moin,

in der Hoffnung, dass als viertes Zeichen auch das Leerzeichen erlaubt ist:

Spoiler anzeigen

AutoIt

Weihnachtsbaum(20)

Func Weihnachtsbaum($iZeilen)
    If Not IsInt($iZeilen) Or $iZeilen < 5 Or $iZeilen > 32 Then
        MsgBox(16, "Fehler", "Der Parameter $iZeilen ist ungültig: " & $iZeilen)
        Return False
    EndIf
    Local $iLinks = $iZeilen - 1 ; bei zwei Leerzeichen am linken Rand
    Local $sLeer = ""
    For $I = 1 To $iLinks
        $sLeer &= " "
    Next
    ConsoleWrite(StringLeft($sLeer, $iLinks) & "*" & @CRLF)
    Local $sBaum = "+"
    For $I = 1 To $iZeilen - 2
        ConsoleWrite(StringLeft($sLeer, $iLinks) & $sBaum & @CRLF)
        $iLinks -= 1
        $sBaum &= "++"
    Next
    ConsoleWrite(StringLeft($sLeer, $iZeilen - 2) & "| |" & @CRLF)
    Return True
EndFunc

Alles anzeigen

Ich wünsche Allen ein frohes Weihnachtsfest und einen guten neues Jahr.

Müsse das nicht so lauten?
streiche : If Not IsInt($iZeilen) Or $iZeilen < 5 Or $iZeilen > 32 Then
ersetze : If Not IsInt($iZeilen) Or $iZeilen < 5 Or $iZeilen > 20 Then

Ein paar Kerzten am Baume wären auch was. Sag man das so?

Egal, denn ich wünsche allen eine restliche schöne Vorweihnachtszeit, schöne Festtage und ein gesunden Rutsch ins neue Jahr.

**BugFix**

Mein Beitrag:

Spoiler anzeigen

AutoIt

_WriteXMasTree(8)

Func _WriteXMasTree($_nLines)
    Local $sSpaces = '', $sX = '', $sOut = ''
    For $i = 1 To $_nLines -1
        $sSpaces &= ' '
        $sX &= 'X'
    Next
    $sX &= $sX & 'X'
    For $i = 0 To $_nLines -2
        If ($i = 0 Or $i = 1) Then
            $sOut &= StringLeft($sSpaces, $_nLines) & ($i = 0 ? '*' : 'X') & @CRLF
        Else
            $sOut &= StringLeft($sSpaces, $_nLines -$i) & StringLeft($sX, 2*($i-1)+1) & @CRLF
        EndIf
    Next
    $sOut &= StringLeft($sSpaces, $_nLines -2) & '| |' & @CRLF
    ConsoleWrite($sOut & @CRLF)
EndFunc

Alles anzeigen

**BugFix**

Zitat von Velted

$iZeilen > 32

Es gibt keinen maximalen Zeilenparameter. Nur das Minimum existiert, ist m.M.n. aber 3:

Code

  *
  X
 | |

**Alina**

Billiger geht es nicht, aber es ist ein Baum mit Kerzen und einem Weihnachtsgruß dazu.
* = die Baumspitze und die Kerzen im Baum ! Ein Weihnachtsbaum ohne Kerzen ist wie Ostern ohne Hühnereiner !!!

Spoiler anzeigen

Code

xmastree()

Func xmastree()
    ConsoleWrite("                     " & @CRLF)
    ConsoleWrite("                    * " & @CRLF)
    ConsoleWrite("                   XXX " & @CRLF)
    ConsoleWrite("                  XXXXX " & @CRLF)
    ConsoleWrite("                 XXX*XXX " & @CRLF)
    ConsoleWrite("                XXXXXXXXX " & @CRLF)
    ConsoleWrite("               XXX*XXX*XXX " & @CRLF)
    ConsoleWrite("              XXXXXXXXXXXXX " & @CRLF)
    ConsoleWrite("             XXX*XXXXXXX*XXX " & @CRLF)
    ConsoleWrite("            XXXXXXXXXXXXXXXXX " & @CRLF)
    ConsoleWrite("           XXXX*XXXXXXXXXX*XXX " & @CRLF)
    ConsoleWrite("          XXXX*XXXXXXXXXXXX*XXX " & @CRLF)
    ConsoleWrite("         XXXXXXXXXXXXXXXXXXXXXXX " & @CRLF)
    ConsoleWrite("        XXXX*XXXXXXXXXXXXXXXX*XXX " & @CRLF)
    ConsoleWrite("       XXXXXXXXXXXXXXXXXXXXXXXXXXX " & @CRLF)
    ConsoleWrite("      XXX*XXXXXXXXXXXXXXXXXXXXX*XXX " & @CRLF)
    ConsoleWrite("     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " & @CRLF)
    ConsoleWrite("    XXX*XXX*XXX*XXX***XXX*XXX*XXX*XXX " & @CRLF)
    ConsoleWrite("   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " & @CRLF)
    ConsoleWrite("                   | |" & @CRLF)
    ConsoleWrite("                   | |" & @CRLF)
    ConsoleWrite("     Glædelig jul,kære Autoit-Forum  " & @CRLF & @CRLF & @CRLF)
EndFunc

Alles anzeigen

Velted

Zitat von BugFix

Es gibt keinen maximalen Zeilenparameter. Nur das Minimum existiert, ist m.M.n. aber 3:

Da hast Du aber eine Spitze auf einen frischen Austrieb eines jüngst gefällten Tannenbaums gesteckt.

Die 32 habe ich willkürlich gesetzt, weil das Ganze irgendwann sinnlos wird. Die Funktion verkraftet auch 1024.

**BugFix**

Zitat von Velted

Da hast Du aber eine Spitze auf einen frischen Austrieb eines jüngst gefällten Tannenbaums gesteckt.

Definiere Weihnachtsbaum...

**SOLVE-SMART** · Poweruser seit 21.01.2023

Hi zusammen,

es freut mich das bereits ein paar von euch teilgenommen haben 😀 .
Hier mein Feedback zu euren Beiträgen.

Velted:
Abgesehen davon das in der Aufgabenstellung keine Rede von einem Minimum oder Maximum war (und ich gebe BugFix Recht, min. würde drei sein), ist dein Lösungsansatz natürlich richtig 👍 .

Bei solchen Code Katas ist es i.d.R. wichtig, dass die Aufgabenstellung genau genommen wird, da meistens in einer zweiten Iteration die Aufgabe noch erweitert wird.
Bspw. + statt X zu verwenden geht nicht - bei uns hier schon 😅 .

Danke fürs Mitmachen.

BugFix :
Da gibt es nicht viel zu sagen, passt genau wie es ist. Danke auch dir fürs Mitmachen 👍 .

Alina:
Danke für den witzigen Ansatz 😅 . Dein Beitrag fällt aus der Wertung raus, da es nicht die Aufgabenstellung erfüllt. Aber an sich eine schöne Idee mit den Kerzen zusätzlich 😊 .
Dies wäre eine tolle Ergänzung für eine zweite Iteration. Ein Hinweis noch: In deinem Code-Snippet fehlt das EndFunc noch.

Danke fürs Mitmachen.

Viele Grüße
Sven

**SOLVE-SMART** · Poweruser seit 21.01.2023

Hier übrigens auch mal mein Lösungsansatz. Nicht erschrecken, ist ziemlich ausführlich (mit Absicht) 😇 .

Spoiler anzeigen

AutoIt

_DrawTree(15)

Func _DrawTree($iRows)
    Local $iCountOfSpaces = $iRows - 1

    Local Const $sMaxPadding     = _CharacterRepeat(' ', $iCountOfSpaces)
    Local Const $sPeakCharacter  = '*'
    Local Const $sTreeCharacter  = 'X'
    Local Const $sTribeCharacter = '| |'

    Local $iCountOfTreeCharacters = 1

    _Print() ; only for design purposes

    For $i = 1 To $iRows Step 1
        Switch $i
            Case 1
                _Print($sMaxPadding & $sPeakCharacter & $sMaxPadding)

            Case 2
                _Print($sMaxPadding & $sTreeCharacter & $sMaxPadding)

            Case $iRows
                Local $sPadding = StringTrimRight($sMaxPadding, 1)
                _Print($sPadding & $sTribeCharacter & $sPadding)

            Case Else
                $iCountOfSpaces         -= 1
                $iCountOfTreeCharacters += 2

                Local $sPadding        = _CharacterRepeat(' ', $iCountOfSpaces)
                Local $sTreeCharacters = _CharacterRepeat($sTreeCharacter, $iCountOfTreeCharacters)

                _Print($sPadding & $sTreeCharacters & $sPadding)
        EndSwitch
    Next

    _Print() ; only for design purposes
EndFunc

Func _CharacterRepeat($sCharacter, $iOccurrence = 1)
    ; I know about _StringRepeat(), but I don't
    ; want to include a UDF only for one function of it

    Local $sCharacters = Null

    For $i = 1 To $iOccurrence Step 1
        $sCharacters &= $sCharacter
    Next

    Return $sCharacters
EndFunc

Func _Print($sText = '')
    ConsoleWrite($sText & @CRLF)
EndFunc

Alles anzeigen

Viele Grüße
Sven

Velted

Zitat von SOLVE-SMART

Bspw. + statt X zu verwenden geht nicht - bei uns hier schon 😅 .

Das + ist ein Kopierschutz. Man kann damit eindeutig erkennen, ob jemand abgeschrieben hat.

**Alina**

Zitat von SOLVE-SMART

Alina:
Danke für den witzigen Ansatz 😅 . Dein Beitrag fällt aus der Wertung raus, da es nicht die Aufgabenstellung erfüllt.

Egal, des SPASS war es mir wert.

Tannenbaum habe ich seit die kleine Verstorben ist nicht mehr. Ich habe keinen Grund dazu. Für mich sind seit dem Jahr alle Feiertage nichts anderes als Urlaub. Tut sonst zu weh, auch wenn es schon etwas her ist, für mich ist es noch sehr nach.

**SOLVE-SMART** · Poweruser seit 21.01.2023

Zitat von Velted

Das + ist ein Kopierschutz. Man kann damit eindeutig erkennen, ob jemand abgeschrieben hat.

Sehr kreativ, bekommst extra Punkte 🤣 .

Zitat von Alina

[...] Tannenbaum habe ich seit die kleine Verstorben ist nicht mehr. Ich habe keinen Grund dazu. [...]

Geht mich nichts an, aber mein aufrichtiges Beleid 😔 . Bleib stark. Eine angenehme Urlaubszeit dann für dich.

**Moombas**

Meine Lösung sieht so aus:

Spoiler anzeigen

AutoIt

Opt('MustDeclareVars', 1)
#include <MsgBoxConstants.au3>
#include <String.au3>

if GenerateTree(10) then MsgBox($MB_SYSTEMMODAL, '', 'Merry Christmas!')

Func GenerateTree(Const $Rows)
Local $Dots
Local $Xs = 1
    if $Rows < 4 then
        ConsoleWrite('Enter minimum 4')
        Return False
    EndIf

    ;*
    $Dots = 2 + $Rows - 1
    ConsoleWrite(_StringRepeat('.', $Dots) & '*' & _StringRepeat('.', $Dots) & @CRLF)
    ConsoleWrite(_StringRepeat('.', $Dots) & 'X' & _StringRepeat('.', $Dots) & @CRLF)

    For $High = 1 to $Rows - 3
        $Dots -= 1
        $Xs   += 2
        ConsoleWrite(_StringRepeat('.', $Dots) & _StringRepeat('X', $Xs) & _StringRepeat('.', $Dots) & @CRLF)
    Next
    $Dots = 2 + $Rows - 2
    ConsoleWrite(_StringRepeat('.', $Dots) & '|.|' & _StringRepeat('.', $Dots) & @CRLF)
    Return True
EndFunc

Alles anzeigen

**SOLVE-SMART** · Poweruser seit 21.01.2023

Hi Moombas ,

Danke auch dir fürs Mitmachen und Danke für den Gruß am Ende 🎄 .
Auch deine Lösung passt 👍 .

Das du Punkte statt Leerzeichen genutzt hast ist offensichtlich Absicht gewesen, daher: all good.
Eine angenehme Weihnachtszeit dir.

Viele Grüße
Sven

**Moombas**

Zitat von SOLVE-SMART

Das du Punkte statt Leerzeichen genutzt hast ist offensichtlich Absicht gewesen, daher: all good.

Eignetlich vergessen zu ändern, da ich das beim Testen zur besseren Visualisierung genutzt habe Aber dann ist es halt so^^

**Alina**

Zitat von Moombas

Eignetlich vergessen zu ändern, da ich das beim Testen zur besseren Visualisierung genutzt habe Aber dann ist es halt so^^

Eindeutig die falsche "Ausrede". Die Punkte dachte ich war der Schneefall der ja zum Fest nicht zu erwartenb ist.

**Moombas**

Ganz ehrlich: Kurz überlegt ob ich das so verkaufen kann und es dann verworfen, da es mir zu unplausibel klang

**SOLVE-SMART** · Poweruser seit 21.01.2023

Alina und Moombas ihr seid mir zwei Schlingel 😂 , schlimm!

**Alina**

SOLVE-SMART
Ich mir keine Schuld bewusst und erhebe Einspruch !

🌍	Au3Forums
🎲	AutoIt (de) Cheat Sheet / en
💎	Code Katas: Eins, Zwei, Drei
🔮	GitHub
🥳	Poweruser seit 21.01.2023
🎭	Sammlung von GitHub Benutzern mit AutoIt Projekten
🔭	Umgang mit Powershell-Output
🔭	Umgang mit SQLite
✂	VSCode-AutoItSnippets
🎬	WebDriver Crashkurs
📑	WebDriver FAQs
👨‍💻	WebDriver Beispiel (Login, Klicks, Daten eingeben, robustes Warteverhalten)
👨‍💻	WebDriver Beispiel (Texte von Website lesen, in CSV überführen)

🌍	Au3Forums
🎲	AutoIt (de) Cheat Sheet / en
💎	Code Katas: Eins, Zwei, Drei
🔮	GitHub
🥳	Poweruser seit 21.01.2023
🎭	Sammlung von GitHub Benutzern mit AutoIt Projekten
🔭	Umgang mit Powershell-Output
🔭	Umgang mit SQLite
✂	VSCode-AutoItSnippets
🎬	WebDriver Crashkurs
📑	WebDriver FAQs
👨‍💻	WebDriver Beispiel (Login, Klicks, Daten eingeben, robustes Warteverhalten)
👨‍💻	WebDriver Beispiel (Texte von Website lesen, in CSV überführen)

🌍	Au3Forums
🎲	AutoIt (de) Cheat Sheet / en
💎	Code Katas: Eins, Zwei, Drei
🔮	GitHub
🥳	Poweruser seit 21.01.2023
🎭	Sammlung von GitHub Benutzern mit AutoIt Projekten
🔭	Umgang mit Powershell-Output
🔭	Umgang mit SQLite
✂	VSCode-AutoItSnippets
🎬	WebDriver Crashkurs
📑	WebDriver FAQs
👨‍💻	WebDriver Beispiel (Login, Klicks, Daten eingeben, robustes Warteverhalten)
👨‍💻	WebDriver Beispiel (Texte von Website lesen, in CSV überführen)

🌍	Au3Forums
🎲	AutoIt (de) Cheat Sheet / en
💎	Code Katas: Eins, Zwei, Drei
🔮	GitHub
🥳	Poweruser seit 21.01.2023
🎭	Sammlung von GitHub Benutzern mit AutoIt Projekten
🔭	Umgang mit Powershell-Output
🔭	Umgang mit SQLite
✂	VSCode-AutoItSnippets
🎬	WebDriver Crashkurs
📑	WebDriver FAQs
👨‍💻	WebDriver Beispiel (Login, Klicks, Daten eingeben, robustes Warteverhalten)
👨‍💻	WebDriver Beispiel (Texte von Website lesen, in CSV überführen)