Bozulmamış Bir Dünyayı Hazırlamak


11

Bozulmamış bir Dünya Programlamaktan büyük ölçüde ilham alındı . Ayrıca bu meydan okuma ile yakından ilgili .


El değmemiş bir asalı , kendisi asal olan bir sayı olarak tanımlayalım , ancak N tabanı 10 basamaklı herhangi bir bitişik alt dizeyi kaldırırsanız artık asal olmayacaktır 0 < N < digits in number.

Örneğin, 409 bozulmamış bir asaldır, çünkü 409'un kendisi asaldır, ancak 1 basamaklı bir alt dizenin çıkarılmasından kaynaklanan tüm sayılar asal değildir:

40
49
09 = 9

ve 2 uzunluktaki alt dizelerin kaldırılmasından kaynaklanan tüm sayılar asal değildir:

4
9

Öte yandan, 439 numaralı asal bozulmamış değildir. Farklı alt dizelerin kaldırılması şunlarla sonuçlanır:

43
49
39
4
9

49, 39, 4, ve 9 iken 43, olmayan tüm asal olduğu asal; bu nedenle, 439 bozulmamış değildir.

2, 3, 5 ve 7 önemsiz derecede bozulmamışlardır, çünkü alt dizeleri çıkartılamazlar.

Meydan okuma

Zorluk, pozitif bir tamsayı N alan ve N'ın el değmemiş üssünü çıkaran bir program veya işlev oluşturmaktır. 50'ye kadar herhangi bir giriş için kodun herhangi bir modern bilgisayarda 1 dakikadan kısa sürede bitmesi gerekir.

Bayt cinsinden en kısa kod kazanır.

Referans olarak, işte ilk 20 bozulmamış asal:

N    Pristine prime
1    2
2    3
3    5
4    7
5    11
6    19
7    41
8    61
9    89
10   409
11   449
12   499
13   821
14   881
15   991
16   6299
17   6469
18   6869
19   6899
20   6949

İşte 1e7'ye kadar bozulmamış primerlerin tam listesi veya N = 376.

Son olarak, ilgili iki OEIS girişi:

  • A033274 : çok benzer, ancak alt dizeleri kaldırmak yerine tutarak üretilir.
  • A071062 : garip bir şekilde benzer, ancak çok farklı bir şekilde üretildi.

Yanıtlar:


5

Pyth, 29 bayt

e.f>}ZPZsmq1lPs.D`Z}Fd.CU`Z2Q

Golf, açıklama vb.



3

Japt, 61 bayt

$while(V<U)T$°,W=Ts ,Tj «Wl o d@1o1-X+Wl)dZ{WjYZ n j} } ©V°;T

Çevrimiçi deneyin!

Japt'te henüz döngü uygulamadığım için bir utanç, aksi takdirde bu biraz daha kısa olurdu. Hala golf oynuyor ...

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.