ความท้าทายนี้มีสองหัวข้อ นี่คือด้ายของตำรวจ ด้ายโจรตั้งอยู่ที่นี่

ความท้าทายของคุณคือการเลือกลำดับOEISและเขียนโปรแกรมสองโปรแกรมเต็มในสองภาษาที่แตกต่างกันซึ่งสร้างรายการที่ n ในลำดับเมื่อได้รับ n ผ่าน STDIN หรืออินพุตมาตรฐานรูปแบบอื่นโดยที่ n เป็นจำนวนบวกใด ๆ อย่างไรก็ตามโปรแกรมทั้งสองของคุณจะต้องเป็นแอนนาแกรมหมายความว่าแต่ละโปรแกรมสามารถจัดเรียงใหม่จากตัวอักษรของอีกโปรแกรมได้

โปรแกรมจะต้องส่งออกทศนิยมของตัวเลขตามด้วยช่องว่างทางเลือกเพื่อ STDOUT โปรแกรมอาจส่งออกไปยัง STDERR อย่างไรก็ตามควรละเว้นและถ้ากรณีที่ซ่อนทำดังนั้นจะต้องระบุไว้อย่างชัดเจนว่าเป็นกรณีนี้

หากคุณต้องการคุณยังสามารถส่งออกด้วยรหัสตัวอักษร อย่างไรก็ตามหากคุณทำเช่นนั้นในโซลูชันที่ซ่อนอยู่คุณต้องระบุในเนื้อหาที่คุณส่ง

จากนั้นคุณจะแสดงหมายเลข OEIS ซอร์สโค้ดสำหรับและชื่อของภาษาหนึ่งที่มีอยู่

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

ดังนั้นคุณจึงมีแรงจูงใจที่จะทำให้ยากที่สุดเท่าที่จะทำได้เพื่อค้นหาภาษาใด ๆ ที่ทำงานโดยใช้รายการสัญลักษณ์ของพวกเขา

เกณฑ์การให้คะแนน

นี่คือรหัส - กอล์ฟดังนั้นโปรแกรมที่ไม่มีรอยแตกที่สั้นที่สุดคือผู้ชนะ

ภาษา

ภาษาจะถูกพิจารณาว่าแตกต่างกันหากทั้งสองวิธีที่เสนอนั้นไม่สามารถทำงานได้ทั้งสองภาษา ซึ่งจะรวมถึงรุ่นที่แตกต่างกันของภาษาเดียวกันตราบใดที่วิธีแก้ปัญหาของตำรวจหรือวิธีแก้ปัญหาของโจรไม่ได้ผลิตผลลัพธ์ที่ถูกต้องในภาษาอื่น ๆ

เช่นถ้ามีสองวิธีแก้ปัญหา 1 และ 2 ที่อยู่ในภาษา A และ B ตามลำดับโซลูชัน 2 ต้องไม่สร้างผลลัพธ์ที่ถูกต้องในภาษา A และโซลูชัน 1 ต้องไม่สร้างผลลัพธ์ที่ถูกต้องในภาษา B

ความปลอดภัย

เมื่อการส่งของคุณไม่ได้ติดตามมาเป็นเวลาหนึ่งสัปดาห์คุณสามารถโพสต์โซลูชันของคุณและประกาศให้โพสต์ของคุณปลอดภัย หากหลังจากหนึ่งสัปดาห์คุณเลือกที่จะไม่โพสต์คำตอบของคุณอาจยังแตก

Python 2, 118 ไบต์, A042545 แคร็ก

i=input();s=1/(801**.5-28);a=[0,1]
for p in range(i):a+=[a[-2]+a[-1]*int(s)];s=1/(s-int(s))
print a[i]#,,,.//000fhlmo|

ฉันไม่รู้สึกอยากจะใช้ลำดับขั้นเล็กน้อยดังนั้นฉันจึงตัดสินใจใช้ ID ผู้ใช้ PPCG ของฉัน ฉันเขียนสิ่งนี้เป็นภาษาอื่นก่อนซึ่งควรให้คำใบ้กับคุณเกี่ยวกับภาษานั้นแม้ว่าฉันจะเดิมพัน 100 ดอลลาร์ว่าภาษานี้จะแตกในภาษากอล์ฟก่อนที่มันจะแตกในภาษาอื่น

หมายเหตุ:เนื่องจากข้อผิดพลาดความแม่นยำจุดลอยตัวนี่เป็นเพียงความแม่นยำสูงสุดถึง 14 ของการแก้ปัญหาที่ตั้งใจเป็นวิธีเดียวกัน

