นี่เป็นความท้าทายของตำรวจและโจร สำหรับหัวข้อโจรไปที่นี่

ความท้าทายนี้เกี่ยวข้องกับสองลำดับOEISที่ตำรวจเลือก - S ₁ , S ₂ - และลำดับที่สามารถกอล์ฟและ obfuscated

The Cops 'Challenge

ความท้าทายของคุณในฐานะตำรวจคือการเลือกภาษาที่ใช้ได้อย่างอิสระและสอง OEIS ตามลำดับ จากนั้นเขียนโค้ดAในภาษานั้นที่รับอินพุตnและสร้าง S ₁ (n) เมื่อโค้ดนั้นถูกแก้ไขโดยระยะทาง LevenshteinของตัวอักขระX (ที่มี X ไม่เกิน0.5 * (length A)) และเปลี่ยนเป็นรหัสBในภาษาเดียวกันมันจะต้องสร้าง S ₂ (n) คุณต้องเขียนรหัสBนี้ แต่อย่าเปิดเผยจนกว่าความท้าทายของคุณจะปลอดภัย (ดูด้านล่าง)

ส่งตำรวจต้องมีชื่อภาษารหัสเต็มที่ไบต์นับที่Xมูลค่าของจำนวนการเปลี่ยนแปลงที่จะได้รับของพวกเขาเป็นความลับBรหัสและเลือกS ₁และS ₂หมายเลขลำดับ คุณสามารถเลือกว่าจะเรียงลำดับ 0 หรือดัชนี 1 ดัชนี แต่โปรดระบุในการส่งของคุณ

ในการถอดรหัสการส่งข้อมูลโดยเฉพาะโจรต้องเกิดขึ้นกับโปรแกรมCในภาษาเดียวกัน (และเวอร์ชั่น) ที่สร้าง S ₂ (n) และตัวอักษรYนั้นเปลี่ยนไปจากA (ด้วยY <= X) โจรไม่จำเป็นต้องค้นหารหัสBที่แน่นอนที่ตำรวจ (แอบ) ผลิต

การชนะและการให้คะแนน

หากคำตอบ cop ของคุณไม่ได้แตกภายใน 7 วัน (168 ชั่วโมง) คุณอาจเปิดเผยโซลูชันBของคุณเองซึ่งคำตอบของคุณจะปลอดภัย ตราบใดที่คุณไม่เปิดเผยวิธีแก้ปัญหาของคุณก็อาจถูกโจรปล้นได้แม้ว่าจะผ่านไป 7 วันแล้วก็ตาม หากคำตอบของคุณแตกโปรดระบุสิ่งนี้ในส่วนหัวของคำตอบของคุณพร้อมกับลิงก์ไปยังคำตอบของโจรที่เกี่ยวข้อง

ตำรวจชนะโดยมีการส่ง Uncracked กับที่สั้นที่สุด หากเชื่อมโยงแล้วX ที่เล็กที่สุดจะถูกใช้เป็น tie-breaker หากยังคงถูกผูกไว้การส่งก่อนหน้าจะชนะ

กฎเพิ่มเติม

• คุณต้องไม่ใช้บิวด์อินใด ๆ สำหรับการสร้างการแฮชการเข้ารหัสหรือการสุ่มหมายเลข
• อนุญาตให้ใช้โปรแกรมหรือฟังก์ชันอย่างใดอย่างหนึ่ง แต่รหัสจะต้องไม่เป็นข้อมูลโค้ดและคุณจะต้องไม่ถือว่าสภาพแวดล้อมแบบ REPL
• คุณอาจจะใช้การป้อนข้อมูลและให้การส่งออกในรูปแบบที่สะดวกใด ๆ วิธีการอินพุต / เอาต์พุตจะต้องเหมือนกันสำหรับทั้งสองซีเควนซ์
• เครื่องคำนวณที่ชัดเจนสำหรับระยะทางของ Levenshtein สำหรับความท้าทายนี้คือเครื่องคำนวณ Planet Planet
• นอกจากจะเป็นความท้าทายของ CnR แล้วนี่คือรหัสกอล์ฟเพื่อใช้กฎการเล่นกอล์ฟตามปกติทั้งหมด

