QOTW 23 'perl' quiz - #49832 (Allgemeines zu Perl)

2004-09-04 16:44

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

1
2
3

#!perl -l

map/.*(??{$t{"$`($&)$'"}=1})/,@p=@p?keys%t:'',%t=()for 0..shift;print for@p

(77 Zeichen)

- oder -

Code: (dl )

1
2
3

#!perl -l

map{/\d/||print while s/0(.*?)1/($1)/}glob'{0,1}'x(2*shift)

(61 Zeichen)

Die Lösungen mit Eingabe über STDIN hätten je 2 Zeichen weniger... ;)\n\n