Perl6: Smartmatch scalar to array

molecules has asked for the wisdom of the Perl Monks concerning the following question:

The code below gives me the output

["1", "2", "3", "4"]
scalar '1' not in 1 2 3 4
[download]

when clearly it is in the array. Am I doing something wrong? Is it a future implementation issue?

use v6;

my @array = <1 2 3 4>;
@array.perl.say;

my $scalar = '1';

if $scalar ~~ @array {
        say 'scalar in array';
}
else {
        say "scalar '$scalar' not in @array[]";
}
[download]

I'm using Rakudo Star on Windows 7, 64-bit.

Thanks!

Comment on Perl6: Smartmatch scalar to array Select or Download Code

Replies are listed 'Best First'.
Re: Perl6: Smartmatch scalar to array by Fox (Pilgrim) on Aug 16, 2010 at 17:41 UTC
`$scalar ~~ any(@array)` does what you meant, don't know if it's supposed to be the default though.	[reply] [d/l]
Re^2: Perl6: Smartmatch scalar to array by TimToady (Parson) on Aug 16, 2010 at 20:14 UTC
Indeed, it is precisely because Perl 6 has junctions that we do not need to assume junctional semantics on smartmatched lists; Perl 5 does not have junctions, so it does assume that. Instead, Perl 6 can use a list to smartmatch another list, which is also a useful behavior--especially since wildcards are supported. For instance, `(1,2,3,4,5) ~~ (,2,3,)` returns true.	[reply] [d/l]
Re^3: Perl6: Smartmatch scalar to array by molecules (Monk) on Aug 18, 2010 at 17:36 UTC
Thanks. I had assumed that smartmatch would be identical between Perl 5 and Perl 6, but I like the Perl 6 way better. It seems more maintainable. Also, thanks for all of your work on all of the Perls.	[reply]
Re^2: Perl6: Smartmatch scalar to array by molecules (Monk) on Aug 16, 2010 at 18:38 UTC
Thanks. That also makes the intent clearer.	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks