Şeytan-Asal

Onlar kim?
Bunları Primesiçerenler 666
Şeytan-Asallardır: [46663,266677,666599,666683,616669]
Bunlar DEĞİL :[462667,665669,36363631,555]

Arsa

6661'den daha büyük olan her sayı arkasında Şeytan-Asalları vardır.

Meydan okuma

Bir tamsayı verildiğinde n>6661Şeytan-Başbakanı arkanda (veya eşit) ve kendisine en yakın olanı bulun .

Örnekler

Tamsayı n=30000arkasında 3 Şeytan-Asal Sayı (SP) sahiptir: [6661, 16661, 26669].
Kodunuz 26669, arkasındaki en yakın olanı döndürmelidir.

Test Kılıfları

Girdi-> Çıktı

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

kurallar

Yor kodu n, dilinizin herhangi biri için çalışmalıdır .

Bu kod golf , yani bayt cinsinden en kısa cevap kazanır!

Mathematica, 82 bayt

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

Neim , 9 bayt

>ͻ:D+6S𝕚÷

Açıklama:

>         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

Çevrimiçi deneyin!

Jöle , 10 9 bayt

@Dennis sayesinde% 10 indirim!

ÆRwÐf666Ṫ

Çevrimiçi deneyin!

açıklama

Æ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)

Pyth , 15 14 bayt

Dave'in yardımıyla 1 bayt kaydedildi .

Makinemde bellek hataları 969696ve daha yüksek şeyler var, ancak yeterli bellek verildiyse sorun yok.

ef&/`T*3\6P_TS

Burada deneyin ya da Test Suite'i inceleyin.

Nasıl?

ef & / `T * 3 \ 6P_TSQ - Sonunda örtük giriş (Q) bulunan tam program

             SQ - Aralık [1, Q]
 f - Filtre.
          P_T - Asal mı?
  & - Ve
   / `T * 3 \ 6 - 666 içerir.
e - Son eleman.
                - Sonuç olarak örtük bir şekilde çıktı alın.

Pyth , 14 bayt

ef/`T*\63fP_TS

Burada dene!

05AB1E , 11 bayt

ƒNpN666å*iN

Çevrimiçi deneyin!

Bash + Core Utils, 51 49 Bayt

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

Komut satırı argümanını alır. Daha büyük sayılarla oldukça yavaş olabilir.

Mathematica, 64 62 61 53 bayt

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

@KellyLowder sayesinde -1 bayt

@Notatree sayesinde -8 bayt (vay)

açıklama

Bir giriş yapın. Bu koşullar altında düşürüyoruz:

• giriş asal değildir, VEYA

• girişlerin rakamları arka arkaya üç 6 içermez.

Bunu bir Şeytan üstadı elde edinceye kadar tekrar ediyoruz.

Perl 5 , 47 bayt

İçin 46 baytlık kod + 1 -p

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

Çevrimiçi deneyin!

Japt , 14 bayt

õ fj w æ_sø666

Dene

Olarak orada gören olan bir% 50 zaman bazlı bir avantaj: tamamlar test durumda 969696yarım saniye altında.

açıklama

Tamsayının örtük girişi U.

õ

Gelen tamsayı dizisi oluşturmak 1için U.

fj

Süzgeç ( f) astarları.

w

Ters.

æ_

Aşağıdakileri 1kontrol eden bir işlevden geçirildiğinde (bu durumda ) bir gerçeği döndüren ilk öğeyi döndürün ...

sø666

Bir dizgeye ( s) dönüştürülen tam sayı ( ø) 666'yı içerir .

Daha Hızlı Alternatif, 15 bayt

Yine, başlangıçta zamana dayalı bir bonus olduğunu görünce, daha fazla golf oynayamayacağım alternatif ve daha hızlı bir çözüm var.

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

Dene

PowerShell , 128 bayt

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--}

Çevrimiçi deneyin!

PowerShell'de herhangi bir ana faktörlendirme yerleşik yok, bu yüzden bu, Prime Factors Buddies konusundaki cevabımın kodunu ödünç alıyor .

Girdi alıyoruz $n, sonra function fgirdi faktörlerini hesaplayan yeni bir ilan veriyoruz $a. Girdi $aasal ise, o zaman bu sadece dönecektir$a .

