Perl6-One-Liners
Perl6-One-Liners copied to clipboard
t/syntax.t6 hangs on this test
perl6 -MTest -e 'plan 1;is q:x{perl6 -ce "state %l;.say if ++%l{$_}==2"}, "Syntax OK\n";'
The problem seems to have to do with shell-expansion of {$_} in double quotes. It works if you do something like
perl6 -MTest -e 'plan 1;is qx{perl6 -ce "state %l; .say if ++%l«\$_» == 2"}, "Syntax OK\n";'
emplement strobe with random checker based on pi
to solve problem