Bu polislerin ipliği. Soyguncuların ipliği buraya gidiyor .

Son polis ve soyguncular konu başlıkları 4 ay önceydi .

Polisin görevi

• Polisin görevi, pozitif (veya negatif olmayan) bir tamsayı alan ve başka bir tamsayı çıkaran / veren bir program / işlev yazmaktır.
• Program sıfıra karşı toleranssız ise polis bunu belirtmelidir.
• Polis en az 2 numune girişi / çıkışı sağlayacaktır .
• Örneğin, Fibonacci dizisini yazmaya karar verirsem, cevabımı şöyle yazardım:

a (0) 0 döndürür
a (3) 2 döndürür

• Örnek sayısı, polisin takdirine bağlıdır.
• Bununla birlikte, dizilimin aslında Integer Sequences® On-Line Ansiklopedisi'nde bulunması gerekir , bu nedenle sizin için sözde rasgele sayı üreteci yoktur.:(
• Polis, istendiği kadar karakter gizleyebilir.
• Örneğin, eğer programım:

function a(n)
    if n>2 then
        return n
    else
        return a(n-1) + a(n-2)
    end
end

• Sonra bu karakterleri istediğim gibi gizlerdim:

function a(n)
    if ### then
        ########
    else
        ######################
    end
end

Soyguncunun görevi

• Açıkçası orijinal kaynak kodunu bulmaktır.
• Bununla birlikte, aynı çıktı kümesini üreten herhangi bir kaynak kodu, OEIS'te de bulunduğu sürece geçerli sayılır.

Polisler için ipuçları

• OEIS'deki arama işlevi yalnızca ardışık terimler için çalışır, bu nedenle dizinizi gizlemek istiyorsanız, istediğiniz yere bir delik bırakın.
• Görünüşe göre diziyi gizlemenin bir yolu yok. Diziyi seçerken bunu aklınıza koyun.

Puanınız, kodunuzdaki bayt sayısıdır.

Kazanan, 7 gün içinde kırılmayan en düşük puanı alan sunum olacak.

Yalnızca 2016 Nisan’da gönderilen gönderiler kazanmaya uygundur. Bundan sonra gönderilen gönderiler kabul edilir, ancak kazanamazlar.

Kazanmayı talep etmek için kodun tamamını ve OEIS dizisini (7 gün sonra) açıklamanız gerekir.

Gönderiniz bu şekilde biçimlendirilmelidir (NN, karakter sayısıdır):

Lua, 98 bayt

Çıktı:

a(0) returns 0
a(3) returns 2

Kod ( #açıklanmamış karakterleri işaretler):

function a(n)
    if ### then
        ########
    else
        ######################
    end
end

Kod çatlamışsa, [Cracked](link to cracker)başlığa yerleştirin . Gönderim güvenliyse, başlığa "Güvenli" yazıp cevabınızın tam kodunu gösteriniz. Sadece tam kodu ortaya çıkaran cevaplar kazanmaya uygun olacaktır.

Vim, 36 tuş vuruşlarını - Güvenli!

i****<esc>:let @q="^*i****$**@***"<cr><n>@qbD

(Not: <n>girişinizi yazdığınız yerdir)

Sayı üretimi ile ilgili olmayan kod:

          :let @q="              "<cr><n>@qbD

Yani 19 karakterden 5'ini açığa vuruyorum.

<n>Girdi. İşte bazı örnek çıktılar:

1@q:    1
2@q:    3
6@q:    18

Cevap

Bu kod , yerine Fibonnaci Dizisi'ne benzeyen Lucas Numaralarını ( A000032 ) basar, 2, 1bunun yerine başlaması dışında 1, 1. İşte ilk 15 sayı:

2, 1, 3, 4, 7, 11, 18, 29, 47, 76, 123, 199, 322, 521, 843

İşte açığa çıkan kod:

i2 1 <esc>:let @q="^diwwyw$pb@-<c-v><c-a>"<cr><n>@qbD

Açıklama:

i2 1 <esc>                          "Insert the starting numbers
          :let @q="....."<cr>       "Define the macro 'Q'

Makronun açıklaması:

^                      "Move to the first non-whitespace character on the line.
 diw                   "(d)elete (i)nner (w)ord. This is different then 'dw' because it doesn't grab the space. 
                      "It also throws people off since 'i' is usually used for inserting text.
    wyw$               "Move to the next number, yank it then move to the end of the line 
        pb             "(p)aste the yanked text and move (b)ack
          @-     <c-a> "@- is the register holding the word we deleted. Increment the current number that many times.
            <c-v>      "Since we're adding <c-a> this from the command line, we need to type it as a literal.

Şimdi, sadece ikinci sayıyı silmemiz gerekiyor, çünkü ilk sayı istediğimiz sarı sayı. Öyleyse yapıyoruz

b   "move (b)ack
 D  "(D)elete to the end of the line.

Ayrıca, yanılmıyorsam, bu ilk güvenli teslim! Çok havalı.

05AB1E , 5 bayt, güvenli

Bugün için sonuncusu: s. Çıktı:

a(0) = 9
a(5) = 4
a(10) = 89

Kod:

___m_

Şaşkın karakterler ile gösterilir _. Çevrimiçi deneyin! -Link. CP-1252 kodlamasını kullanır .

Çözüm:

žhžm‡

Açıklama:

žh       # Short for [0-9].
  žm     # Short for [9-0].
    ‡    # Translate.

Çevrimiçi deneyin! veya Tüm test durumları için deneyin! .

Öğe , 7 bayt, kırık

Çıktı:

a(3) = 111
a(7) = 1111111

#Gizli karakterler ve hepsi yazdırılabilir ASCII vardır. Bunun aslında oldukça zor olduğunu düşünüyorum (sadece 5 eksik karakter olması için).

###,##}

Kolaylık sağlamak için, işte Çevrimiçi Deneyin ve Esolang wiki sayfalarını.

Orijinal programım:

_'[,$ ' }