Programın ana kısmı sonsuz for()döngüdür. Eğer döngü içinde, biz kontrol $n -matchkarşı es 666olup olmadığı $n(yani asal $nait faktörlerin hepsini maçları $n). Öyleyse $n, boru hattına ve exitörtük çıktıyla yerleştiririz. Aksi takdirde, $n--döngüyü azaltır ve devam ettiririz.

Python 2 , 77 76 bayt

Düzenleme: @ Mr.Xcoder sayesinde -1 bayt

Yavaş çalışma süresi 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)))

Çevrimiçi deneyin!

76 baytlık başka bir çözüm

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

Çevrimiçi deneyin!

İle SymPy 73 bayt

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

Çevrimiçi deneyin!

PowerShell , 71 69 64 bayt

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

Çevrimiçi deneyin!

• 328765 makinemde ~ 30 saniye sürüyor, ancak Tio.run'daki 60 saniye sınırını geçiyor.

• 678987, ~ 1.5 dakika sürer.

• 969696, ~ 4.5 dakika sürer.

MATL, 16 bayt

ZqP"@V'666'Xf?@.

MATL Online'da deneyin

açıklama

         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 bayt

#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<<" ";}

Bu tam bir program!
Derlemek için Boost'a ihtiyacınız olacak. (Veya kopyalayıp en sevdiğiniz çevrimiçi C ++ kabuğuna yapıştırın.)
Komut satırından n değerini vererek çalıştırın . argüman olarak.

Ungolfed:

#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 << " ";
}

Rastgele sayı testi açısından kısayollar yapıldı. Orijinal kod 6661'de olası primerleri test etmeye başladı ve iki kat arttı. Ayrıca npos yerine orada (-1) olduğundan derleyici uyarısı alırsınız.

Yine de, bu oldukça hızlı bir şekilde çalışır. Eski AMD Sempron 130'umda 214 şeytan astarının hepsini 1.000.000'in altında bulmak sadece 40 saniye sürdü.

: ^ D

Bash + BSD Oyunlar Paketi, 33

• @FedericoPoloni sayesinde 2 bayt kaydedildi.

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

Çevrimiçi deneyin .

Python 3 , 85 83 80 bayt

Halvard'ın 4 bayt daha kısa çünkü Python 2'de yapıldı.

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

Çevrimiçi deneyin!

Biraz zaman verin, O(n^2)karmaşıklığı nedeniyle son derece yavaştır .

JavaScript (ES6), 55 54 bayt

@ ThePirateBay sayesinde -1 bayt.

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

Büyük girişlerde çok yavaş. Bu kod golf cevabına uyarlanmış asallık testi .

zamanlamalar

• Giriş 10000 10 saniye sürdü
• Giriş 328765 3 dakika sürdü
• Giriş 678987 9 dakika sürdü
• Giriş 96969616 dakika sürdü

Testler

Bunlardan bazıları tarayıcınızı birkaç dakika asacak.

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>

Daha Hızlı Sürüm, 56 bayt

Her test vakasını bir saniyenin altında tamamlar.

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)}`))

Ruby, 67 , 66 , 58 , 56 bayt

İçin +7bayt içerir-rprime

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

Oldukça hızlı, ~2^52yaklaşık bir saniyede ve 2^645 dakikadan kısa sürede hesaplama değerleri (2011 MBP, Ruby 2.3.1).

Stax , 10 bayt

ü>:Ñb/VP6─

Koş ve hata ayıkla

Açıklama (paketlenmemiş):

^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 bayt

<?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);?>

Çevrimiçi deneyin!

Perl 6 , 35 bayt

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

Çevrimiçi deneyin!

Basit özyinelemeli çözüm.

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

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;}

Çevrimiçi deneyin!

• Gereksiz parantez çıkarılarak 2 bayt kaydedildi.
• intBildirimleri birleştirerek 3 bayt kurtardı .

Bunun daha kısa yapılabileceğine eminim; belki tekrar tekrar arayarak func fve dıştaki fordöngüyü kaldırarak .

Özyinelemeli Yaklaşım, 85 bayt

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

Çevrimiçi deneyin!

Func<int,int> f = nullİlki ayarlamak zorunda kaldığı için bu yaklaşımın kod-golf sınırlarına ne kadar uyduğundan emin değilim ve fbuna tekrar denir, ancak baytlara sayılmaz. Herhangi bir açıklama takdir edilecektir.