โซลูชันที่ตั้งใจ, JavaScript (ES7)

for(i=prompt(),s=1/(801**.5-28),a=[1,0];i--;s=1/(s-n))
  n=s|0,a.unshift(a[1]+a[0]*n);
alert(a[0])  //#+2:[]giiiiinnpt

ใช้งานได้ในลักษณะเดียวกับวิธีการแก้ปัญหาของ Python แม้ว่าลำดับจะถูกเก็บไว้เป็นอันดับแรกไม่ใช่ลำดับแรกที่สุดเนื่องจากข้อเท็จจริงที่ว่า JS ไม่สนับสนุนการจัดทำดัชนีเชิงลบ

Brain-Flak ขนาด 24 ไบต์A000290ปลอดภัย

อีกวิธีแก้ปัญหาแบบสี่เหลี่ยม เวลานี้ไม่มีอะไรนอกจากวงเล็บ

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

วิธีแก้ปัญหาที่ตั้งใจคือBrain-Flueueซึ่งเป็นเวอร์ชั่นของสมองสะเก็ดที่ใช้คิวแทนการเรียงซ้อน โปรแกรมคือ:

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

ภาษาต่าง ๆ ถือว่าแตกต่างกันเนื่องจากโปรแกรมทั้งสองไม่หยุดทำงานเมื่อใช้ภาษาอื่น

Python 2, 38 ไบต์, A000290 แคร็กโดย Emigna

def e(X):return X*X
print e(input())##

นี่อาจจะเป็นเรื่องง่ายมากที่จะแตก ฉันมักจะโพสต์สิ่งนี้เป็นจุดเริ่มต้น

โซลูชันดั้งเดิมใน CJam:

ri:XX*e#def ()return X
e#pnt (input())

CJam , 7 ไบต์, A005843 แคร็ก!

ri2*e#^

นี่คือ2*nลำดับขั้นพื้นฐาน

คำอธิบาย:

r          e# read input
 i         e# convert to integer
  2*       e# multiply it by 2
    e#^    e# this is a comment that is ignored by the interpreter

ลองออนไลน์!

โซลูชันดั้งเดิม, แครอท

#^i*2er

แครอทเป็น esolang ที่สร้างขึ้นโดยฉัน ฉันหยุดพัฒนามันไปนานแล้ว เหตุผลที่ฉันเลือกสิ่งนี้เพราะฉันหวังว่ามันจะยากสำหรับภาษาอื่น ๆ ที่จะแสดงความคิดเห็นในส่วนที่ไม่จำเป็นของรหัส

คำอธิบาย:

#^            This pushes the input to the stack (anything before the ^ is the stack)
  i           Convert stack to integer
   *2         Multiply it by 2
     er       These are ignored because they are not Carrot commands
              Implicit output

ลองออนไลน์!

2sable , 15 ไบต์, A000290 ,แตก!

กระโดดขึ้นมาบนเดียวกันn ²รถไฟ: p

*?"!#$&<=@\^{|}

ลองออนไลน์!

Brain-Flak ขนาด 44 ไบต์A000290 แคร็ก

<({({})({}[()])}{}))()()()turpentine/"*"*4splint>

ลองออนไลน์!

โซลูชันดั้งเดิม Python 2

print(input()**(len(set("{}{}{}[]()<>"))/4))

Excel, 12 ไบต์, A000012 แคร็ก

=IF(1=1,1,1)

อาจไม่ใช่สิ่งที่ยากที่สุด แต่เป็นสิ่งที่สนุกที่จะแตก

Python 2, 25 ไบต์, A000583 , แตก

Y=input("");print`Y**4`,X

โปรแกรมนี้ออกจากพร้อมข้อผิดพลาดหลังจากพิมพ์ผลลัพธ์

รหัสที่ซ่อนอยู่ของฉัน (แตกต่างจากโซลูชันที่ถอดรหัส!):

ที่จริงแล้ว 25 ไบต์

4,n`*`Y")ii(*nppruttY;="X

ลองออนไลน์!

คำอธิบาย:

4,n`*`Y")ii(*nppruttY;="X
4,n                        input, repeat 4 times
   `*`Y                    do * until the stack stops changing (fixed-point combinator)
       ")ii(*nppruttY;="X  push this string and immediately pop and discard it

Python, 118 ไบต์, A042545 , ปลอดภัย

i=int(input());s=pow(801.0,0.5);a=[0|0,1]
for Moshprtflmah in range(i):s=1./(s%1);a+=[a[-2]+a[-1]*int(s)];
print(a[i])

