Junctions in Perl 6
More examples with Junctions
JunctionsAs we already seen in a previous chapter we can use a junction to check if a values is among a given set of values examples/junctions/intro.p6#!/usr/bin/perl6
use v6;
my $possible_options = 1|2|3;
my $c = prompt "please give a number(1,2 or 3): ";
if $c == $possible_options {
say "Correct choice: $c";
} else {
say "Incorrect choice: $c";
}
Copyright 2006, 2007, 2008, 2009, 2010 Gabor Szabo http://szabgab.com/ Index | TOC |
Follow me: