Opened by pktm at 2010-09-09 23:29
was du "union" nennst sollte besser "intersection" heißen :)
es zeigt sich auch dass es in diesem Fall nicht so trivial ist weil man eine Vergleichsfunktion braucht, um Arrayrefs zu vergleichen. M.a.W. entscheiden ob ein Arrayref ein Element oder eine Untermenge ist.
Auch der Vergleich von Mengen ist nicht trivial, meine Lösung
könnte bei refs als Elementen nicht funktionieren.
Was verwirrt ist das Perl bei Klammerung wohl ein Listassign kennt also
aber kein Listcompare
. (die Längen werden verglichen)
Dafür gibts jetzt smartmatch, das aber rekursiv in die Tiefe geht:
Last edited: 2010-09-10 13:43:19 +0200 (CEST)
es zeigt sich auch dass es in diesem Fall nicht so trivial ist weil man eine Vergleichsfunktion braucht, um Arrayrefs zu vergleichen. M.a.W. entscheiden ob ein Arrayref ein Element oder eine Untermenge ist.
Auch der Vergleich von Mengen ist nicht trivial, meine Lösung
Code: (dl
)
"@$a" eq "@$b"
Was verwirrt ist das Perl bei Klammerung wohl ein Listassign kennt also
Code: (dl
)
($a,$b)=($b,$a)
Code: (dl
)
(@a)==(@b)
Dafür gibts jetzt smartmatch, das aber rekursiv in die Tiefe geht:
Last edited: 2010-09-10 13:43:19 +0200 (CEST)