เวลานี้ใช้งานได้ทั้ง 2 และ 3 และไม่มีความคิดเห็น! คุณจะทำอะไร?

หมายเหตุ: เช่นเดียวกับโซลูชันเก่าการสูญเสียความแม่นยำหลังจาก 15 คำแรกเนื่องจากข้อผิดพลาดทางเลขทศนิยม

โซลูชันที่ตั้งใจ, JavaScript (ES6)

giiiiinnnnprt:
i=prompt([n=+2]);s=Math.pow(801,.5);for(a=[1,0];i--;a.unshift(a[1]+a[0]*(s|0)))s=1/(s%1)
alert(a[0])   

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

Python 2, 124 ไบต์, A144945 , [ปลอดภัย]

การแคร็กนี้จะทำให้คุณได้รับ 500 ค่าหัว! สายเกินไป!

จำนวนวิธีในการวาง 2 ควีนบนกระดานหมากรุก n X n เพื่อให้พวกเขาโจมตีซึ่งกันและกัน

ฉันหวังว่ามันจะไม่ง่ายเกินไป ฉันจัดรหัสของฉันเพื่อให้ช่องว่างสามารถมองเห็นได้ชัดเจน เหล่านี้เป็นช่องว่างและขึ้นบรรทัดใหม่เท่านั้น

_{หมายเหตุ: ทางออกที่ต้องการส่งออกผ่านรหัสตัวอักษร}

n=input();print((3+2)*n*n+~0*6*n+1)*n/3;            +6;



























+7+7+7+7+7+7+7+7+7;+++++++++++++++9+9*9*9

ลองออนไลน์

โซลูชันที่ตั้งใจไว้Headsecks :

r2=ni***p**
(


p((0 ;3+++3;+;/


)





i+++nn
 +)7
n

n+++ 


17+~
 +)7;97++++7


69+9n+ ++7+n 69
 +7+ ++7


**7+++tut

นี่เทียบเท่ากับโปรแกรม BF ต่อไปนี้:

>>,[->>>+>>>+>>>+++++<<<<<<<<<]>>>->>>>>>-<<<[[>+<-]>[>>[<<<+>>+>-]<[>+<-]<-]<<<<]>>+++>[-<-[<+<<]<[+[->+<]<+<<]>>>>>]<<<.,.

Fuzzy Octo Guacamole, 26 ไบต์, A070627 [ปลอดภัย]

49++*5^pm#]%:"?:.=:#,|"1:@

กรณีทดสอบ:

1 -> 1
3 -> 23
5 -> 1

วิธีการแก้:

^::::|*?1=#@]","%.#49++5pm

ทำงานใน Magistack

Pyth, 75 ไบต์, A004526 แคร็ก, นม

การทดสอบที่ขี้เล่นมากกว่าอะไร แต่:

/Q/////////////////****22222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2;;;;;

ลองออนไลน์!

วิธีแก้ปัญหาของนม (นูน):

2/Q2 2/2/2/2/2/2/2/2/2/2/2/2/2/2/2/2/2/2*2*2*; 2*;                 2; 2; 2;

ลองออนไลน์

