RDW #5 - Rätsel der Woche 5 - #85521 (Allgemeines zu Perl)

FtR

2004-08-09 15:48

User since
2003-08-20
39 Artikel
BenutzerIn
[default_avatar]

Auswetrung FtR

Code: (dl )

1
2
3

#!perl -l
$_=shift;s~.~$.=$&;@a=();/^.*(??{push@a,$&.$..$'})/for@.?@.:'';@.=@a~ge;print
for@.

und

Code: (dl )

1
2

#!perl -ln                                                                                                      
s~.~$,=$&;@a=();/^.*(??{push@a,$&.$,.$'})/for@.?@.:'';@.=@a~ge;print for@.

liefert fast immer das richtige Erg seltsamer weise wenn "123" vervendet wird (und nur dann) fehlt die letze permutation
output:
123
132
213
231
321

Folgende Golf lösung betrachten nur den Fall, dass die zeichen unterschiedlcih sind
"123" bei "aaa" oder 113 siehe aufgabentext versagen sie zum Teil ganz

sie sollten ja
113
131
113
131
311
311

liefern !!!

folgende Golflösungen sind nicht OK

Code: (dl )

1
2

#!perl -lnaF//
$"=',';map{print if!/(.).*\1/}glob"{@F}"x@F # 50 Zeichen

ist bei 123 ok aber bei 113 versagt sie völlig

Code: (dl )

1
2

#!perl -lnaF//
$"=',';map{$a=$_;$a=~s/$_//for@F;print if!$a&!$a{$_}++}glob"{@F}"x@F # 75 Zeichen

liefert nur
113
131
311
ab

die loesung von [e|b] ist ok wenn man leerzeichen bei der eingabe und ausgabe ( abweichung vom plfichtenheft) akzeptiert

mfg

FtR\n\n

Code: ()

1
2

print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);
sub f{eval(@_?$_:"'$&+'x3");}