Brain-Flak , 28 ไบต์, ระยะทาง 4, A002817 , A090809 แคร็ก

คำตอบนี้ใช้การจัดทำดัชนี 1 รายการ

(({({}[()])}{}){({}[()])}{})

ลองออนไลน์

สำหรับผู้ที่สนใจมีโปรแกรม Brain-Flak 27475 รายการที่มีระยะทาง Levenshtein 4 จากโปรแกรมนี้และ 27707 ที่มีระยะทาง 4 หรือน้อยกว่า ดังนั้นวิธีการแก้ปัญหากำลังดุร้ายจะเป็นไปได้ในคอมพิวเตอร์ระดับผู้บริโภค

7 , 33 ตัวอักษร, 13 ไบต์, X = 10, A000124 → A000142 , ปลอดภัย

171720514057071616777023671335133

ลองออนไลน์!

ระยะทาง Levenshtein นั้นวัดในรูปของตัวอักษรดังนั้นฉันจึงเขียนโปรแกรมเป็นตัวละครที่มีอยู่ด้านบน (และลองใช้ออนไลน์! รวมถึงภาษาด้วยตัวเองยินดีที่จะเรียกใช้โปรแกรมที่เข้ารหัสใน ASCII) อย่างไรก็ตามโปรแกรมจะถูกเก็บไว้ในดิสก์โดยใช้การเข้ารหัสย่อยของ 7 ซึ่งหมายความว่าตัวโปรแกรมนั้นเป็น hexdump ต่อไปนี้ (ซึ่งมีความยาว 13 ไบต์):

00000000: 3cf4 2982 f1ce 3bfe 13dc b74b 7f         <.)...;....K.

(เนื่องจากระยะทาง Levenshtein ถูกวัดในรูปของตัวละครคุณไม่จำเป็นต้องเพิ่ม / ลบ / เปลี่ยน 10 ไบต์ที่นี่ดังนั้นจึงควรใช้งานกับ ASCII ดั้งเดิมได้ดีที่สุด)

โปรแกรมตามที่เขียนไว้ใช้ A000124 (ตัวเลขสามเหลี่ยม + 1); รอยแตกใด ๆ จะต้องใช้ A000142 (แฟคทอเรียล) ทั้งสองโปรแกรมรับอินพุตจาก stdin (เป็นจำนวนเต็มฐานสิบ) เขียนเอาต์พุตของตนไปยัง stdout และปฏิบัติอินพุต 1 ตามความหมายองค์ประกอบแรกของลำดับ (และอินพุต 2 เป็นองค์ประกอบที่สองเป็นต้น)

หวังว่าค่า X ที่สูงมากจะหยุดยั้งผู้คนในการบังคับใช้โปรแกรมในครั้งนี้ (ซึ่งมักจะมีความเสี่ยงในการเข้าร่วมตำรวจและโจรใน 7)

การแก้ไขปัญหา

177172051772664057074056167770236713351353

ลองออนไลน์!

ความแตกต่างจากต้นฉบับ:

17 172051 405707 1 61677702367133513 3
17 7 172051 77266 405707 405 61677702367133513 5 3

ฉันไม่ได้เตรียมคำอธิบายสำหรับวิธีการทำงานเหล่านี้ดังนั้นฉันจะต้องใช้เวลาสักครู่กว่าจะได้รับคำอธิบายเพราะฉันจะต้องคิดออกมาเกือบจะเป็นรอยขีดข่วน หวังว่าจะมีคำอธิบายในที่สุด

Pyke, Levenshtein ระยะทางจาก 1, A036487 , A135628

แตก!

X*e

ลองที่นี่!

แตก!

*[0]o 1***

