Changes between Version 19 and Version 20 of Perl

Timestamp:

10/30/06 09:14:36 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -451 +451 @@
 {{{
 #!perl
+use Clone qw(clone);
+
 my @array = (100 .. 150);
 my $step  = 3;
 
-print join(", ", &slice(\@array, 0, $#array, $step)), "\n";
-print join(", ", &slice(\@array, 1, $#array, $step)), "\n";
-print join(", ", &slice(\@array, 2, $#array, $step)), "\n";
+for (0 .. 10) {
+  print join(", ", &slice(\@array, $_, $#array, $step)), "\n";
+}
 
 sub slice($$$$) {
   my ($array, $start, $end, $step) = @_;
-
-  my @subs = grep { $_ % $step == $start } ($start .. $end);
-
-  return @{$array}[@subs];
+  my @subs = ();
+
+  for (my $i = $start; $i < $end; $i += $step) {
+    push(@subs, clone($array->[$i]));
+  }
+
+  return @subs;
 }
 }}}
@@ -470 +475 @@
 100, 103, 106, 109, 112, 115, 118, 121, 124, 127, 130, 133, 136, 139, 142, 145, 148
 101, 104, 107, 110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149
-102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 150
-}}}
+102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147
+103, 106, 109, 112, 115, 118, 121, 124, 127, 130, 133, 136, 139, 142, 145, 148
+104, 107, 110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149
+105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147
+106, 109, 112, 115, 118, 121, 124, 127, 130, 133, 136, 139, 142, 145, 148
+107, 110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149
+108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147
+109, 112, 115, 118, 121, 124, 127, 130, 133, 136, 139, 142, 145, 148
+110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149
+}}}