Opened by roli at 2008-03-11 18:39
mit so einem Monster geht es auch:
Code (perl): (dl
)
$out=join('', split(/(.)\1+/,join('',sort(split('',$in)))));
|
Thread Eindeutige Liste aller Zeichen im String
(32 answers)
Opened by roli at 2008-03-11 18:39
mit so einem Monster geht es auch:
Code (perl): (dl
)
$out=join('', split(/(.)\1+/,join('',sort(split('',$in))))); |