The following program:
---------------------
my @first_set = qw(1 1 1 1 1 1 1 1 1 1 1 1 1 1);
my @new_set = qw(1 2 1 1 1 1 1 1 1);
if (any(@first_set) != any(@new_set)) {
"a fluctuation in the readings has been detected" . say;
}
Yields this error message:
-------------------------
terry@Abulafia:~/perl/talks/p6-junctions$ pugs any-any.p6
unexpected "{"
expecting term postfix, operator, postfix conditional, ternary conditional, ";" or end of input
NonTerm "any-any.p6" (line 4, column 39)
Abutting the period to the string yields a running program:
my @first_set = qw(1 1 1 1 1 1 1 1 1 1 1 1 1 1);
my @new_set = qw(1 2 1 1 1 1 1 1 1);
if (any(@first_set) != any(@new_set)) {
"a fluctuation in the readings has been detected".say;
}
The error message had me staring at the line above the "..." . say
because it said there was a problem with the open bracket.
--
Carter's Compass: I know I'm on the right track when,
by deleting something, I'm adding functionality.
