Inilah benang perampok dari tantangan ini

Polisi akan memilih urutan OEIS dan menulis dua program lengkap dalam dua bahasa berbeda yang menghasilkan item ke-n dalam urutan ketika diberi dan melalui STDIN. Kedua program harus merupakan anagram satu sama lain, artinya masing-masing dapat disusun ulang dari surat yang lain.

Mereka akan menampilkan nomor OEIS, kode sumber untuk dan nama satu bahasa yang digunakan.

Anda harus menemukan anagram pengajuan polisi asli yang berjalan dalam bahasa selain yang digunakan oleh polisi. Untuk memecahkan jawaban, Anda hanya perlu menemukan bahasa dan program apa pun yang menghasilkan urutan dan merupakan anagram dari aslinya, belum tentu jawaban yang dipikirkan polisi.

Anda dapat menampilkan oleh kode karakter atau memasukkan STDERR dalam solusi Anda, tetapi hanya jika polisi telah menunjukkan solusi tersembunyi mereka melakukannya. Output desimal ke STDOUT selalu merupakan celah yang valid.

Dengan demikian, polisi diberi insentif untuk membuatnya sesulit mungkin untuk menemukan bahasa apa pun yang melakukan tugas menggunakan daftar simbol mereka.

Mencetak gol

Orang dengan retakan terbanyak akan menjadi pemenang bagian ini. Hanya celah pertama untuk setiap solusi yang akan dihitung untuk skor seseorang.

Dewan Pimpinan

Terima kasih banyak untuk semua yang terlibat dalam tantangan ini.

Ini adalah papan pemimpin seperti apa adanya

Place  User             Score
-----------------------------
1      Adnan            3
1      Kritixi Lithos   3
1      Emigna           3
1      milk             3
5      Steven H.        2
5      Wheat Wizard     2
5      jimmy23013       2
8      ETH Productions  1
8      Dennis           1
8      alleks           1
8      Martin Ender     1
8      Oliver           1
8      Conor O'Brien    1

05AB1E , 38 byte, Loovjo , A000290

nXtdief e():return X*X
pr e(input())##

Cobalah online!

Sangat mungkin bukan solusi yang dimaksudkan, tetapi berhasil.

Penjelasan

n      # square input
 X     # push 1
  t    # push sqrt(1)
   d   # push is_number(1.0)
    i  # if true do the rest of the code (1.0 is not a number so it will never execute)

Jolf, 15 byte, Adnan , A000290

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

Coba di sini! Jelas bukan solusi yang dimaksudkan, tapi hei, itu berhasil.

Penjelasan

*&"?!#$|<=@\^{}
*                multiply
 &               the two inputs to this func, x, y: x && y
                 returns y if x and y, or the falsey argument.
  "?!#$|<=@\^{}  this string is always truthy, so the second arg is used.
                 two implicit inputs are taken, both equal to the first arg
                 so, this corresponds to *xx, which is x^2.

05AB1E , 49 byte, Wheat Wizard , A000290

Sebenarnya pendekatan yang sama dengan crack Emigna: p.

n4i<({({)({[()]){))()()()turpetne/"*"*splint>}}}}

Penjelasan:

n          # Square the input
 4i        # If 4 == 1, do the following...
   <({...

Cobalah online!

05AB1E , 35 byte, Oliver , A000290

Polisi harus berhenti memposting n^2tantangan dengan python ...

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

Cobalah online!

Penjelasan

n    # square input
 0i  # if 0 == 1 do the rest of the code

2sable , 7 byte, Kritixi Lithos , A005843

Kode:

r^#ei2*

Penjelasan:

r         # Reverse the stack, which is a no-op
 ^        # XOR the input with itself, always leading to 0
  #       # If 1, break (which stops the program)
   e      # Compute input nPr input, which always leads to 1
    i     # If equal to one, do the following..
     2*   #   Multiply the input by 2.

Cobalah online!

Hexagony , 13 byte, Adnan , A002378

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

Cobalah online!

Dibuka:

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

Tidak 100% apakah ini asli, karena kiri atas \tidak digunakan.

Itu <\>hanya mirror, jadi program ini sebenarnya seluruhnya linier:

?"&)}=*!@

?          Read input.
 "         Move back and left.
  &        Copy input.
   )       Increment copy.
    }=     Move forward and right and turn around (to face the n and n+1 edges).
      *    Multiply.
       !   Print.
        @  Terminate.

