C# :: Aufgabe #372

1 Lösung Lösung öffentlich

Anagramme (Schüttelwörter) gruppieren

Fortgeschrittener - C# von JKooP - 13.03.2021 um 12:41 Uhr
Von einem Anagramm oder auch deutsch Schüttelwort spricht man,
wenn man durch Umstellen der vorhandenen Zeichen eines Wortes ein neues sinnvolles Wort bilden kann.
Oft werden Anagramme mit Palindromen verwechselt, wobei ein Anagramm auch gleichzeitig
ein Palindrom sein kann, z.B.: LAGERREGAL – REGALLAGER.

ANNA – ANNA hingegen ist kein Anagramm, sondern ein Palindrom,
obwohl es wegen des Gleichklangs ANA oft irrtümlich so bezeichnet wird.

Gegeben ist eine Liste bestehend aus verschiedenen Wörtern.
list = { "eat", "tea", "tan", "ate", "nat", "bat" };

Schreibe eine Methode/Funktion, die die Liste list auf Anagramme hin überprüft
und die Ergebnisse in einer neuen Liste gruppiert zurückgibt.

result = { {"bat"}, {"nat", "tan"}, {"ate", "eat", "tea"} }

Die Reihenfolge der Rückgabe in der List ist nicht entscheidend.
Wörter, die keine Anagramme bilden, sollen ebenfalls als Einzelwort in die Ergebnisliste aufgenommen werden.
Je nach Programmiersprache oder Vorliebe können statt Listen auch Arrays oder Tupel verwendet werden.

Viel Spaß

Lösungen:

1 Kommentar
vote_ok
von JKooP (18090 Punkte) - 13.04.2021 um 17:12 Uhr
NET 5.x; C# 9.x; VS-2019
Hier mal als als generische Erweiterungsmethode:
Quellcode ausblenden C#-Code
using System.Collections.Generic;
using System.Linq;
using static System.Console;

var lst1 = new List<string> { "eat", "tea", "tan", "ate", "nat", "bat" };
var lst2 = new List<string> { "123", "321", "456", "231", "654", "789" };

lst1.GroupAnagrams().Print();
WriteLine();
lst2.GroupAnagrams().Print();

public static class Extensions
{
    public static List<List<T>> GroupAnagrams<T>(this List<T> l) => new(
    l.Select(x => (index: l.IndexOf(x), values: string.Join("", x.ToString().OrderBy(y => y))))
        .GroupBy(g => g.values).Select(z => new { lists = z.Select(x => l[x.index]).ToList() }).Select(x => x.lists));

    public static void Print<T>(this List<List<T>> l) => l.ForEach(x => WriteLine($"[{string.Join(", ", x)}]"));
}