โซลูชันที่ตั้งใจ (///):

/*///;2/;// ///22/Q//2;///;//;***2222222222222222222222                    

ลองออนไลน์

รับอินพุตในรูปแบบ 2 ก่อนเซมิโคลอนล่าสุดและส่งออกจำนวน Q ที่ถูกต้อง

ลำดับคือดัชนี 0 (เช่น 0 คือ 0, 1 คือ 0, 2 คือ 1, ... )

พบข้อผิดพลาดทางไวยากรณ์เล็กน้อยใน /// ดังนั้นแก้ไขทั้งหมด

MATL, 7 ไบต์, A000217 , แตก

:sp{1}x

ลำดับคือn(n+1)/2(ตัวเลขสามเหลี่ยม) เริ่มต้นที่การป้อนข้อมูลn=1ตามที่ระบุโดยความท้าทาย: 1, 3, 6, 10... (เอาท์พุทสำหรับการป้อนข้อมูล0ไม่รับประกันว่าจะเป็นแบบเดียวกันในสองโปรแกรม)

โปรแกรมในภาษาอื่นออกจากข้อผิดพลาด (หลังจากสร้างเอาต์พุตที่ถูกต้องใน STDOUT)

ลองออนไลน์!

:            % Push [1 2 ... n], where n is implicit input
 s           % Sum of that array. Gives the desired result
   p         % Product of that. Gives the same number
    {1}      % Push a cell array containing number 1
       x     % Delete it

Python 2, 37 ไบต์, A000290 แคร็ก

print(input()**(1+1))
"'10°3¢','m'"

Python 3, 27 ไบต์, A000012 , แคร็ก

ไม่มีการป้อนข้อมูลในครั้งนี้!

if 1:
    if 1:
        print( '1' )

เยื้องเป็นแท็บ แต่ไม่ต้องบันทึกไบต์ - พวกเขาจำเป็นต้องมีสำหรับช่องว่าง

ฉันไม่คิดว่ามันต้องมีลิงค์หรือคำอธิบายของ TIO!

(อาจใช้เวลาไม่นานในการถอดรหัสในบางวิธี)

คำตอบที่ตั้งใจไว้ (ช่องว่าง):

-Start-


    if1:if1:print('1')
-End-

(เริ่มต้นและสิ้นสุดไม่ใช่ส่วนหนึ่งของโปรแกรม)

ขออภัยฉันลืมที่จะเพิ่มลงใน STDERR:

ลองออนไลน์!

Fuzzy Octo Guacamole , 11 ไบต์, A001844 [ปลอดภัย!]

hha02^d+**+

รอยแตกที่เรียงลำดับของงานคือdh*h++^2*0aใน Pythมันไม่ใช่รูปแบบเอาต์พุตที่ถูกต้อง

รหัสของฉันยังคงอยู่ที่นั่น! (และมันไม่ได้อยู่ใน Pyth)

กรณีทดสอบ:

0 -> 1
1 -> 5

วิธีการแก้:

^++d0ah*2*h

ใน Jolf

WinDbg, 39 ไบต์, A000007 แคร็กโดย jimmy23013

~e.block{j(0>=@$t0)?@$t0+(1<7);??0}t":"

0**nลำดับที่ยากลำบากของ

$t0การป้อนข้อมูลจะทำโดยการส่งผ่านค่าในหลอกทะเบียน

โซลูชันดั้งเดิมของฉันคือ C #:

@t=>(object)(0<@t?0:1)??"$$700~lk.{}+";

JavaScript ES6, 38 ไบต์, A000290 , แคร็ก

J=>eval(Array(J).fill(J).join`+`)|2-2;

รถไฟสแควร์นี้สวยดี แต่ไม่ไปไหนเร็ว (รับเป็น " รถไฟสแควร์ " ในขณะที่ล้อไม่โอเคดีนักวิจารณ์ )

คำตอบที่ตั้งใจไว้: reticular ( ลองออนไลน์! ),

in2Jo;=>eval(Array(J).fill(J).j`+`)|-2
in      take input, convert to number
  2J    raise to the second power
    o;  output and terminate; ignores following chars

MATL , 13 ไบต์, A002275 แตก!

i:"@ax'1']
v!

ลองออนไลน์!

คำอธิบาย:

i           % Grab input
 :          % Push (range(1,input))
  "         % For each element in this range:
   @        %   Push it
    a       %   Is is truthy?
     x      %   Delete it
      '1'   %   Push '1'
         ]  %   End loop
v           % Join all of these '1's together
 !          % Transpose and display

2sable , 13 ไบต์, A002378 ,แคร็ก!

หวังว่าฉันจะไม่พลาดบางสิ่ง คำนวณa (n) = n × (n + 1) :

>*?"!&)<=@\\}

รุ่นของฉัน:

?"\>@&*})<\=!

หรือเวอร์ชันที่กางออก:

  ? " \
 > @ & *
} ) < \ =
 ! . . .
  . . .

โปรดทราบว่าไม่ได้ใช้งาน>ที่มุมบนซ้าย (ยกเว้นโปรแกรม 2sable) ฉันทำอย่างนี้เพื่อทำให้โจรงง (แต่เห็นได้ชัดว่าไม่ได้ทำงานฮ่าฮ่า)

ลองออนไลน์!

2sable, 15 ไบต์, A087156

D1QiA0*<}.;2->>

ลองออนไลน์

ลำดับของตัวเลขที่ไม่ใช่ลบยกเว้น 1

Befunge 93 , 14 bytes, A121377 , แคร็กโดยนม !

&52* %68*+ .@Q

สนุกจริง: วิธีแก้ปัญหาที่ตั้งใจไว้สำหรับเรื่องนี้เป็นครั้งแรกที่ฉันเคยใช้ภาษานั้น

ทางออกของฉันใน Pyth & @ พิมพ์ข้อผิดพลาด แต่ไปที่ STDERR ซึ่งละเว้นตาม OP จะถูกละเว้น

+%Q*5 2*6 8.&@

Python 2, 35 ไบต์, A048735 , ปลอดภัย

print(lambda u:u&u<<1)(input())>>1

วิธีการแก้ปัญหาเดิมในภาษาการเขียนโปรแกรมของตัวเองฉลาด

:<<>&>print(lambda uuu1)(input())1

ตัวละครส่วนใหญ่ไม่มีความเกี่ยวข้องใด ๆ ตัวละครที่สำคัญคือหกตัวแรก :สร้างสำเนาสองรายการของรายการแรกในสแต็ก <<>บิตเลื่อนไปทางซ้ายสองครั้งและหนึ่งครั้งไปทางขวาซึ่งเท่ากับการเลื่อนบิตหนึ่งครั้งไปทางซ้าย &ใช้บิตและรายการด้านบนและที่สอง (ต้นฉบับและสำเนาที่เลื่อนบิต) >บิตสุดท้ายเลื่อนไปทางขวาหนึ่งครั้ง

05AB1E, 5 ไบต์, A000012 , ปลอดภัย

$;$1?

ลำดับของ 1 ลองออนไลน์

แนวทางแก้ไขปัญหา: Arcyou

1;$$?

ลองมันออนไลน์ ฉันไม่พบเอกสารสำหรับภาษานี้ดังนั้นจึงไม่มีคำอธิบายว่ามันทำงานอย่างไร

Python 2, 70 Bytes, A000217 แคร็ก!

ฉันรู้สึกว่ามันจะไม่แตกในภาษาที่ฉันใช้กับเวอร์ชั่นอื่นเราจะเห็น :)

o=input()
v=0
i=1
while o:
 v+=i
 i+=1
print v


#|  d00->1@@@++-^,,[

ฉันรู้หลังจากนั้นฉันทำให้งงงวยรหัสไม่ถูกต้อง (มันไม่เปลี่ยนความถูกต้องของคำตอบที่โพสต์) นี่คือรหัสที่ฉันเริ่มด้วยใน Haystack:

v
0
v
0
i
1
-
>      d0[v
^-1@+@d+1@?,,o|

05AB1E , 9 ไบต์, A000042 แคร็ก!

1×,1*-^$)

นี่คือการเป็นตัวแทนของตัวเลขธรรมชาติ (OEIS) ดังนั้นถ้าใส่เป็นเช่นนั้นการส่งออกจะเป็น3111

คำอธิบาย:

                    # implicit input
1                   # pushes 1 to the stack   
 ×                  # pushes "1" × (the input)
  ,                 # outputs the stack
   1*-^$)           # irrelevant

ลองออนไลน์!

โซลูชันดั้งเดิม, แครอท

1^*$-1×^)

คำอธิบาย

1^             Push "1" to the stack
  *            Multiply the string by
   $-1         ...the input (as an integer) minus 1 times
      ×,)      Ignored by the interpreter

การ*คูณสตริงตาม(n+1)เวลาเพื่อให้a^*3ผลลัพธ์เป็นaaaaและไม่ใช่aaaและไม่ได้นั่นคือสาเหตุที่ฉันลบออก1จากอินพุต

เฉพาะตอนนี้ฉันรู้ว่าสิ่งที่)ไม่เกี่ยวข้องทั้งสองภาษา: D

ลองออนไลน์!

J, 2 ไบต์, A000290 , แคร็ก

*~

ทีนี้ก็อาจจะเริ่มต้นสำหรับคนสองคน ผลตอบแทนn × nหรือn ² 2

วิธีแก้ปัญหาที่ตั้งใจ Jolf 2 ไบต์

*~

ดี. ใช่. นี่คือภาษาของฉันเองและฉันคิดว่ามันใช้งานได้เพราะ~มองหาตัวละครตัวยาว ๆ แต่หาไม่เจอมันเลยไม่สนใจเลย ¯ \ _ (ツ) _ / ¯โอ๊ะโอ

ABCR 24 ไบต์A023443 แคร็ก!

70: Quit xi. Classy queue!

มีพวงไม่มี -op n - 1คำนวณ

05AB1E, 8 ไบต์, A000042 , แคร็ก

F1}J,(1&

กรณีทดสอบ:

1 -> 1
2 -> 11
3 -> 111

Ouroborosขนาด 6 ไบต์A000012 แคร็ก

)49.o(

1ผลเสมอ