11

Ceci est le poste Robber. Le post Cop est ici .

Votre tâche consiste à prendre un entier N et à sortir le Nième chiffre dans la séquence OEIS A002942 .

La séquence se compose des nombres carrés écrits à l'envers:

1, 4, 9, 61, 52, 63, 94, 46, 18, 1, 121, 441, ...

Notez que les zéros non significatifs sont supprimés ( 100 devient 1 , pas 001 ). Concaténer ceci dans une chaîne (ou un nombre long donne):

1496152639446181121441

Vous devez sortir le Nième chiffre dans cette chaîne / numéro. Vous pouvez choisir de prendre N comme index 0 ou 1 (veuillez indiquer lequel vous choisissez).

Cas de test (1 indexé):

N = 5,      ==> 1
N = 17,     ==> 1   <- Important test case! It's not zero.
N = 20,     ==> 4
N = 78,     ==> 0
N = 100,    ==> 4
N = 274164, ==> 1

Votre code devrait fonctionner pour les nombres jusqu'à N = 2 ^ 15 (sauf si votre langue ne peut pas gérer les entiers 32 bits par défaut, auquel cas N peut être inférieur).

Voleurs:

Vous devriez essayer de casser les messages des flics.

Votre code doit être dans la même langue que le message Cop et avoir une distance Levenshtein exactement égale à la distance donnée par le flic. Votre code ne peut pas être plus long que la solution d'origine (mais il peut être de la même taille).

Vous pouvez vérifier la distance de Levenshtein ici!

Le vainqueur sera le voleur qui a le plus craqué les posts.

number sequence cops-and-robbers

— Stewie Griffin
source

Attendez ... donc si le résultat du voleur ne doit pas être le même que le programme prévu d'origine ... Le flic ne peut-il pas simplement écrire un programme et faire une distance ...?

— Magic Octopus Urn

Eh bien, les flics doivent fournir le code alternatif afin de marquer la soumission comme sûre et d'être éligible pour la victoire. J'ai clarifié dans le post du flic. :)

— Stewie Griffin

Je n'ai jamais essayé un défi de flic et de voleur. Tout cela a été très déroutant pour moi hah!

— Urne de poulpe magique

4

Haskell , Laikoni

((show.(*1).read.reverse.show.(^2)=<<[1..])!!)

Essayez-le en ligne!

Le (*1)était nécessaire pour la vérification de type.

— H.PWiz
source

3

JavaScript, Arnauld

/*ZZ*/m=>[...Array(m+1).keys()].map(eval(atob("eD0+K1suLi4iIit4KnhdLnJldmVyc2VgYC5qb2luYGA="))).join``[m]

— Lynn
source

1

@Arnauld OK, je pense que Array(m+1)cela a été corrigé.

— Lynn

Cela fait. FWIW, j'ai ajouté la solution prévue à mon message.

— Arnauld du

2

cQuents 0 , Stephen

":\r$$

Essayez-le en ligne! Je ne sais pas comment ce code fonctionne, mais il a quand même fonctionné après avoir supprimé le *.

— Laikoni
source

2

Wolfram Language (Mathematica) , Jenny_mathy