İşin püf noktası

]ve }fonksiyonel olarak özdeştir (her ikisi de }Perl'de). Ayrıca, kullanılan ,$bir üretilmesi için 1bunu göz ardı etmek mümkün olmasına rağmen, karıştırma ek bir katman olarak ,yaparak tam ,1yerine.

Jolf , 5 bayt, kırık

Çıktı:

a(2) = 8
a(10) = 4738245926336

Hepsi çok önemli ve ben 5 üzerinden 1 gösterdim.

####x

Orijinal kod:

mPm$x
mP     cube
  m$   catalan number
    x  input

Çevrimiçi deneyin!

JavaScript (ES7), 10 bayt, Kırık

Çıktı

f(0) -> 1
f(1) -> -1

kod

t=>~t##**#

Her gece Firefox'ta test edin. Kod anonim bir işlevdir. Sadece üç karakter gizlendiğinden bu muhtemelen kolay olacak, ama en azından kısa! : P

Orijinal kodum:

t=>~top**t

ancak bir çözüm için kendi kodumu zorla uyguladıktan sonra, kısa sürede farkettim

t=>~t.x**t( xherhangi bir değişken ismi karakteri olabilir)

ayrıca kullanılabilir. Bu çalışır çünkü

Orijinal ES7 üstelleştirme işleci spesifikasyonunda, işleci, tekli işleçlerden daha düşük önceliğe sahipti (geleneksel matematik ve diğer birçok dilin aksine). NOT'u yapmadan önce bunları 32 bit işaretli bir tam sayıya (bunlar böyle görünmez olur ) attıran ( ) veya ( ) ~üzerinde bitsel bir NOT gerçekleştirir (böyle olur ). Bu konuya daha fazla baktım ve çok yakın bir zamanda, teknik özelliklerin bu gibi belirsiz referanslara izin vermeyeceği (gelecekteki golf sahası D için iyi değil) değişti, ancak ES7 motorlarının çoğu henüz spesifikasyonun en son sürümüne güncellemedi.t.xundefinedtopObject00-1

05AB1E, 4 bayt ( Kırık )

Örnek çıktı:

a(5) = 51
a(8) = 257

Ve kod için:

###^

