Skip to content

Instantly share code, notes, and snippets.

/segv.pl6

Created March 20, 2016 13:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/d5d04065881b55c1618d to your computer and use it in GitHub Desktop.
Save anonymous/d5d04065881b55c1618d to your computer and use it in GitHub Desktop.
Download ZIP
SEGV with Rakudo version 2016.02-189-g8437418 built on MoarVM version 2016.02-33-g1e3d2ac
Raw
segv.pl6
# comment
use v6;
my $a = 14;
while (True) {
my $z = (2..13).first(-> $x { !($a %% $x) });
last if (!$z);
$a += 14;
}
say $a;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment