Portál AbcLinuxu, 25. dubna 2024 08:52
legenda:
+ -> v kombinácii s
/ -> alebo
use strict; use warnings; # long time wanted perl function sub map2 (&\@\@) { my ($sub,$f,$s) = @_; map { local (*a, *b) = (\$f->[$_], \$s->[$_]); &$sub } (0..$#$f); } # data my @a1=(1,2,3); my @a2=(4,5,6); # output modification $\="\n"; $"=','; # use and output print "map2 result: ", join $", map2 {$a + $b++} @a1, @a2; print "a1: @a1"; print "a2: @a2";
dc
viz. třeba největší společný dělitel v mé ignatuře, nebo Eratothenovo síto
dc -e '?dSavSb[d1r:cSadLa+dla!<e]se[ddSa2*Lad*lexszsz]sd3[d;c0=d2+dlb!<f]dsfx[p]sdlaSb2p3lfx'
Ó jak jsi báječný, taky tě mám rád
P.S.: Kolik jazyků znáš, tolikrát jsi člověkem a naučit se zásobníkový koncept za ztrátu času rozhodně nepovažuji. Nikdy nevíš, kdy se to to bude hodit.
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.