V , 13 byte, DJMcMayhem , A002275

v!:x]''"
@ai1

Cobalah online!

Ini mungkin solusi pertama dalam bahasa yang dimaksudkan penulis.

Penjelasan

v!:x]''"   Does nothing
@ai1       inserts 1 a times

2sable, Conor O'Brien , A000290

~*

Cobalah online!

Saya tidak tahu cara kerjanya, benar-benar hanya ada satu program yang memenuhi persyaratan dan saya hanya dengan kasar menemukan bahasa yang digunakan.

Setelah melihat-lihat dokumen, saya dapat memberikan penjelasan:

~         Push Input OR Input (always pushes the input)
 *        Multiply that by Input 

Pyth , 26 byte, Steven H. , A023443

Kode:

tQ.qly 7:esau0euii s uxC !

Coba online .

Cukup sederhana:

 Q                            Reads input
t                             Substracts 1 from it
  .q                          Quits program (implicit print)
    ly 7:esau0euii s uxC !    None of this ever plays a part...
                                I just thought it'd be fun to scramble it.

Python 3, 118 byte, ETHproduksi, A042545

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

Uji di Ideone .

Pengiriman polisi

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|

Apa yang berbeda?

Pengajuan polisi tidak berfungsi dalam Python 3 karena dua alasan.

• Fungsi input Python 2 secara otomatis mengevaluasi satu baris input, sedangkan mitra Python 3 hanya mengembalikan baris sebagai string. Kita cukup memanggil int untuk memperbaikinya.

• print adalah pernyataan dalam Python 2, tetapi itu adalah fungsi dalam Python 3. Secara khusus, itu berarti bahwa kita harus mengelilingi argumennya dengan tanda kurung.

Itu berarti kita perlu int()dan (), tetapi karakter-karakter itu tidak semuanya bagian dari komentar. Itu berarti kita harus melakukan beberapa perubahan.

Alih-alih fraksi s , kami melacak 1 / s .

Inisialisasi s - s=1/(801**.5-28)- menjadi s=801**.5-28, menyimpan karakter 1/().

Faktor [-1] dalam pembaruan a - int(s)- menjadi int(1/s), dihitung berdasarkan karakter 1/.

Pembaruan s - s=1/(s-int(s))- menjadi s=1/s-1//s, biaya karakter 1//, tetapi menyimpan karakter (int()).

Karakter yang disimpan dalam ()(int())sampul yang kami butuhkan untuk port kode ke Python 3, tetapi mendapatkannya harganya 1//. Kita dapat mengambil //dari komentar, tetapi kita harus menyimpan di 1tempat lain.

Salah satu cara (satu-satunya?) Dari tabungan yang dibutuhkan 1adalah untuk menggantikan 1di inisialisasi sebuah dengan 0==0. Ini biaya empat karakter, tetapi kita dapat mengambil 00dari komentar.

Sejauh ini, kami memiliki kode berikut.

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

Untuk memulihkan salah satu dari yang =sekarang kita "berutang", kita dapat menulis ulang inisialisasi s dan a dengan satu tugas: s,a=801**.5-28,[0,0==0]Selain itu, ini menghemat a ;dan biaya a ,, yang dapat ditambahkan dan dihapus dari komentar.

Yang kedua =dapat disimpan dengan tidak menyimpan input dalam suatu variabel, yaitu, range(int(input()))sebagai gantinya, menyimpan karakter dalam i=. Kami menggunakan i setelah loop juga, tapi saya ^th unsur yang hanya yang kedua dari kanan, sehingga kita dapat mengganti idengan -2. Untuk alasan yang sama, a[-2]di badan loop dapat diganti dengan i.

Kami sekarang memiliki permutasi dalam bekerja kode Python 3:

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

Namun, kode ini juga berfungsi di Python 2! Salah satu cara untuk memperbaikinya adalah menggantinya print(a[-2])dengan (print(a[-2]),); kami memiliki karakter yang kami butuhkan di komentar. Seperti disebutkan sebelumnya, cetak adalah fungsi dalam Python 3, jadi ini membangun tupel ( Tidak ada ,) . Namun, pernyataan cetak Python 2 adalah SyntaxError di dalam tuple literal.

