Programmieren lernen

// NET 6.x | C# 10.x | VS-2022 => refactored
var names = new List<string> { "Arnold", "Shirley", "Billy", "Tony", "Marsha", "Nick", "Jens" };
names.ForEach(x => PrintSong(x));

static void PrintSong(string name) {
    Console.WriteLine($"{name}, {name}, {GetName(name, 'b')}" +
    $"\nBanana-fana {GetName(name, 'f')}" +
    $"\nFee-fi-{GetName(name, 'm')}\n{name}!\n");
}

static string GetName(string s, char c) {
    var pos = s.IndexOf(s.Where(x => char.ToUpper(x) is 'A' or 'E' or 'I' or 'O' or 'U').First());
    return $"{c}o-" + (s[0] == char.ToUpper(c) ? s[1..] : $"{c}" + (pos == 0 ? s.ToLower() : s[pos..]));
}
                

Lösung von: Jens Kelm (@JKooP)

function getNameGameVerse(name) {

  name = name.toLowerCase();
  name = name[0].toUpperCase() + name.slice(1);

  let firstVowelPos = (function() {
    let vowels =
      'aeiouàáâãäåæèéêëìíîïòóôõöøùúûü?????????????????œ??????' // etc.
    .split('');

    function isVowel(char) {
      return vowels.indexOf(char) >= 0;
    }

    // der Y-fall.
    // ob das funktioniert? man kann nur beten.
    if (isVowel(name[0].toLowerCase())) return 0;
    if (name[0] == 'Y' && !isVowel(name[1])) return 0;
    if (name[0] == 'Y' && isVowel(name[1])) return 1;
    vowels = vowels.concat(vowels, 'yÿý'.split(''));
    for (let i = 1; i < name.length; i++)
      if (isVowel(name[i])) return i;
  })();

  let init  = name[0].toLowerCase(),
      trunk = name.slice(firstVowelPos).toLowerCase(),
      b = trunk, f = trunk, m = trunk;

  switch (init) {
    case 'b':
      f = 'f' + trunk;
      m = 'm' + trunk;
      break;
    case 'f':
      b = 'b' + trunk;
      m = 'm' + trunk;
      break;
    case 'm':
      b = 'b' + trunk;
      f = 'f' + trunk;
      break;
    default:
      b = 'b' + trunk;
      f = 'f' + trunk;
      m = 'm' + trunk;
  }

  return (`
    <p>${name}:<br>
    ${name}, ${name}, bo-${b}<br>
    Banana-fana fo-${f}<br>
    Fee-fi-mo-${m} —<br>
    ${name}!<br></p>
  `);
}

// ausgabe
document.write( getNameGameVerse('Lisa') );

/* =>
Lisa:
Lisa, Lisa, bo-bisa
Banana-fana fo-fisa
Fee-fi-mo-misa —
Lisa!
*/

                

Lösung von: Lisa Salander (Heidi-Klum-Gymnasium Bottrop)

// C++ 14 | VS-2022
#include <iostream>
#include <string>
#include <algorithm>
#include <vector>

std::string get_name(const std::string& str, const char& chr) {
    const std::string vow{ "aeiouAEIOU" };
    auto low{ str };
    std::transform(low.begin(), low.end(), low.begin(), ::tolower);
    const auto pos{ [&str, &vow]() {
        for (auto i { 0}; i < str.length(); i++) 
            if (vow.find(str[i]) != std::string::npos) return i;
        return -1; } };
    std::string out{ chr };
    if (pos() > -1) return out + "o-" + (str[0] == std::toupper(chr) ? low.substr(1) : chr + (pos() == 0 ? low : low.substr(pos())));
    return str;
}

void print(const std::string& name) {
    std::cout << name << ", " << name << ", " << get_name(name, 'b')
        << "\nBanana-fana " << get_name(name, 'f')
        << "\nFee-fi-" << get_name(name, 'm')
        << "\n" << name << "!\n\n";
}

int main() {
    std::vector<std::string> v{ "Shirley", "Lincoln", "Arnold", "Tony", "Billy", "Marsha", "Nick", "Jens"};
    for(const auto& i : v) print(i);
}
                

Lösung von: Jens Kelm (@JKooP)

' für VBA

Sub Main() 'mit [Strg + G] Direktbereich öffnen
    Dim arr As Variant, i As Integer
    arr = Array("Shirley", "Lincoln", "Arnold", "Tony", "Billy", "Marsha", "Nick", "Jens")
    For i = 0 To UBound(arr)
        Debug.Print GetSong(arr(i))
    Next
End Sub

Function GetName(str As String, chr As String) As String
    Dim pos As Integer
    Dim res As String, low As String, tmp As String
    low = LCase(str)
    pos = GetPos(str)
    If pos > 0 Then
        If Left(str, 1) = UCase(chr) Then
            tmp = Mid(low, 2)
        Else
            If pos = 1 Then
                tmp = chr & low
            Else
                tmp = chr & Mid(low, pos)
            End If
        End If
        res = chr & "o-" & tmp
    Else
        res = str
    End If
    GetName = res
End Function

Function GetPos(str As String) As Integer
    Dim res As Integer, i As Integer, pos As Integer
    For i = 1 To Len(str)
        pos = InStr("aeiouAEIOU", Mid(str, i, 1))
        If pos > 0 Then
            res = i
            Exit For
        End If
    Next i
    GetPos = res
End Function

Function GetSong(ByVal name As String) As String
    GetSong = name & ", " & name & ", " & GetName(name, "b") & vbCrLf & _
    "Banana-fana " & GetName(name, "f") & vbCrLf & _
    "Fee-fi-" & GetName(name, "m") & vbCrLf & _
    name & "!" & vbCrLf & vbCrLf
End Function
                

Lösung von: Jens Kelm (@JKooP)