diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-08-29 15:58:30 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-08-29 15:58:30 +0100 |
| commit | 795d16f7ff75131f2b8b537b420d9c3215fdae6a (patch) | |
| tree | 17f518bf536067984e00d4f984caa12f7e081e4a | |
| parent | 95b1c13fbcd9a4f1df891b66a22569737b21f381 (diff) | |
| parent | 510e58ebc7ab3942148492adaf663984a838001f (diff) | |
| download | perlweeklychallenge-club-795d16f7ff75131f2b8b537b420d9c3215fdae6a.tar.gz perlweeklychallenge-club-795d16f7ff75131f2b8b537b420d9c3215fdae6a.tar.bz2 perlweeklychallenge-club-795d16f7ff75131f2b8b537b420d9c3215fdae6a.zip | |
Merge pull request #4804 from E7-87-83/newt
exclude the seperator from the sets
| -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) { |