Đây là một thử thách cảnh sát và tên cướp , chủ đề của tên cướp có thể được tìm thấy ở đây .

Nhiệm vụ của bạn là viết một số mã tạo ra chuỗi OEIS và chứa tên của chuỗi trong mã ( A______) và xuất ra một chuỗi riêng thứ hai khi tên của chuỗi trong mã được thay đổi thành tên của chuỗi thứ hai.

Đây là một ví dụ trong Haskell hoạt động cho A000217 và A000290 .

f x|last"A000217"=='0'=x^2|1>0=sum[1..x]

Hãy thử trực tuyến!

Sau đó, bạn sẽ tiết lộ một trong hai chuỗi và mã giữ bí mật chuỗi thứ hai. Những tên cướp sẽ cố gắng tìm ra chuỗi ẩn là gì. Nếu một tên cướp quản lý để xác định chuỗi của bạn là gì (hoặc một chuỗi khác phù hợp với tiêu chí), bạn trả lời bị bẻ khóa. Nếu không ai làm như vậy trong một tuần câu trả lời của bạn được đăng, bạn có thể đánh dấu câu trả lời của mình là An toàn và tiết lộ giải pháp dự định để xác minh. Câu trả lời an toàn không thể bị bẻ khóa.

Đầu ra đầu vào

^{Lấy từ đây}

Mã của bạn có thể là một hàm hoặc chương trình hoàn chỉnh có n thông qua một phương thức nhập chuẩn và xuất ra số hạng thứ n của chuỗi như được lập chỉ mục bởi chỉ mục được cung cấp trên trang OEIS.

Bạn phải hỗ trợ tất cả các giá trị được cung cấp trong các tệp b OEIS cho chuỗi đó, bất kỳ số nào không có trong các tệp b không cần phải được hỗ trợ.

Chấm điểm

Điểm của bạn sẽ là số byte trong mã của bạn, với ít byte sẽ tốt hơn.

Python 3, 59 byte, A162626 , bị bẻ khóa bởi Wheat Wizard

lambda n:n*(n+1)*(n+2)/3if 0<=n<=3else n*(n**2+5)/3#A162626

Đây là được coi là không thể, đúng không?

Python 3 , 62 byte, A017016 ( Cracked )

