อินพุต

ไม่มีการป้อนข้อมูลสำหรับความท้าทายนี้

ความท้าทาย

เขียนรหัสที่แสดงผล:
หมายเลขเฉพาะ 10 หมายเลขแรกที่ผลรวมของตัวเลขเท่ากับจำนวนไบต์ของรหัสของคุณ

ตัวอย่าง

สมมติว่ารหัสของคุณCo&%423@k"oo"ซึ่งเป็น13 bytes
ผลผลิตของคุณต้องรหัส[67, 139, 157, 193, 229, 283, 337, 373, 409, 463]
เหล่านี้จะเป็นครั้งแรก 10 ตัวเลขที่สำคัญที่มีผลรวม .... ตกลงคุณได้รับมัน!

หากรหัสของคุณคือ8 bytesคุณจะต้องออก[17, 53, 71, 107, 233, 251, 431, 503, 521, 701]

กฎระเบียบ

คุณต้องใช้เฉพาะหมายเลขเฉพาะ 10 ^ 8
ซึ่งหมายความว่าหมายเลขทั้งหมดของคุณจะต้องเป็น <2038074743 = 10 ^ ที่ 8 หลัก

หากคุณไม่พบจำนวนเฉพาะ 10 หมายเลขในช่วงนี้ที่พอดีกับไบต์ของคุณคุณจะต้องปรับรหัสของคุณ (คุณอาจต้องเพิ่มบางไบต์!) เพื่อหา " จำนวนการทำงานของไบต์ "

เพียงแสดง 10 ช่วงเวลาในแบบที่คุณต้องการ

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์จะชนะ!

Neim , 10 8 7 ไบต์

-1 ไบต์ต้องขอบคุณ ASCII-only

πᛦ𝐋Λ𝐬7𝔼

ลองออนไลน์!

ขาออก:

[7 43 61 151 223 241 313 331 421 601]

(อย่างน้อยก็วิธีการนี้) ไม่น่ารังเกียจ

คำอธิบาย

πᛦ𝐋Λ𝐬7𝔼

π        push 13 (yes, very unintuitive :P)
 ᛦ       square (13² = 169)
  𝐋      push the first 169 primes
   Λ     filter those that when the following are executed, evaluate to 1
    𝐬    sum its digits and...
     7𝔼  check for equality against 7

เยลลี่ขนาด 14 ไบต์

‘ÆNDS=14ø⁵#‘ÆN

ลองออนไลน์!

ภาพพิมพ์นี้:

[59, 149, 167, 239, 257, 293, 347, 383, 419, 491]

มันทำงานอย่างไร

‘ÆNDS=14ø⁵#‘ÆN
          #     Count the first 
         ⁵        10
                Non-negative integers which meet:
‘ÆN               the (z+1)-th prime  (1-indexed :*()
   D              digits
    S             sum
     =            equals
      14          14
           ‘ÆN  Get those primes

Pyth , 14 ไบต์

.f&qsjZT14P_ZT

ลองที่นี่

นี่คือ 14 ไบต์และพิมพ์:

[59, 149, 167, 239, 257, 293, 347, 383, 419, 491]

Pyth , 16 ไบต์

.f&qssM`Z16P_ZTZ

ลองที่นี่!

โปรดทราบว่านี่อาจเป็น 15 ไบต์: .f&qssM`Z16P_ZTZแต่ไม่มีช่วงเวลาใดที่มี 15 เป็นผลรวมของตัวเลขของพวกเขาเนื่องจาก15สามารถหารด้วย3ซึ่งจะหมายความถึงจำนวนก็จะหารด้วย3ดังนั้นจึงไม่ได้เป็นนายก

นี่คือความยาว 16 ไบต์และพิมพ์:

[79, 97, 277, 349, 367, 439, 457, 547, 619, 673]

อย่างไร?

คำอธิบาย 1

.f&qsjZT16P_ZT - Full program.

.f&           T  - First 10 numbers that satisfy the following:

           P_Z     - Are prime and
    sjZT           - And their sum of digits
   q     14        - Equals 14.

คำอธิบาย 2

.f&qssM`Z16P_ZTZ - Full program.

.f&           T  - First 10 numbers that satisfy the following:

           P_Z     - Are prime and
    ssM`Z          - And their sum of digits
   q     16        - Equals 16.

Husk , 13 ไบต์

↑10fȯ=13ΣdfṗN

ลองออนไลน์!

คำอธิบาย

            N    Take the (infinite) list of all natural numbers.
          fṗ     Select only the primes.
   fȯ            Filter again by the result of composing the following three functions:
         d         Get the decimal digits.
        Σ          Sum them.
     =13           Check whether the sum equals 13.
↑10              Take the first 10 primes in the result.

Haskell , 77 71 ไบต์

x=take 10[i|i<-[1..],sum(read.pure<$>show i)==71,all((>0).rem i)[2..i-1]]

ลองออนไลน์!

บันทึก 6 ไบต์ขอบคุณ Laikoni

สำหรับ 71 ไบต์:

[89999999,99899999,99998999,99999989,189989999,189998999,189999989,197999999,199898999,199979999]

หมายเลขทั้งหมดของคุณต้องเป็น <2038074743

1999999999 เป็นตัวเลขที่มีผลรวมสูงสุดของตัวเลขในช่วงที่อนุญาตและผลรวมนั้นคือ 82 โปรแกรมใดก็ตามที่เกิน 82 ไบต์จะไม่เป็นไปตามเงื่อนไข ฉันหวังว่า 77 ไบต์ใช้ได้ แต่ฉันไม่รู้ (มันยังทำงานอยู่ในคอมพิวเตอร์ของฉัน)

แก้ไข:รุ่นที่ได้รับการปรับปรุงเล็กน้อยให้ 77 ไบต์:

[699899999,779999999,788999999,789999989,797999999,798899999,799898999,799899899,799999799,879999899]

เยลลี่ ,  14  13 ไบต์

DS⁼13
.ȷÆRÇÐf

ลองออนไลน์!

อย่างไร?

DS⁼13 - Link 1, test digit sum equals thirteen: number, n
D     - get a list of the decimal digits of n
 S    - sum them
  ⁼13 - equals thirteen?

.ȷÆRÇÐf - Main link: no arguments
.ȷ      - literal 500
  ÆR    - prime range (all primes less than or equal to 500)
     Ðf - filter keep if:
    Ç   -   call last link (1) as a monad

Brachylogขนาด 13 ไบต์

{.≜ṗẹ+13∧}ᶠ¹⁰

ลองออนไลน์!

05AB1E , 10 ไบต์

83LØʒSOTQ}

ลองออนไลน์!

}ถูกนำมาใช้เป็นสารตัวเติมตั้งแต่ 9 นับไบต์ที่ไม่ถูกต้อง

เอาท์พุท: [19, 37, 73, 109, 127, 163, 181, 271, 307, 433]

คำอธิบาย

83L        Push array [1, ..., 83], since 433 is the 83rd prime
   Ø       Map each to the nth prime
    ʒ      Get elements that return 1
     SO     When the sum of the digits
        Q   Equals
       T    10

เกือบ 8 ไบต์

สิ่งนี้จะถูกต้องหากมีอีกหนึ่งไบต์ที่สามารถตีกอล์ฟได้

žyLØʒSO8Q

ลองออนไลน์!

เอาท์พุท: [17, 53, 71, 107, 233, 251, 431, 503, 521, 701]

คำอธิบาย

žy          Push number 128, since 701 is the 125th prime
  L         Push array [1, ..., 128]
   ØʒSO8Q   Map to nth primes and filter to those with a digit sum of 8 (see above)

Mathematica, 52 ไบต์

