diff options
| -rw-r--r-- | challenge-127/cheok-yin-fung/perl/ch-1.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/challenge-127/cheok-yin-fung/perl/ch-1.pl b/challenge-127/cheok-yin-fung/perl/ch-1.pl index 36fb6ab2df..8ef8e99ccb 100644 --- a/challenge-127/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-127/cheok-yin-fung/perl/ch-1.pl @@ -18,11 +18,15 @@ while ($a[$i] ne 'x' && $i < scalar @a) { $i++; } +$i++; + while ($i < scalar @a) { push @a2, $a[$i]; $i++; } +say " first array: ", "@a1"; +say "second array: ", "@a2"; say disjoint( [@a1], [@a2]); sub disjoint ($s1 , $s2) { |