Help for this page

Select Code to Download


  1. or download this
    my $num=0;
for(@taulell)
...
} @taulell;      
addstr(3,1,"N = $num");
addstr(24,35,"Tecla = <$key> ");
  2. or download this
    my $num=0;

...
} @taulell;      
addstr(3,1,"N = $num");
addstr(24,35,"Tecla = <$key> ");
  3. or download this
    addstr(3,1,"N = ". scalar map { grep { /B/ } @$_ } @taulell );