(Join@@Table[k@FromDigits@Reverse@(k=IntegerDigits)[i*i],{i,10^4}])[[#]]&

Essayez-le en ligne!

Version alternative également à distance 43:

(Join@@IntegerDigits@IntegerReverse[Range@#^2])[[1#]]&

Essayez-le en ligne!

— Misha Lavrov
source

2

6502 Code machine (C64), Felix Palmen

J'ai testé cela avec toutes les questions des cas de test et quelques extras (comme 2 ^ 15 ... qui ont pris un certain temps), et cela semble fonctionner de la même manière que l'original avec LD = 1.

00 C0 20 FD AE A0 00 99 5B 00 C8 20 73 00 90 F7 99 5B 00 A2 0B CA 88 30 09 B9
5B 00 29 0F 95 5B 10 F3 A9 00 95 5B CA 10 F9 A9 01 A0 03 99 69 00 88 10 FA A0
20 A2 76 18 B5 E6 90 02 09 10 4A 95 E6 E8 10 F4 A2 03 76 69 CA 10 FB 88 F0 11
A2 09 B5 5C C9 08 30 04 E9 03 95 5C CA 10 F3 30 D6 A2 03 B5 69 95 57 CA 10 F9
A9 01 85 FB A2 03 A9 00 95 FB CA D0 FB A2 03 B5 FB 95 22 95 26 CA 10 F7 A9 00
A2 03 95 69 CA 10 FB A0 20 A2 02 46 25 76 22 CA 10 FB 90 0C A2 7C 18 B5 AA 75
ED 95 ED E8 10 F7 A2 7D 06 26 36 AA E8 10 FB 88 10 DD A0 0B A9 00 99 5A 00 88
D0 FA A0 20 A2 09 B5 5C C9 05 30 04 69 02 95 5C CA 10 F3 06 69 A2 FD 36 6D E8
D0 FB A2 09 B5 5C 2A C9 10 29 0F 95 5C CA 10 F4 88 D0 D7 E0 0A F0 05 E8 B5 5B
F0 F7 09 30 99 5B 00 C8 E8 E0 0B F0 04 B5 5B 90 F1 88 B9 5B 00 C9 30 F0 F8 A2
7C 18 B5 DB E9 00 95 DB E8 10 F7 90 14 88 30 05 B9 5B 00 D0 EA A2 7C F6 7F D0
03 E8 10 F9 4C 73 C0 B9 5B 00 4C D2 FF

Démonstration en ligne , utilisation: sys49152, n où n est l'entrée indexée 0.

— Jo.
source

C'est correct car vous avez trouvé un code totalement inutile dont je n'étais pas au courant et le changement est dans ce code: o

— Felix Palmen

1

Lua , Katenkyo

i=1s=""while(#s<...+0)do s=s..((i*i)..""):reverse():gsub("(0+)(%d+)$","%2")i=i+1 end
print(s:sub(...,...))

Essayez-le en ligne!

Je ne connais pas Lua, mais c'était simple, je viens de remplacer un espace par une nouvelle ligne.

— Erik le Outgolfer
source

Hum, je n'y ai pas pensé, l'original était sur le remplacement (0+)(%d+)$par (0+)(%d+), donc c'était sur l'expression

— régulière

1

Python 3 , HyperNeutrino

lambda o:"".join(str(p*p+2*p+1)[::~0].lstrip("0")for p in range(o+1))[o]

Essayez-le en ligne!

— M. Xcoder
source

Ninja'd en 9 sec: P

— Uriel

hein intéressant, ce n'était pas celui que j'avais mais sympa :)

— HyperNeutrino

Vous pouvez également faire ''au lieu de""

— Uriel

@Uriel Ouais, je connais une tonne d'alternatives.

— M. Xcoder

Une fissure alternative serait lambda i:"".join(str( (-~k)**2)[::-1]for k in range(i+1))[i].

— Erik the Outgolfer

1

Python 2 , dylnan

d=lambda y:y if y%10>0 else d(y/10)
lambda n:''.join([str(d(x*x))[::-1]for x in range(1,n+1)])[n-1]#fix

Essayez-le en ligne!

Remarque: cette soumission de flic était buggée et ne fonctionnait pas pour les entrées inférieures à 5. Pendant que j'y étais, j'ai construit cette solution qui a la bonne distance de Levenshtein ET corrige le bug.

— Leo
source

1

Perl 5, (-p) Xcali

Mis à jour après commentaire, Levenshtein Distance entre

a$j.=int reverse$_**2for 1..$_;$_--;say$j=~s/.{$_}(.).*/$1/r

et

p$_=substr w.(join"",map{whyddwzz;0|reverse$_**2}1..$_),$_,1

a 55 ans

Essayez-le en ligne

— Nahuel Fouilleul
source

Étant donné que M5.010 est "gratuit", je ne pense pas que cela devrait compter ici. Je ne sais pas vraiment comment compter les drapeaux -aversus -p. Les deux solutions que j'ai trouvées utilisent toutes les deux les mêmes indicateurs. Je pense que le drapeau serait simplement cloué sur le devant sans espace, mais je suis prêt à être influencé par d'autres sur ce point.

— Xcali

a mis à jour ma réponse

— Nahuel Fouilleul

1

Java 8, Kevin Cruijssen

/*!FooBarFooBarFoo!*/N->{String R="",T=R;for(int I=1,J;N+2>R.length();I++){for(T="",J=(I*I+"").length();0<J;T+=(I*I+"").charAt(--J));R+=new Long(T)+"";}return R.charAt(N);}

Essayez-le en ligne!

Journal des modifications

Remplacé .replaceAll()parnew Long() .
Suppression du test des carrés parfaits. Maintenant, utilisez directement des carrés parfaits.
Mise à jour de tous les noms de variables en majuscules.
Réécrit les inégalités.
Et enfin ajouté un commentaire de tête de 21 octets pour atteindre le LD correct.

— Arnauld
source

1

Oh sympa. C'est complètement différent de ce que j'avais en tête, mais c'est bien que vous ayez quand même atteint 92 LD. La solution que j'avais en tête était: n->{String r="";for(int i=1;r.length()<=n+1;r+=new Long(new StringBuffer(i*i+++"").reverse()+""));return r.charAt(n);}( 118 octets, 92 LD par rapport à mon autre réponse.)

— Kevin Cruijssen

1

Octave , Stewie Griffin

@(n)regexprep(fliplr(num2str((1:n)'.^2))'(:)',' +0*','')(n)%abcdefghijk

Essayez-le en ligne!

J'essayais en fait ma propre réponse Octave et j'ai repéré la réponse existante. Le mien était déjà beaucoup plus court, donc l'ajout d'un commentaire à la fin était suffisant pour atteindre la distance requise de 63.

— Tom Carpenter
source

Bravo :-) J'ai eu une boucle avec input()tout ce qui va avec ...

— Stewie Griffin

1

PHP, Jo.

<?for($j++;strlen($p)<$argv[1];$j++)$p.=(int)strrev($j**2);echo($p[$argv[1]+2-3]);

Essayez-le en ligne!

(Je prévoyais de changer l'inégalité afin d'obtenir une LD encore plus grande ...)

— Colera Su
source

0

6502 Code machine (C64), Felix Palmen

Peut aussi être une fissure "simple", mais elle semble fonctionner comme l'original.
Avoir le LD = 1 est tellement tentant d'essayer de le casser (désolé, Felix). :)

00 C0 20 FD AE A0 00 99 5B 00 C8 20 73 00 90 F7 99 5B 00 A2 0B CA 98 88 30 09
B9 5B 00 29 0F 95 5B 10 F2 95 5B CA 10 FB A0 20 A2 76 18 B5 E6 90 02 09 10 4A
95 E6 E8 10 F4 A2 03 76 69 CA 10 FB 88 F0 11 A2 09 B5 5C C9 08 30 04 EB 03 95
5C CA 10 F3 30 D6 A2 03 B5 69 95 57 CA 10 F9 A9 01 85 FB A2 03 A9 00 95 FB CA
D0 FB A2 03 B5 FB 95 22 95 26 CA 10 F7 A9 00 A2 03 95 69 CA 10 FB A0 20 A2 02
46 25 76 22 CA 10 FB 90 0C A2 7C 18 B5 AA 75 ED 95 ED E8 10 F7 A2 7D 06 26 36
AA E8 10 FB 88 10 DD A2 0B A9 00 95 5A CA D0 FB A0 20 A2 09 B5 5C C9 05 30 04
69 02 95 5C CA 10 F3 06 69 A2 FD 36 6D E8 D0 FB A2 09 B5 5C 2A C9 10 29 0F 95
5C CA 10 F4 88 D0 D7 E8 B5 5B F0 FB 09 30 99 5B 00 C8 E8 E0 0B F0 04 B5 5B 90
F1 88 B9 5B 00 C9 30 F0 F8 A2 7C 18 B5 DB E9 00 95 DB E8 10 F7 90 14 88 30 05
B9 5B 00 D0 EA A2 7C F6 7F D0 03 E8 10 F9 4C 68 C0 B9 5B 00 4C D2 FF

Démonstration en ligne , utilisation: sys49152, n où n est l'entrée indexée 0.

— Jo.
source

Je ne sais pas si je dois l'accepter. Il remplace E9(une commande de soustraction) par EBlequel n'est pas défini dans le code machine 6502, mais arrive à faire de même sur les puces NMOS 6502 et 6510. Ce programme pourrait par exemple planter sur le C64 DTV1. Mais il est peu probable de trouver un vrai C64 qui ne l'exécute pas correctement, donc il pourrait être considéré comme un crack valide? Je pourrais demander des avis sur la méta ....

— Felix Palmen

Je serais intéressé à entrer ici sur la méta .

— Felix Palmen

@FelixPalmen Je vais bientôt retirer cette réponse.

— Jo.

gardez-le, voir aussi mon commentaire sur meta. La communauté a clairement exprimé son opinion. C'est ma faute de ne pas exiger uniquement du code 6502 documenté, et je garderai cela à l'esprit pour l'avenir.

— Felix Palmen

Levenshtein distance & OEIS (Voleurs)

Cas de test (1 indexé):

Voleurs:

Haskell , Laikoni

JavaScript, Arnauld

cQuents 0 , Stephen

Wolfram Language (Mathematica) , Jenny_mathy

6502 Code machine (C64), Felix Palmen

Lua , Katenkyo

Python 3 , HyperNeutrino

Python 2 , dylnan

Perl 5, (-p) Xcali

Java 8, Kevin Cruijssen

Journal des modifications

Octave , Stewie Griffin

PHP, Jo.

6502 Code machine (C64), Felix Palmen