Help for this page

Select Code to Download


  1. or download this
    for (0..2) {
  foreach my $x (0..1, ()) { print +($x .= " wassap? ") . "\n"; }
}
  2. or download this
    0 wassap?
1 wassap?
...
1 wassap?  wassap?
0 wassap?  wassap?  wassap?
1 wassap?  wassap?  wassap?
  3. or download this
    print map { s/$/\n/;$_ } (0..1);
  4. or download this
    print map { s/$/\n/;$_ } (0,1);
  5. or download this
    for (0..1) {
    print map { s/$/!\n/;$_ } (0..1);
}