# New Ticket Created by  David Warring 
# Please include the string:  [perl #121802]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=121802 >


Here's a slightly golfed version of the prime example from 
integration/advent2012-day14.t

use v6;

my @primes := 2, 3, 5, -> $p { ($p+2, $p+4 ... &is-prime)[*-1] } ... *;
sub is-prime($n) { $n %% none @primes ...^  * > sqrt $n }

is-prime($_) for 2 .. 20;
is-prime($_) for 2 .. 30;

./perl6-j -Ilib tst.pl
Cannot do aggregate operation on a type object
  in method reify at gen/jvm/CORE.setting:7542
  in method reify at gen/jvm/CORE.setting:7536
  in method gimme at gen/jvm/CORE.setting:7991
  in method Bool at gen/jvm/CORE.setting:7889
  in block  at gen/jvm/CORE.setting:16800
  in block  at gen/jvm/CORE.setting:7785
  in block  at gen/jvm/CORE.setting:7787
  in method reify at gen/jvm/CORE.setting:7813
  in method reify at gen/jvm/CORE.setting:7536
  in method reify at gen/jvm/CORE.setting:7536
  in method reify at gen/jvm/CORE.setting:7536
  in method reify at gen/jvm/CORE.setting:7536
  in method gimme at gen/jvm/CORE.setting:7991
  in method eager at gen/jvm/CORE.setting:7963
  in method new at gen/jvm/CORE.setting:3358
  in sub none at gen/jvm/CORE.setting:3479
  in sub is-prime at tst.pl:4
  in block  at tst.pl:7

Working on Moar and Parrot. 

Reply via email to