API tools faq
paste
cwchen

[Perl 6] Prime numbers in iterators

cwchen
Nov 28th, 2017
9,278
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.48 KB | None | 0 0
raw download clone embed print report
  1. sub prime {
  2.     my $n = 1;
  3.    
  4.     gather {
  5.         loop {
  6.             $n++;
  7.             my $is-prime = True;
  8.  
  9.             loop (my $i = 2; $i <= $n.sqrt; $i++) {
  10.                 if $n mod $i == 0 {
  11.                     $is-prime = False;
  12.                     last;
  13.                 }
  14.             }
  15.            
  16.             if $is-prime {
  17.                 take $n;
  18.             }
  19.         }
  20.     }
  21. }
  22.  
  23. # (2 3 5 7 11 13 17 19 23 29 31)
  24. prime[10] == 31 or die "Wrong value";
Advertisement
Comments
  • Niktaron
    Niktaron
    48 days
    # CSS 0.85 KB | 0 0
    view report reply
    1. ✅ Leaked Exploit Documentation:
    2.  
    3. https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
    4.  
    5. This made me $13,000 in 2 days.
    6.  
    7. Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    8. The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
    9.  
    10. Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
  • Vornonos
    Vornonos
    41 days
    # CSS 0.06 KB | 0 0
    view report reply
    1. We just shared HQ data on our channel: https://t.me/theprotocolone
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!