CJam, 39 bytes, milk, A000007

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

Try it here.

Pyth, 7 bytes, Luis Mendo, A000217

x:{ps}1

As requested, the program exits with error after printing the correct answer.

Try it online here!

05AB1E, 12 bytes, tuskiomi, A000012

1,(FI1=1=1,)

Try it online!

Explanation

1,            # print 1
  (           # negate input
   F          # that many times do (i.e. no times)
    I1=1=1,)  # the rest of the code

05AB1E, 38 bytes, Conor O'Brien, A000290

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

Try it Online!

Explanation

This is based on Emigna's crack here.

n   #Squares the number
 2i #Runs the rest of the code if 2==1

05AB1E, 27 bytes, boboquack, A000012

1 1pif:
    if :
        rint( '1' )

Try it online

How it works:

1                     # push 1
  1                   # push 1
   p                  # pop (1), push is_prime(1)
    i                 # pop (is_prime(1), false), if is false so don't execute rest

CJam, 70 bytes, Shebang, A000217

ri),:+








e#|  d00->1@@@++-^,[o=input(v=0i=1whil o v=i i+=1pnt v

Try it here.

Convex, 75 bytes, boboquack, A004526

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;

Try it online

How it works:

2  e# push 2
 / e# pop first 2, divide, push result
   e# push a bunch of garbage but discard it all with semi-colons (;)
  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;

Dip, 9 bytes, Kritixi Lithos

Definitely not the intended answer.

1^,-$)×1*

Explanation:

1$^,-)×   # Basically does nothing
       1* # Repeat "1" n times

Pip, 6 bytes, DLosc, A000012

.()49o

I figured I'd try the OP's esolang first ;-)

Try it online.

05AB1E, 25 bytes, Mego, A000583

Code:

nnYi=put("");prit`Y**4`,X

Explanation:

n       # Square the input
 n      # Square the squared input
  Y     # Constant that pushes 2
   i    # If equal to 1, do the following:
    =put...

Try it online!

Dip, 8 bytes, Oliver, A000042

(1J&F},1

Explanation

              #Implicit Input
(             #Start range loop
 1            #Push 1 to the stack
  J           #Join all the elements in the stack
   &          #End program
    F},1      #These are ignored

The funny thing is that this was the intended language! Dip is an esolang created by Oliver.

Test Cases and Running Dip from Command-Line

$python3 dip.py
Dip v1.0.0 by Oliver Ni.
>>> (1J&F},1
> 4
1111
>>> (1J&F},1
> 7
1111111

2sable, 14 bytes, Dopapp, A121377

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

Try it online.

How it works (more or less):

Q@
  5              # Push 5
    2            # Push 2
     *           # Pop (2), pop (5), push 5*2=10
      %          # Pop (10), pop (input), push input%10
       6         # Push 6
         8       # Push 8
          *      # Pop (8), pop (6), push 8*6=48
           +     # Pop (48), pop (input), push input+48
            .&

05AB1E, 4 bytes, Oliver, A000012

p¥_1

Try it online!

This is a sequence of 1s.

              # Implicit input
p¥_           # Does nothing
   1          # Pushes 1 to the stack
              # Implicit output

This outputs 1 no matter what the input is.

Dip, 5 bytes, Oliver, A000012

`¸WW/

The sequence just prints a 1 no matter what the input is. Oliver's answer prints a 1.0. This program also prints a 1.0. This apparently is the intended solution.

Explanation

`¸                  # push character `¸`
  W                 # pushes 1000000
   W                # pushes 1000000 also
    /               # divides the last two items in stack resulting in 1.0
                    # implicit output (1.0)

Alternative solution (courtesy of @milk)

Convex, 5 bytes

WW¸`/

Try it online!

Explanation

                  // implicit input
W                 // pushes -1
 W                // pushes -1 also
  ¸               // calculates the LCM of the two numbers (which evaluates to 1)
   `              // finds its string representation
    /             // slices the string (so that it would evaluate to "1")
                  // implicit output