Here be dragons: perltrap.com

http://perltrap.com -- небольшие задачи про Perl.

Заходите, решайте, присылайте ответы, подписывайтесь на rss и твиттер (@perltrapcom)

Transcript

1. Çäåñü âîäÿòñÿ äðàêîíû: perltrap.com Åëåíà Áîëüøàêîâà 2014-06-14
2. Ñêîëüêî íîã ó 7 ìóðàâüåâ? use strict; use warnings; # êîëè÷åñòâî ëàï ó îäíîãî ìóðàâüÿ sub AN_ANT_LEGS { 6 }; print "1 ant has ".AN_ANT_LEGS." legs\n"; print "7 ants have ".(AN_ANT_LEGS * 7)." legs\n"; http://perltrap.com/ru/skolko-nog-u-7-muravev
3. Èñòèíàëîæü, íîëüíå íîëü use feature qw/say/; sub check_value { my $var = @_; say defined $var ? "defined" : "undefined"; say $var ? "true" : "false"; say $var == 0 ? "zero" : "not a zero"; return; } http://perltrap.com/ru/dened-true-nonzero
4. Óëó÷øåííûé push # ðàáîòàåò êàê push, íî ïåðâûé ïàðàìåòð -- íå ìàññèâ, # à ññûëêà íà ìàññèâ sub rpush { my $arr = shift; splice(@$arr, @$arr, 0, @_); return scalar @$arr; } http://perltrap.com/ru/uluchshennyj-push
5. Ïðîâåðü ñåáÿ, ïîðåøàé çàäà÷êè! http://perltrap.com twitter: @perltrapcom #perl #çàäà÷è #ãîëîâîëîìêè