n=int(input())
print(sum(1for i in"A017016"if i>"0")*-~n//-~n)

Hãy thử trực tuyến!

Japt , 13 byte ( Cracked )

Có (ít nhất) một giải pháp khác, nếu có ai muốn đâm vào nó.

p#A000012uCnG

Dùng thử trực tuyến
A000012

Giải trình

#theo sau là một nhân vật trong Japt cung cấp cho chúng ta mã số của nhân vật đó, do đó #A=65, phần còn lại của số đó sẽ được thêm vào, cho chúng ta 65000012hoặc 65000290.

ulà phương pháp modulo (nó khác với %ở chỗ nó sẽ luôn trả về một số dương).

Các nphương pháp trừ số nó được áp dụng cho từ số truyền cho nó. Cvà Glà hằng số Japt cho 11 & 15, tương ứng. Vì vậy, CnGcho chúng tôi 4.

Bây giờ chúng ta có 65000012%4=0và 65000290%4=2. Cácp phương pháp làm tăng số lượng nó được áp dụng để (trong trường hợp này có nghĩa là, mặc nhiên, số nguyên đầu vào U) với sức mạnh của các số được truyền cho nó, cho chúng tôi 2 công thức cuối cùng của U**0và U**2.

MATL , 30 29 byte (Đã bẻ khóa )

A077430I\2-|Gw^1Mwx*10&Ylk1+&

A077430

Hãy thử trực tuyến!

-1 byte nhờ @Sanchises

C #, 28 byte (Đã bẻ khóa )

n=>n*n*("A000290"[6]<49?1:n)

Hoạt động với A000290 .

Một cách dễ dàng để bắt đầu điều này.

Hãy thử trực tuyến!

Python 2, 43 byte, A000079 ( Cracked )

Dùng thử trực tuyến

lambda n:((sum(map(ord,'A000079'))*2)%8)**n

C #, 75 byte, (Đã bẻ khóa )

n=>{int r=1,e=3-0xA000244%2;for(;n>0;e*=e){r*=(n%2>0?e:1);n>>=1;}return r;}

A000244

Hãy thử trực tuyến!

Python 2 , 53 byte, A000012 [đã bẻ khóa]

lambda x:len(`x**(sum(map(int,'A000012'[1:]))==22)`) 

Hãy thử trực tuyến!

Chuỗi tiếp theo là A055642 (độ dài các chữ số trong một số thập phân). Theo đó, con số tự ước lượng, vì tổng các chữ số trong OEIS bằng 22; do đó, len (...) tính theo chiều dài thực tế của số đầu vào cho 'A055642'. Đối với các chuỗi A000012 (hoặc bất kỳ chuỗi nào khác ngoài A055642. Len sẽ luôn bằng một, vì số bị đánh giá sẽ là '1'.

Python 3, 65 byte, A000027, đã bị bẻ khóa

a=lambda a,n=((int("A000027",11)-0x103519a)%100%30+1)/2:a//(14-n)

Yay điên số học!

Smalltalk, 148 byte, an toàn!

|x o|x:=(16rA018253*0.00861-1445345)floor. o:=OrderedCollection new. 1 to:x/2 do:[:i|x\\i=0 ifTrue:[o add:i]].o add:x.^o at:stdin nextLine asInteger

A018253

Lấy một số nguyên làm đầu vào, chuỗi là 1 dựa trên.

Chuỗi thứ hai dự định là A133020 . Trong phần viết cho A018253 là một liên kết đến một danh sách các mục cho các chuỗi liên quan đến các ước của số . Trong danh sách đó, A133020 nằm dưới các ước số của hình vuông: 100² . Nếu bạn muốn xem toàn bộ chuỗi, chèn Transcript show: o printString; cr.trước ^câu lệnh return trong mã.

Haskell, 226 byte, an toàn!

Không chắc là thông minh hay xấu xí, có thể cả ...

o n=read.pure.(!!n)$"A001906"
m::Integral a=>[a->a->a]
m=[const,(+),(-),(*),div,(^)]++(flip<$>m)
l=o 1:o 3-o 1:zipWith(m!!(o 6+o 3-o 2))(tail l)l
f=(l!!).((m!!(o 4+o 5+o 6-2*o 1-o 2))$sum[1|n<-[1..6],odd(o n)]).((m!!o 6)$o 3)

Vì vậy, bây giờ điều này tính A001906 , nhưng nó sẽ có thể tạo ra rất nhiều chuỗi.

Hãy thử trực tuyến!

Dung dịch: A131078

Tự hỏi nếu điều này là quá khó khăn hoặc không ai cố gắng?

o 1đến o 6là các chữ số của số series, mlà một danh sách các hoạt động. llà một danh sách vô hạn được xác định đệ quy với hai giá trị đầu tiên được lấy từ số sê-ri và các giá trị còn lại được tính từ hai giá trị trước bằng cách sử dụng thao tác cố định từ m. Trong trường hợp A001906, định nghĩa có thể được đơn giản hóa thành

l=0:1:zipWith(flip(+))(tail l)l

(flip(+))là (thường) giống như (+), và chúng ta có một định nghĩa nổi tiếng (nhưng không phải là ngắn nhất) về các số Fibonacci. Sơ đồ đệ quy này có thể tính toán trực tiếp A001906, nhưng cần một thao tác phức tạp hơn các thao tác trong m. Một ví dụ khác: sử dụng giá trị bắt đầu 1và 2và các hoạt động (*)cung cấp cho các loạt A000301 . Nó được tính bằng mã của chúng tôi khi số sê-ri được thay thế bằng ?103206.

Cuối cùng, hàm flập chỉ mục vào danh sách l, nhưng chỉ sau một số biến đổi của đầu vào. Đối với A001906, phần giữa giảm xuống (*)2, do đó chúng ta chỉ nhận được các số Fibonacci tại các vị trí chẵn. Phần bên phải trở thànhflip const 1 , đó là chức năng nhận dạng và không can thiệp thêm.

Đối với các giải pháp A131078, các giá trị khởi điểm llà 1và 0, và các hoạt động là flip const, cho phép lđược 1,0,1,0,.... Phần giữa ftrở thành (flip div 4), dẫn đến 1,1,1,1,0,0,0,0,1,1,1,1,0,0,0,0,.... Đây trông giống như một câu trả lời hay, nhưng sau đó tôi thấy rằng A131078 bắt đầu n=1, vì vậy tôi đã thêm phần đúng của fnó, ở đây làflip(-)1 để trừ đi một phần.

Ý tưởng của tôi là làm cho nó hơi bị xáo trộn bằng cách sử dụng mvà lập chỉ mục vào nó với các chữ số từ các số sê-ri, sau đó nó trở nên khó hiểu hơn (các thuật ngữ phức tạp) để làm cho nó hoạt động (có thể tôi đã không tìm kiếm đủ lâu để thay thế); và sau đó nó trở nên khó hiểu hơn (phần bên phải f) để làm cho nó thực sự hoạt động. Tuy nhiên, tôi nghĩ rằng một số đoán và cố gắng có thể đã phá vỡ nó.

dc , 52 byte, bị bẻ khóa

Cái này hoạt động với A000217 :

?SaA000217d8d1+Sb%1r-dScla*r10 7^-Lb%+la*1+Lc+La*2/p

Hãy thử trực tuyến!

Python 3.6, 114 byte, bị bẻ khóa

from random import*
g=lambda n:eval(''.join(Random("A005843").choices('n8-9+17n#8*+26%n1 32-3+4-545*-#6*7',k=34)))

A005843

g(n) trả về giá trị thứ n của chuỗi cho n> = 0.

random.choices(s,k)là phiên bản mới trong Python 3.6, nó trả về kcác mục được chọn từ sthay thế.

Chip , 67 byte, bị bẻ khóa bởi Yimin Rong

2D5B#{*Cm49!}E-7
(A000012d#,zkmsh
b-\6/e2)[1Zv^~^S
33a#kcf3g88taz1@

A000012 . Một chút táo tợn, vâng.

Hãy thử trực tuyến!

Sử dụng byte cho i / o, vì vậy tôi đã rất hay và xây dựng một trình bao bọc bashy / pythony.

Trình tự thay thế là A060843 . Hãy thử trực tuyến cho đầu vào 1..4.

Yimin Rong linh cảm, một chương trình Chip ngắn như vậy chỉ có thể tính toán những điều rất đơn giản. Chuỗi ban đầu là tất cả của một người, và chuỗi thay thế là các số hải ly bận rộn, trong đó chỉ có 4 được biết.

Những con số này, 1, 6, 21, 107đơn giản là được mã hóa cứng cho các đầu vào 1..4.

Một điều thú vị khi sử dụng Chip cho thử thách này là các chữ số 0- 9không phải là số, mà là các yếu tố logic. Cụ thể, 0- 7là tám bit giải quyết phần đầu của ngăn xếp 8và chỉ có một tặng cho tiềm năng -9 là các nút đọc và ghi. Điều đó làm cho điều này thú vị hơn một chút và khó hiểu hơn nhiều.

ADxuất hiện, có nghĩa là chúng ta chỉ có 4 bit để lập chỉ mục chuỗi. Điều này có nghĩa là có thể có tối đa 16 giá trị khác nhau. Trong thực tế, chỉ A- Cthực sự được sử dụng cho chuỗi thay thế, đưa ra tối đa 8 giá trị khác nhau.

Đối với bất kỳ ai có thể quan tâm, đây là cùng một mã, loại bỏ các phần tử không sử dụng và không được sử dụng:

.

   B  *C 49!
 A000012d ,z  s
b-\6/e   1Zv-~^S
`3a`-cf3g`8taz1