• S ₁ = A000012 = 1,1,1,1,1,...= ลำดับทั้งหมด 1 (0 จัดทำดัชนี)

• S ₂ = A001477 = 0,1,2,3,4,...= จำนวนเต็มที่ไม่ใช่ค่าลบ (0 จัดทำดัชนี)

ลองออนไลน์!

ยืนยันที่จะทำงานกับPerl 6 รีลีส 2017.01และกับ Perl6 เวอร์ชั่นที่รันบน TIO

( Aสามารถเล่นกอล์ฟต่อไปได้1***- ฉันหวังว่าจะอนุญาตเหมือนเดิม)

ปลอดภัย!

{[+] [,] ^$_}

• S ₁ = A161680 = 0 0 1 3 6 10 15 21...= ศูนย์ตามด้วยตัวเลขสามเหลี่ยม
• S ₂ = A000217 = 0 1 3 6 10 15 21 28 ...= หมายเลขสามเหลี่ยม
• ศูนย์การจัดทำดัชนี

ลองออนไลน์!

(ยืนยันว่าจะทำงานกับรุ่น Perl 6 ที่ทำงานบน TIO)

วิธีการแก้

{[+] [\,] ^$_}

วิธีการใช้งานเดิม:

{           }  # A lambda.
          $_   # Lambda argument.                     e.g. 4
         ^     # Range from 0 to n-1.                 e.g. 0, 1, 2, 3
     [,]       # Reduce with comma operator.          e.g. 0, 1, 2, 3
 [+]           # Reduce with addition operator.       e.g. 6

วิธีการแก้ปัญหาทำงาน:

{            } # A lambda.
           $_  # Lambda argument.                     e.g. 4
          ^    # Range from 0 to n-1.                 e.g. 0, 1, 2, 3
     [\,]      # Triangle reduce with comma operator. e.g. (0), (0,1), (0,1,2), (0,1,2,3)
 [+]           # Reduce with addition operator.       e.g. 10

1 + 2 + 3 + 4 = 10ใช้ประโยชน์จากความจริงที่ว่าผู้ประกอบการที่เป็นตัวเลขเช่นนอกจากการรักษารายการเป็นจำนวนขององค์ประกอบดังนั้นในตัวอย่างรวมเป็น

และใช่การ "ลดด้วยเครื่องหมายจุลภาค" ไม่มีตัวเลือกในแบบดั้งเดิมคือรอบกฎของรหัสกอล์ฟ แต่ฉันชอบที่จะมองว่ามันเป็นอัลกอริทึมที่โง่ซึ่งได้รับการตีกอล์ฟให้มากที่สุด (ช่องว่าง ฯลฯ ) สำหรับ มันคืออะไร... :)

เยลลี่ , 11 ไบต์, X = 5, A005185 → A116881

ịḣ2S;
1Ç¡ḊḢ

นี่เป็นโปรแกรมเต็มรูปแบบที่รับจำนวนเต็มเป็นอาร์กิวเมนต์บรรทัดคำสั่งและพิมพ์จำนวนเต็ม

ทั้งสองมีการจัดทำดัชนีเป็น OEIS เช่นA005185เป็น 1 ดัชนีและA116881เป็นดัชนี 0

ลองออนไลน์!

Javascript, 41 ไบต์, ระยะทาง 3, A061313 , A004526 , แคร็ก

f=x=>{return x>1?x%2?f(x+1)+1:f(x/2)+1:0}

ลองออนไลน์

ใช้การจัดทำดัชนี 1 รายการโซลูชันใช้ดัชนีที่อิง 0

อีกครั้งโซลูชันที่แตกต่าง ...

f=x=>{return x>1?x<2?f(x-1)+1:f(x-2)+1:0}

แตก!

{(0,1,*+*...*)[$_]}

• S ₁ = A000045 = 0 1 1 2 3 5 8 13 21 34...= "หมายเลขฟีโบนักชี" ( จัดทำดัชนี 0 )
• S ₂ = A000035 = 0 1 0 1 0 1 0 1 0 1...= "ระยะเวลา 2" ( จัดทำดัชนี 0 )

