Comment by harryf

From 3 minutes playing, junctions are cool...

    #!/usr/bin/env perl6

    if 3|4|5 == 5|6 {
        print "Junction found\n"
    } else {
        print "No junction\n"
    }

...or using arrays this seems to be the way to do it...

    #!/usr/bin/env perl6
    my @first = <3 4 5>;
    my @second = <5 6>;

    if any(@first) == any(@second) {
        print "Junction found\n"
    } else {
        print "No junction\n"
    }