Sonuncusunu ifşa ettim. Olsa da kolay olmalı, bir sıralama bulmak oldukça zor bir zaman geçirdim :(

Tüm gizli karakterler yazdırılabilir.

MATL , 5 bayt, kırık

Gizli karakterler ile gösterilir %.

%5%*%

Çıktı:

a(1) = 3
a(2) = 6
a(4) = 12

Giriş 0geçerlidir.

Orijinal kod:

35B*s

yani,

35    % push number 35
B     % convert to binary: array [1 0 0 0 1 1]
*     % multiply element-wise by implicit input n: gives [n 0 0 0 n n]
s     % sum of array: gives 3*n

SWIFT, 55 bayt, Kırık

func M(n:Int)->Int{
return(n*****) ?M(**n****):n***;
}

* gizli bir karakteri işaretler

Çıktı:

M(30) -> 91
M(60) -> 91
M(90) -> 91
M(120)-> 110
M(150)-> 140

İşlev kabul eder 0

Ruby, 46 bayt, güvenli

Feragatname / özür eklemek için düzenleyin: Bu sıra f [0] ile başlar, OEIS girişi f [1] ile başlar. Değerler aynı.

Gizli kod ( #herhangi bir karakterdir):

->####or x##1###(#..##0#);x*=3;end;#.###ect:+}

Gibi çağrı

->####or x##1###(#..##0#);x*=3;end;#.###ect:+}[3] (returns 39)

Çıktı:

f[0] = 0
f[1] = 3
f[2] = 12
f[3] = 39
f[4] = 120
f[5] = 363
f[6] = 1092
f[7] = 3279
f[8] = 9840
f[9] = 29523

Çözüm:

f=->*x{for x[-1]in(0..x[0]);x*=3;end;x.inject:+}

Sıra:

http://oeis.org/A029858

Açıklama:

Buradaki küçük numara, parametreyi *xdeğil olarak ilan etmemiz x. Bu araçlar size başarılı olursa o 2, xayarlandığında [2]ilk başta .... Büyük hüner tuhaf ve haklı belirsiz sömüren, bunun yerine böyle bir yineleyici değişken, bir atama ifadesinin geçerli herhangi sol tarafına döngü için yineleyici ayarlayabilirsiniz Yakut sözdizimi i. Böylece, bu, 0'dan (bu örnekte) 2'ye kadar uzanır, her sayıyı atar x[-1], yani x'in son değerinin üzerine yazar. Daha sonra ilmek gövdesi x*=3, kendi kendine 3 kez birleştirerek x'i daha fazla mutasyona uğratır. Yani ilk x olur [0], sonra [0,0,0]. Bir sonraki döngüde [0,0,1], o zaman olur [0,0,1,0,0,1,0,0,1]. Sonunda 2'yi geçiyoruz [0,0,1,0,0,1,0,0,2]ve sonra[0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2]. Sonra sırayla her bir elemana (yöntemde geçirilen) injectuygulayarak diziyi azaltan yöntemi kullanarak sonucu +toplarız. Her yinelemenin toplamı nasıl değiştirdiğini düşünürsek, etkin bir şekilde 1 eklediğimizi görürüz (son öğenin üstüne bir öğenin üstüne yazarak), daha sonra 3 ile 3*(n+1) = 3*n + 3çarptık. sayfa.

05AB1E , 3 bayt, kırık

Çıktı:

a(9) = 165
a(10) = 220

Gizli kod:

##O

Çevrimiçi deneyin kullanışlı gelebilir.

Altıgen , 7 bayt, kırık

Çıktı:

a(1) = 2
a(2) = 4

Gizli kod:

?#####@

Veya alternatif olarak:

 ? #
# # #
 # @

Çevrimiçi deneyin kullanışlı gelebilir.

PHP, 41 bayt, kırık

Evet, sonunda başka bir Polis ve Soyguncular mücadele ediyor. Umarım kolaylaştırmadım.

Çıktı

a(5)   = 0
a(15)  = 1
a(35)  = 0
a(36)  = 1
a(45)  = 1

Kaynak

____________________$argv[1]____________;
####################        ############

notlar

• Bu tam bir program, fonksiyon değil.
• Komut satırından girişi okur (açıkçası).
• PHP açılış etiketi içermez .

Çatlak

Açıkçası kolaylaştı ve yeterince örnek vermedim. Aklımdaki dizi A010054 idi :

a (n) = 1, eğer n, 0 dışında bir üçgen sayıysa.

İşte benim orijinal kaynak kodum:

echo(int)($r=sqrt(8*$argv[1]+1))==$r?1:0;

Bu giriş, bir olup olmadığını test eder üçgen sayısı ve çıkışlar 1veya 0buna göre.

Jolf, 11 bayt, Kırık , A011551

c*______x__

c*mf^+91x~P

Orijinal kod:

c*^c"10"x~P

Örnekler:

0 -> 1

12 -> 1618033988749

MATL, 9 bayt, Kırık

Kod:

3#2###*##

Çıktı:

a(1)  = 3
a(2)  = 6
a(4)  = 12
a(12) = 37

a(0) geçerlidir

Çatlak

Orijinal sıra: A059563

Orijinal kod:

3L2^Ze*sk
3L          % Push [1 -1j] from the clipboard
  2^        % square
    Ze      % exp
      *     % times input
       s    % sum
        k   % floor

Java, 479 bayt, Kırık

Çıktılar:

a(10) = 81
a(20) = 35890

(Girişler komut satırı argümanları aracılığıyla sağlanır)

Kod ( #gizli karakterleri işaretler):

import java.util.*;
public class A{

    public static int#########
    public boolean###########

    static A a = new A();

    public static void main(String[] args){
        int input = Integer.parseInt(args[0]);

        LinkedList<Integer> l = new LinkedList<>();
        l.add(1);
        l.add(0);
        l.add(0);

        for(int ix = 0; ################if(##>##{
            ###########d#
            #######+##p##########+##########(#######
        }

        System.out.println(#########################
            ###(A.#############(#5#####)));
    }
}

Program 0 dizininde başlar.

(SE'nin tüm \tgirintileri 4 boşlukla değiştirdiğini, toplam bayt 569'a ulaştığını unutmayın . Programı boşluk girintileri yerine girintili görmek için buraya tıklayın \t.)

Orijinal kod:

import java.util.*;
public class A{
    public static interface B{
    public boolean C(int i);} 

    static A a = new A();

    public static void main(String[] args){
        int input = Integer.parseInt(args[0]);

        LinkedList<Integer> l = new LinkedList<>();
        l.add(1);
        l.add(0);
        l.add(0);

        for(int ix = 0; ix<input; ix++)cif(i->  {
            return l.add(
            l.pop()+l.peekFirst()+l.peekLast());});{    
        }

        System.out.println(l.get(1));}static boolean 
            cif(A.B b5){return (b5.C((0)));
    }
}

(Aynı kod, ancak normal olarak biçimlendirilmiş):

import java.util.*;

public class A {
    public static interface B { //functional interface for lambda expression
        public boolean C(int i); //void would have given it away
    }

    static A a = new A(); //distraction

    public static void main(String[] args) {
        int input = Integer.parseInt(args[0]);//Input

        LinkedList<Integer> l = new LinkedList<>();
        l.add(1);//Set up list
        l.add(0);
        l.add(0);

        for (int ix = 0; ix < input; ix++)
            cif(i -> { //Fake if statement is really a lambda expression
                return l.add(l.pop() + l.peekFirst() + l.peekLast());
            });
        { //Distraction
        }

        System.out.println(l.get(1));//Output
    }

    static boolean cif(A.B b5) { //Used to pass in lambda expression.
                  //The A. and b5 were both distractions
        return (b5.C((0)));
    }
}

Oktav, 34 bayt, kırık

@(m)(m###m#####m##)&isprime(#)####

Çıktılar:

ans(1) = 0
ans(6) = 5
ans(7) = 10
ans(8) = 15

Dizi ans(1)OEIS'te başlar .

C, 71 bayt kırık

############
#####
main(){
 scanf("%d",##);
 ###6#;
 printf("%d",##);
}

Çıktı:

a(1) = 0   a(2) = 0   a(5) = 1
a(6) = 1   a(7) = 1   a(9) = 2

Bu, gcc ile çalışır ve tam bir programdır. 0 değerini girdi olarak kabul eder.

Pyth, 70 bayt, Kırık

DhbI|qb"#"qb"#"R!1Iqb"#"#####+""s####2###;##lY+Q1Ih+""Z#####)=Z+Z1;@YQ

# gizli karakterler

Çatlak oldu, bu yüzden gizli karakterleri olmayan sürüm:

DhbI|qb"4"qb"0"R!1Iqb"1"R!0Rh+""sm^sd2cb1;W<lY+Q1Ih+""Z=Y+YZ)=Z+Z1;@YQ

Örnek çıktılar:

a(2) -> 10
a(4) -> 19

Bunu OEIS'te bulmamda iyi şanslar, şahsen bu örneklerden bulamadım (dizi bile bulmak oldukça kolaydır.)

Yakut, 38 bayt, kırık

Gizli kod ( #herhangi bir karakter olabilir):

->#{(s=#########).sum==#3333&&eval(s)}

Çıktı:

Girişi 10 ile çarpar (A008592). 0 da dahil olmak üzere herhangi bir tamsayı için çalışır.

->#{(s=#########).sum==#3333&&eval(s)}[3]  => 30
->#{(s=#########).sum==#3333&&eval(s)}[10] => 100

05AB1E , 5 bayt, kırık

Çıktı:

a(0) = 0
a(1) = 0
a(2) = 1
a(3) = 1
a(4) = 1
a(5) = 1
a(6) = 1
a(7) = 1
a(8) = 1
a(9) = 1
a(10) = 0
a(11) = 0

Gizli kod:

_____

Çevrimiçi deneyin! -Link.

05AB1E , 4 bayt, kırık

Öyleyse sanırım CnR'nin bağımlısıyım ... Obfuscated code (_ joker karakter gösterir):

____

Sıra:

a(1) = 2
a(4) = 6720

Dizisi OEIS'deki (1) = 2 ile başlar.

Çevrimiçi deneyin! -Link

Lua, 45 Bayt, Kırık

Küçük bir ipucu:

a(0) will make the program crash :)

Çıktı

a(1)=>0
a(2)=>1

kod

Kullanımları #kodunu gizlemek için :).

a=function(n)#####n###### and #or ########end

Ben OEIS kullanıyordum A007814 aşağıdaki kodla:

a=function(n)return n%2>0 and 0or 1+a(n/2)end

Pyke , 15 bayt, GÜVENLİ

Çıktı

a(2) = 21
a(15) = 17

Açıklanan kod:

#R#D######+##)#

Çözüm:

OEIS A038822
wR}DSR_Q*L+#P)l
burada kullanarak kırmızı ringa balığı bir çift kullanılan wR}sayısı 100 oluşturmak için ve karakter ortaya R, normal olarak yığın döndürmek için kullanılır. Ayrıca dizideki asal sayıları saymak #P)lyerine, daha basit olanı kullandım mPs.

C, 82 bayt, güvenli

####=############
main(i){scanf("%d",##);
for(i=1;i++/4<#;)##=2;
printf("%d",##);}

Gcc ile çalışır ve girişini stdin'den okuyan ve çıktısını stdout'a basan tam bir programdır. Burada dizi A004526, kat (n / 2) .

a(0) = 0    a(1) = 0    a(2) = 1
a(3) = 1    a(4) = 2    a(5) = 2
a(6) = 3    a(7) = 3    a(8) = 4

Çözüm:

a;*b=(char*)&a+1;
main(i){scanf("%d",&a);
for(i=1;i++/4<2;)a*=2;
printf("%d",*b);}

Bu yalnızca küçük endian makinelerde ve yalnızca boyutu char1 bayt olduğunda çalışır.
Ve sadece en yüksek sıralı bayttan daha yüksek olan bayt a0 değerine sahipse, bunun varsayılan olarak başlatılmamış global değişkenler bss segmentine, başlangıç ​​durumuna getirilmiş global değişkenler veri segmentine girdiği için gcc için doğru olduğunu düşünüyorum (bkz. Https: // stackoverflow.com/questions/8721475/if-a-global-variable-is-initialized-to-0-will-it-go-to-bss ).
Bu yüzden sadece abss'e girer (diğer tek global değişken bilklendirilir ve böylece veri segmentine girer). Eğer abss'in sonunda değilse, en yüksek mertebeden byte'dan daha yüksek olan bayt ada bss'dir ve bu nedenle 0 değerine sahiptir.

05AB1E, 1 bayt, Kırık

_

_ gizli kodu belirtir.

f(1) == 1
f(18) == 6

Öğe , 10 bayt, kırık

Çıktı:

a(3) = 6561
a(4) = 4294967296

Element'teki bu sırayı hesaplamanın sadece birkaç yolu vardır. Bir 9-char çözüm buldum, ancak bu 10-char çözümün daha zor olduğunu düşündüm. #Gizli karakterlerdir.

#_####@^#`

Kolaylık sağlamak için, işte Çevrimiçi Deneyin ve Esolang wiki sayfalarını.

Orijinal

2_3:~2@^^`

Pyth , 18 bayt

# açığa çıkmamış karakterleri işaretler.

L?Jtb##5#m##S#2 #y

Çıkışlar (başlar 1):

1 -> 2
2 -> 3
3 -> 5
4 -> 7

Çevrimiçi tercüman

05AB1E , 5 bayt, kırık

Umarım bu gönderim diğerlerininki kadar kolay değildir: s. Çıktılar:

a(0) = 0
a(1) = 1
a(2) = 6
a(3) = 24
a(4) = 80
a(5) = 240

Gizli kod:

####O

Bazı ASCII olmayan karakterler içeriyorsa da, CP-1252 kullanıyor kodlamasını .

Çevrimiçi deneyin! kullanışlı gelebilir: s.

Jolf , 11 bayt, kırık .

Çıktı:

a(10) = 4
a(20) = 6
a(30) = 8

Ve kısmen gizli kod:

####xd###x#

İpucu:

Sırasıyla dizilere baktığımda, bunu bulmadan çok ileri gitmedim.

Kırık sürüm, orijinal kodumla tamamen aynı değil. Şu anda bilgisayarımda değilim, bu yüzden tam olarak elimde değil, ama böyle bir şeydi:

l fzxd!m%xH

(Emin olamadığım tek bölüm !m. Değişken sıfır ise kontrol eden şeydir.)

Pyke , 6 bayt, Kırık

###X#s

Çıktı:

a(2) = 8
a(8) = 80
a(10) = 120

Bu N <1 ile çalışmıyor

Orijinal çözüm:

hSmX$s