Select[Prime@Range[10^6],Tr@IntegerDigits@#==52&,10]

{799999,998989,999979,1789999,1798999,1979899,1989979,1997899,1999969,2599999}

thanx ถึง @ ไม่ต้นไม้สำหรับ -6 ไบต์

J, 29 ไบต์

(#~(29=[:+/"."0@":)"0)p:i.872

ลองออนไลน์!

ใช้งานกับ REPL ได้อย่างแน่นอนอาจทำงานเป็นโปรแกรมปกติด้วย (ไม่แน่ใจว่า J จะแสดงผลอย่างไรเพื่อให้โปรแกรมซื่อสัตย์

บัตรผ่านแรกไม่เหมาะอย่างยิ่ง แต่ฉันไม่สามารถนึกถึงวิธีที่ฉลาดกว่านี้ได้อีก จะตรวจสอบฮาร์ดโค้ดที่มีขนาดเล็กลง

คำอธิบาย

(#~(29=[:+/"."0@":)"0)p:i.872
                      p:i.872  First 872 primes
 #~                            Filter by
   (29=[:+/"."0@":)"0            Digital sum = 29
                   "0              For each
                ":                 Convert to string
           "."0                    Convert each character to a number
         +/                        Sum results
    29=                            Equate to 29

872 รับประกันว่าเฉพาะ 10 ช่วงแรกเท่านั้นที่จะใช้ผลรวมดิจิตอลเป็น 29

V , 73 71 ไบต์

i8aa9
998a99
a98a
aa89
18998a9
18a8a
18a9989
197aa
199898a
1a7a9Ía/999

ลองออนไลน์!

การบีบอัดการแทนที่ substring แบบง่าย - ฉันตรวจสอบผลลัพธ์คำตอบที่เป็นไปได้ทั้งหมดจากนั้นทำการทดสอบ "แบบที่หนึ่งมีการแทนที่สตริงแบบง่ายที่บันทึกอักขระส่วนใหญ่" เช่นสร้างตารางนี้ [แก้ไข: ฉันดูอีกครั้งที่โต๊ะและเห็นว่าฉันสามารถทำรุ่น 71 ไบต์แทน]

ช่วงเวลาที่สูงกว่านั้นมีระยะเวลานานกว่า 9 ในนั้นและสิ่งที่ดีที่สุดที่ฉันพบคือที่ตัวเลขเพิ่มขึ้นถึง 73 รูปแบบ 89999 -> 1 ถ่านนำข้อความลงมาจาก 99 ไบต์ถึง 63 ไบต์ การหาวิธีเลิก 'a' -> '89999' ใน 10 ไบต์ที่เหลือทำให้ฉันไปที่ V.

Japt , 19 ไบต์

L²õ f_j ©Zìx ¥19ïA

ทดสอบมัน

Explantaion

L²õ

สร้างอาร์เรย์ของจำนวนเต็ม ( õ) จาก 1 ถึง 100 ( L) ยกกำลังสอง

f_          Ã

ตัวกรอง ( f) โดยการส่งผ่านแต่ละฟังก์ชั่นโดยที่Zองค์ประกอบปัจจุบันเป็น

j

ตรวจสอบว่าZเป็นนายก

©

ตรรกะ AND ( &&)

Zìx

แยกZไปยังอาร์เรย์ของตัวเลข ( ì) และลดตามการเพิ่ม ( x)

¥19

19ตรวจสอบเพื่อความเท่าเทียมกันด้วย

¯A

Slice ( ¯) ไปยังองค์ประกอบที่ 10 และส่งออกอาร์เรย์ผลลัพธ์โดยปริยาย

Japt , 19 ไบต์

AÆ_j ©19¥Zì x «X´}a

ลองออนไลน์! ด้วย-Qธงเพื่อจัดรูปแบบอาร์เรย์

แสดงผล 10 ช่วงแรกที่มีตัวเลขที่เพิ่ม19:

[199, 379, 397, 487, 577, 739, 757, 829, 883, 919]

โปรดทราบว่าสิ่งนี้สามารถเล่นกอล์ฟได้ถึง 18 ไบต์ ( ì x→ ìx) แต่ไม่มีช่วงเวลาที่มีผลรวมหลักเท่ากับ 18

คำอธิบาย

AÆ

แม็พอาร์เรย์[0, ..., 9]ด้วยฟังก์ชันต่อไปนี้โดยที่Xเป็นค่าปัจจุบัน

  _              }a

ส่งคืนเลขจำนวนเต็มแรกที่คืนค่าจริงจากฟังก์ชันต่อไปนี้โดยที่Zเป็นค่าปัจจุบัน

   j ©

ตรวจสอบว่าหมายเลขนี้เป็นจำนวนเฉพาะและ ...

      19¥Zì x

ผลรวม ( x) ของตัวเลข ( ì) เป็นZเท่ากับ ( ¥) 19

              «X´

และXเป็นเท็จ ( «คือ "และไม่" หรือ&&!) สิ่งนี้ยังลดลงX( ´)

อาร์เรย์ผลลัพธ์จะถูกเอาต์พุตโดยปริยาย

PARI / GP 40 ไบต์

select(x->sumdigits(x)==40,primes(8600))

มีสนามกอล์ฟไม่มากนัก (เลือกผู้ที่xมีผลรวมของตัวเลข 40 ระหว่าง 8600 ครั้งแรก) ผลลัพธ์คือ:

[49999, 68899, 69997, 77899, 78889, 78979, 79699, 79987, 85999, 88789]

Pykeขนาด 10 ไบต์

~p#.cTq)T>

ลองที่นี่!

~p         -   primes
  #.cTq)   -  filter(^)
   .c      -    digit_sum
     Tq    -   ^ == 10
        T> - [:10]

Ruby 2.4.1, 74 ไบต์

ฉันไม่เคยเอาชนะภาษาที่ดีที่สุด Codegolf แต่ก็ยังสนุกที่จะทำใน Ruby น่าผิดหวังว่า Prime ไม่ได้อยู่ใน Core แต่แทนที่จะเป็นในไลบรารีมาตรฐาน ฉันรู้สึกหงุดหงิดที่ฉันไม่สามารถเอาชนะ Haskell ได้

2.4.1 :014 > require'prime';2.step.lazy.select{|n|n.digits.sum==74&&n.prime?}.first(10)
=> [389999999, 398999999, 498989999, 498998999, 499898999, 499899989, 499979999, 499989989, 579989999, 588999899]

Paradoc (v0.2.7 +), 10 ไบต์ (CP-1252)

5h¶fφTBŠT=

ลองออนไลน์!

5h         .. 5 hundred
  ¶        .. Check if a number is prime...
   f       .. ...filter by the preceding block; converts 500
           .. to the range [0, 1, ..., 499]
    φ      .. Filter by the following block:
     T     .. Ten
      B    .. Base; convert to base-10 digits
       Š   .. Sum, resulting in the digit sum
        T  .. Ten
         = .. Check if (the digit sum and ten are) equal

ค่อนข้างน่าสงสัยเพราะมันพิมพ์ตัวเลขทั้งหมดโดยไม่มีตัวคั่นระหว่างมัน โปรแกรม 11- ไบต์ที่พิมพ์แต่ละหมายเลขในบรรทัดแยก:

nIè¶fφTBŠE=

สิ่งเดียวที่ควรค่าแก่การกล่าวถึงคือขอบบนที่ยากต่อการสร้างเล็กน้อย: Iè18² = 324

Bubblegum , 37 ไบต์

00000000: 0dc6 3901 4031 0c80 5043 9dfe 9180 7f63  ..9.@1..PC.....c
00000010: 6579 f028 9ed7 352d e7a3 4f48 37ff 9164  ey.(..5-..OH7..d
00000020: 4c96 04f7 02                             L....

ลองออนไลน์!

ผลผลิตคือ 29989,39799,39979,48799,48889,49789,56989,58699,58789,58897