Opened by Saugwels98 at 2013-09-18 19:54
User since
2012-07-18
1465 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-07-18
1465 Artikel
BenutzerIn
Code (perl): (dl
)
my @Konsonant = grep { !(lc $_ ~~ @Vocal) } ('A' .. 'Z');
;)
Wobei mir aufgefallen ist, dass es gar keinen negierten Smart Match gibt?
[EDIT] Hab ich das geträumt oder gabs nicht irgendwo in einem Modul eine (random)pick-Funktion in Perl? Ich finds nicht.
Last edited: 2013-09-19 08:43:10 +0200 (CEST)
1 + 1 = 10