ลองออนไลน์!

(ยืนยันว่าจะทำงานกับรุ่น Perl 6 ที่ทำงานบน TIO)

WolframAlpha, 18 ไบต์, X = 1

แคร็กโดย math_junkie!

(sum1to#of n^1)*2&

บางครั้ง WolframAlpha จะสามารถแสดงฟังก์ชั่นบริสุทธิ์แบบนี้ในรูปแบบการทำงานได้ (บางครั้งมันก็สับสน); แต่สามารถเรียกใช้อย่างสนุกสนานด้วยอินพุตที่กำหนด - ตัวอย่างเช่น(sum1to#of n^1)*2&@5อัตราผลตอบแทน30อัตราผลตอบแทน

S1 = A002378 (หมายเลข pronic)

S2 = A000537 (ผลรวมของครั้งแรกn )

ลำดับทั้งสองเป็นดัชนี 0

Pyke, Levenshtein ระยะทาง 2, A008788 , A007526

แตก!

'th^

ลองที่นี่!

มารับเราให้หนักขึ้นหน่อยเหรอ?

คำตอบแรกคือ 1 ตามและรอยแตกเป็น 0

Javascript, 15704 ไบต์, ระยะทาง 2, A059841และA000004 - แตก

การแก้ปัญหานี้มีความยาวมากดังนั้นคุณสามารถค้นหารหัสเต็มได้ที่สรุปสาระสำคัญ GitHub นี้

คำตอบเดิม (อันนี้) คือ 1 ดัชนี (ฉันรู้ว่ามันยาวเกินไปมันเป็นแค่ความสนุกสนาน)

Brain-Flak , 16 ไบต์, Levenshtein ระยะห่างจาก 4, A000217และA002378 - Cracked โดย Martin Ender!

({({}[()])()}{})

ลองออนไลน์!

ซึ่งควรจะแตกง่าย

Javascript, 30 ไบต์, ระยะทาง 4, A000290 , A000079 , - แตก!

f=x=>{return x?2*x-1+f(x-1):0}

การทำดัชนีแบบ 0

โซลูชันของ @Kritixi Lithos นั้นแตกต่างจากของฉันจริงๆ

f=x=>{return x?f(x-1)+f(x-1):1}

ลองออนไลน์

Javascript (ES6), ระยะทางคือ 1, A000079และA000004 - แตก

as=function(){ return 2*2**((11)*-1*~arguments[0]/11-(4-(as+[]).length%89))-(as+[]).length%7}

คำตอบเดิม (อันนี้) เป็น 0 ตอนนี้มันได้แตกแล้วนี่คือฟังก์ชัน B ดั้งเดิม:

as=function(){ return 2*2**((1^1)*-1*~arguments[0]/11-(4-(as+[]).length%89))-(as+[]).length%7}

แตก!

+(*%%2)

• S ₁ = A059841 = 1 0 1 0 1 0 1 0...= "* ช่วงเวลา 2: ทำซ้ำ (1,0)" (0 จัดทำดัชนี)
• S ₂ = A001477 = 0 1 2 3 4 5 6 7...= "จำนวนเต็มที่ไม่ใช่ค่าลบ" (0 จัดทำดัชนี)

ลองออนไลน์!

(ยืนยันว่าจะทำงานกับรุ่น Perl 6 ที่ทำงานบน TIO)

Java 7, Levenshtein ระยะทาง 4, A094683 , A000290 , แคร็ก

int x{double r=1;for(int i=0;i<42;i++)r=r/2+n/r/2;int k=(int)((int)n*(float)n/Math.pow(n,(Math.sin(n)*Math.sin(n)+Math.cos(n)*Math.cos(n))/2));return n%4%2==(int)Math.log10(Math.E)/Math.log((double)'H'-'@')?(int)r:k;}

0 การจัดทำดัชนี
ลองที่นี่!