Số nguyên tố Satan

họ là ai
chúng Primeschứa 666
những thứ này là Satan-Primes: [46663,266677,666599,666683,616669]
chúng KHÔNG :[462667,665669,36363631,555]

Âm mưu

Mỗi số lớn hơn 6661 đều có Satan-Primes phía sau anh ta

Các thách thức

Cho một số nguyên n>6661tìm Satan-Prime phía sau (hoặc bằng) và gần nhất với chính nó.

Ví dụ

Số nguyên n=30000có 3 số nguyên tố Satan (SP) đằng sau nó : [6661, 16661, 26669].
Mã của bạn phải trả lại mã 26669gần nhất

Các trường hợp thử nghiệm

Đầu vào-> Đầu ra

6662->6661    
10000->6661    
66697->66697 (a SP returns himself)  
328765->326663  
678987->676661
969696->966677

Quy tắc

Mã Yor sẽ hoạt động cho bất kỳ ntrong phạm vi ngôn ngữ của bạn.

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng!

Toán học, 82 byte

Last@Select[Prime@Range@PrimePi@#,!FreeQ[Subsequences[IntegerDigits@#],{6,6,6}]&]&

Neim , 9 byte

>ͻ:D+6S𝕚÷

Giải trình:

>         Increment input
 ͻ        Start infinite loop
  :        Previous prime
   D       Duplicate
    +6     Push 666
      S    Swap
       𝕚   See if 666 is a substring of the top of the stack
        ÷  If true, break

Hãy thử trực tuyến!

Thạch , 10 9 byte

Tiết kiệm 10% nhờ @Dennis!

ÆRwÐf666Ṫ

Hãy thử trực tuyến!

Giải trình

ÆR          # All primes in range [2, input]
   Ðf      # Keep those which satisfy
  w        # truthy if y is in x
     666   #           ^ (this is y)
        Ṫ  # Tail (take the last element)

Bình thường , 15 14 byte

Đã lưu 1 byte với sự giúp đỡ từ Dave .

Lỗi bộ nhớ cho 969696 và mọi thứ cao hơn trên máy của tôi, nhưng sẽ ổn nếu được cung cấp đủ bộ nhớ.

ef&/`T*3\6P_TS

Hãy thử nó ở đây hoặc kiểm tra Test Suite.

Làm sao?

ef & / `T * 3 \ 6P_TSQ - Chương trình đầy đủ, với đầu vào ẩn (Q) ở cuối

             SQ - Phạm vi [1, Q]
 f - Bộ lọc.
          P_T - Là số nguyên tố?
  & - Và
   / `T * 3 \ 6 - Nó chứa 666.
e - Yếu tố cuối cùng.
                - Hoàn toàn xuất kết quả.

Bình thường , 14 byte

ef/`T*\63fP_TS

Hãy thử nó ở đây!

05AB1E , 11 byte

ƒNpN666å*iN

Hãy thử trực tuyến!

Bash + Sử dụng lõi, 51 49 byte

seq $1|tac|factor|awk 'NF==2&&/666/&&!a--&&$0=$2'

Đưa đối số dòng lệnh. Có thể khá chậm với số lượng lớn hơn.

Toán học, 64 62 61 53 byte

#//.i_/;!PrimeQ@i||ToString@i~StringFreeQ~"666":>i-1&

-1 byte nhờ @KellyLowder

-8 byte (wow) nhờ @Notatree

Giải trình

Lấy một đầu vào. Chúng tôi giảm giá theo các điều kiện sau:

• đầu vào không phải là số nguyên tố, HOẶC

• các chữ số của đầu vào không chứa ba 6s liên tiếp.

Chúng tôi lặp lại điều đó cho đến khi đạt được một nguyên tố Satan.

Perl 5 , 47 byte

46 byte mã + 1 cho -p

{$f=0|sqrt;1while$_%$f--;/666/*!$f||$_--*redo}

Hãy thử trực tuyến!

Japt , 14 byte

õ fj w æ_sø666

Kiểm tra nó

Xem như đã có một phần thưởng dựa trên thời gian 50%: Hoàn thành trường hợp thử nghiệm 969696trong vòng nửa giây.

Giải trình

Đầu vào ngầm định của số nguyên U.

õ

Tạo một mảng các số nguyên từ 1đến U.

fj

Bộ lọc ( f) số nguyên tố.

w

Đảo ngược.

æ_

Trả về phần tử đầu tiên trả về giá trị trung thực (trong trường hợp này 1) khi được chuyển qua hàm kiểm tra nếu ...

sø666

Số nguyên được chuyển đổi thành một chuỗi ( s) chứa (ø ) 666.

Thay thế nhanh hơn, 15 byte

Một lần nữa, nhìn thấy như ban đầu có một phần thưởng dựa trên thời gian, đây là một giải pháp thay thế và nhanh hơn nhiều, mà tôi dường như không thể chơi gôn thêm nữa.

U-@j *U´sø666}a

Kiểm tra nó

PowerShell , 128 byte

param($n)function f($a){for($i=2;$a-gt1){if(!($a%$i)){$i;$a/=$i}else{$i++}}}for(){if($n-match666-and($n-eq(f $n))){$n;exit}$n--}

Hãy thử trực tuyến!

PowerShell không có bất kỳ yếu tố tích hợp nguyên tố chính nào, vì vậy, mã này mượn mã từ câu trả lời của tôi trên Prime Factors Buddies .

Chúng tôi lấy đầu vào $n, sau đó khai báo một số mới function ftính toán các yếu tố của đầu vào $a. Nếu đầu vào $alà số nguyên tố, thì điều này sẽ trả về $a.

Phần chính của chương trình là for()vòng lặp vô hạn . Trong vòng lặp, chúng tôi kiểm tra xem $n -matches có chống lại 666hay không và có phải $nlà số nguyên tố hay không (nghĩa là $nphù hợp với tất cả các yếu tố của $n). Nếu có, chúng tôi đặt $ntrên đường ống và exit, với đầu ra ngầm. Nếu không, chúng tôi giảm dần $n--và tiếp tục vòng lặp.

Python 2 , 77 76 byte

Chỉnh sửa: -1 byte nhờ @ Mr.Xcoder

Thời gian chạy chậm, chạy trong O(n^2)

lambda x:max(q for q in range(x+1)if"666"in`q`*all(q%t for t in range(2,q)))

Hãy thử trực tuyến!

Một giải pháp 76 byte khác

lambda x:max(q*("666"in`q`*all(q%t for t in range(2,q)))for q in range(x+1))

Hãy thử trực tuyến!

Với SymPy 73 byte

lambda x:max(q for q in primerange(0,x+1)if"666"in`q`)
from sympy import*

Hãy thử trực tuyến!

PowerShell , 71 69 64 byte

param($s)for(;$s-notmatch666-or(2..($s/2)|?{!($s%$_)});$s--){}$s

Hãy thử trực tuyến!

• 328765 mất ~ 30 giây trên máy của tôi, nhưng vượt quá giới hạn 60 giây trên Tio.run.

• 678987 mất ~ 1,5 phút.

• 969696 mất ~ 4,5 phút.

MATL, 16 byte

ZqP"@V'666'Xf?@.

Dùng thử tại MATL Online

Giải trình

         Implicitly grab input (n)
Zq       Compute the primes up to n (output is in increasing order)
P        Flip the array (so larger primes come first)
"        For each prime
  @V     Convert it to a string
  '666'  Push the string literal '666' to the stack
  Xf     Find the location of '666' in the prime
  ?      If it was present...
    @.   Push it to the stack and break
         Implicitly display the stack contents

C ++ 389 byte

#include <iostream>
#include <boost/multiprecision/cpp_int.hpp>
#include <boost/multiprecision/miller_rabin.hpp>
using namespace boost::random;typedef boost::multiprecision::cpp_int Z;int main(int,char**v){mt19937 m(clock());independent_bits_engine<mt11213b,256,Z>g(m);Z n{v[1]},p;while(p++<=n)if(miller_rabin_test(p,25,g)&&p.convert_to<std::string>().find( "666" )!=-1)std::cout<<p<<" ";}

Đây là một chương trình đầy đủ!
Bạn sẽ cần Boost để biên dịch nó. (Hoặc sao chép và dán vào trình bao C ++ trực tuyến yêu thích của bạn.)
Chạy nó từ dòng lệnh đưa n làm đối số.

Ung dung:

#include <iostream>
#include <boost/multiprecision/cpp_int.hpp>
#include <boost/multiprecision/miller_rabin.hpp>
using namespace boost::random;

typedef boost::multiprecision::cpp_int integer;

int main( int argc, char** argv )
{
  mt19937 mt( clock() );
  independent_bits_engine <mt11213b, 256, integer> rng( mt );

  integer input {argv[ 1 ]};
  integer possible;

  while (possible++ <= input)
    if (
      // is_prime( possible )
      miller_rabin_test( possible, 25, rng )
    && 
      // possible has "666" in it
      (possible.convert_to <std::string> ().find( "666" ) != std::string::npos))

    std::cout << possible << " ";
}

Các phím tắt được thực hiện về mặt kiểm tra số ngẫu nhiên. Mã ban đầu bắt đầu thử nghiệm các số nguyên tố có thể ở 6661 và tăng thêm hai. Bạn cũng sẽ nhận được một cảnh báo trình biên dịch vì điều đó (-1) ở đó thay vì npose.

Tuy nhiên, điều này chạy khá nhanh. Chỉ mất khoảng 40 giây để tìm thấy tất cả 214 số nguyên tố satan dưới 1.000.000 trên AMD Sempron 130 cũ của tôi.

: ^ D

Gói trò chơi Bash + bsd, 33

• Đã lưu 2 byte nhờ @FedericoPoloni.

primes 2 $[$1+1]|grep 666|tail -1

Hãy thử trực tuyến .

Python 3 , 85 83 80 byte

Halvard's ngắn hơn 4 byte vì nó được thực hiện trong Python 2.

lambda k:max(x for x in range(k+1)if"666"in str(x)*all(x%i for i in range(2,x)))

Hãy thử trực tuyến!

Hãy cho nó một chút thời gian, nó cực kỳ chậm vì sự O(n^2)phức tạp của nó .

JavaScript (ES6), 55 54 byte

-1 byte nhờ @ThePirateBay.

f=n=>/666/.test(d=n)&eval("while(n%--d);d<2")?n:f(n-1)

Rất chậm với đầu vào lớn. Kiểm tra tính nguyên thủy thích nghi từ câu trả lời golf mã này .

Thời gian

• Đầu vào 10000mất 10 giây
• Nhập liệu 328765mất 3 phút
• Nhập liệu 678987mất 9 phút
• Nhập liệu 969696mất 16 phút

Xét nghiệm

Một số trong số này sẽ treo trình duyệt của bạn trong vài phút.

f=n=>/666/.test(d=n)&eval("while(n%--d);d<2")?n:f(n-1)

function test(n) {
  O.value="Working..."
  setTimeout(_=>{
    let t = Date.now()
    O.value=`f(${n}) = ${f(n)} in ${(Date.now()-t)/1000}s`
  }, 10)
}

Tests<br>
<button onclick="test(6662)">6662</button>
<button onclick="test(10000)">10000</button>
<button onclick="test(328765)">328765</button>
<button onclick="test(678987)">678987</button>
<button onclick="test(969696)">6662</button><br>
Result<br>
<input id=O type=text size=25 readonly>

Phiên bản nhanh hơn, 56 byte

Hoàn thành mỗi trường hợp thử nghiệm trong một giây.

f=n=>/666/.test(n)&&eval("for(d=2;n%d++;);d>n")?n:f(n-1)

;[6662, 10000, 328765, 678987, 969696].forEach(n=>console.log(`f(${n}) -> ${f(n)}`))

Hồng ngọc 67 , 66 , 58 , 56 byte

Bao gồm các +7byte cho-rprime

->z{z.downto(1).find{|x|/666/=~x.to_s&&x.prime?}}

Nó khá nhanh, tính toán các giá trị lên tới ~2^52trong khoảng một giây và 2^64dưới 5 phút (2011 MBP, Ruby 2.3.1).

Stax , 10 byte

ü>:Ñb/VP6─

Chạy và gỡ lỗi nó

Giải thích (giải nén):

^w:pc$666$#! Full program, implicit input-parsing
^            Increment input
 w           do-while:
  :p           Previous prime
    c$         Copy and stringify
      666$     Push "666"
          #    Number of occurences
           !   Logical not
             Implicit output

PHP , 148 byte

<?php $p=[2];$s=[];for($i=3;$i<=$argv[1];$i++){foreach($p as $q)if($i%$q===0)continue 2;$p[]=$i;if(strpos($i,'666')!==false)$s[]=$i;}echo end($s);?>

Hãy thử trực tuyến!

Perl 6 , 35 byte

my&f={/666/&&.is-prime??$_!!f $_-1}

Hãy thử trực tuyến!

Giải pháp đệ quy đơn giản.

C # (.NET Core) , 117 115 112 byte

f=>{for(int i=f;i>1;i--){int p=1,j=2;while(j<i)if(i%j++<1)p=0;if(p>0&$"{i}".Contains("666"))return i;}return 0;}

Hãy thử trực tuyến!

• 2 byte được lưu bằng cách loại bỏ các dấu ngoặc không cần thiết.
• 3 byte được lưu bằng cách kết hợp intkhai báo.

Tôi chắc chắn rằng điều này có thể được thực hiện ngắn hơn; có thể bằng cách gọi đệ quy func fvà loại bỏ lớp ngoài for.

Phương pháp đệ quy, 85 byte

i=>{int p=1,j=2;while(j<i)if(i%j++<1)p=0;return p>0&$"{i}".Contains("666")?i:f(--i);}

Hãy thử trực tuyến!

Tôi không chắc cách tiếp cận này phù hợp với giới hạn của golf-code do phải đặt Func<int,int> f = nullđầu tiên và fđược gọi lại, nhưng không được tính vào các byte. Bất kỳ làm rõ sẽ được đánh giá cao.