{"body":"#!/usr/bin/perl6\n\nuse strict;\n\nmy int @primes;\n\nPRIME:\nloop (my $n = 2; $n <= 10_000; $n++) {\n    # Check previous primes\n    for @primes -> $prime {\n        next PRIME if $n % $prime == 0;\n    }\n\n    # Verify primes are actually valid\n    #die \"Bad prime: $n\" unless ($n.is-prime);\n    \n    push @primes, $n;\n}\n\nmy $time = now - BEGIN now;\nsay \"Found {+@primes} primes in {$time}s ({round(+@primes / $time)} P/s)\";\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/hIqkjkVX","modified":1530483501,"id":"hIqkjkVX","size":416,"lines":21,"own_paste":false,"theme":"","date":1530483501}