16

Este é o posto do policial. O post do ladrão está aqui .

Sua tarefa é pegar uma entrada inteira N e gerar o enésimo dígito na sequência OEIS A002942 .

A sequência consiste nos números quadrados escritos ao contrário:

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

Observe que os zeros à esquerda são cortados ( 100 se torna 1 , não 001 ). Concatenar isso em uma string (ou um número longo fornece):

1496152639446181121441

Você deve emitir o enésimo dígito nesta sequência / número. Você pode escolher N como indexado 0 ou 1 (indique qual você escolher).

Casos de teste (indexados 1):

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

Seu código deve funcionar para números de até N = 2 ^ 15 (a menos que seu idioma não possa manipular números inteiros de 32 bits por padrão, nesse caso, N pode ser menor).

Policiais:

Você deve escrever duas funções / programas, no mesmo idioma, que fazem a mesma coisa. Você deve postar uma das funções / programas, bem como a distância de Levenshtein entre as duas funções / programas que você escreveu. A distância de Levenshtein é medida em caracteres (portanto, a adição de um caractere de dois bytes fornecerá um LD = 1).

O código não revelado não pode ser maior que a solução original (mas pode ter o mesmo tamanho). Os ladrões tentarão escrever um código com a distância exata de Levenshtein que você deu (pode ser diferente do código não revelado, desde que funcione).

O vencedor será a finalização sem rachaduras que tiver a menor distância de Levenshtein.

Você pode verificar a distância de Levenshtein aqui!

Se o seu envio ficar sem crack por 7 dias, você poderá revelar o código alternativo que você escreveu e marcar seu envio como seguro.

number sequence cops-and-robbers

— Stewie Griffin
fonte

Sim, vou adicionar isso às regras. :)

— Stewie Griffin

Você fala sobre scripts, mas presumo que esse seja o programa ou função padrão ?

— 21717 Kevin Murrijssen #

Sim, tudo padrão :)

— Stewie Griffin

Como você está lidando com comentários e espaço em branco, vejo algumas coisas estranhas.

— Magic Octopus Urn

1

"Seu código deve funcionar para números de até N = 2 ^ 15" -> mas um dos casos de teste é maior que isso. O caso 274164 é necessário?

— Tom Carpenter

6

Haskell , LD = 13, rachado

((snd.span(<'1').reverse.show.(^2)=<<[1..])!!)

Experimente online!

Verifiquei duas vezes se os zeros à esquerda são aparados;)

Explicação:

                    [1..]     -- for each element in [1,2,3,4,5,...]
                 =<<          -- apply the following functions 
             (^2)             -- square [1,4,9,16,25,...]
           show.              -- convert to string ["1","4","9","16","25",...]
       reverse.               -- reverse ["1","4","9","61","52",...,"001",...]
   span(<'1').                -- split into leading zeros and remainder [("","1"),("","4"),...,("00","1"),...]
  snd.                        -- only keep remainder ["1","4","9","61","52",...,"1",...]
                              -- and concatenate the result "1496152..."
((                       )!!) -- index into the sequence

— Laikoni
fonte

2

Rachado !

— H.PWiz

3

cQuents 0 , LD = 1, Rachado

":\r$*$

Experimente online!

Eu pensei que isso não funcionava para zeros à esquerda, mas na verdade funciona - a função reversa no cQuents é codificada como int(reversed(str(n))).

Explicação

"         Concatenate sequence together, get nth term in the string instead of the sequence
 :        Mode: Sequence: given input n, output the nth term, 1-indexed
          Each term in the sequences equals:
  \r      reverse(
    $*$           the index * the index
                  or
    $$            the index * the index
                   ) (implicit)

— Stephen
fonte

rachado?

— Laikoni

@Laikoni sim, o cQuents faz multiplicação implícita, como o Mathematica, mas você não precisa de espaços. Adicionando uma explicação.

— Stephen

3

JavaScript (ES6), LD = 103 ( quebrado )

Usar uma distância tão alta de Levenshtein provavelmente não é a melhor estratégia, mas vamos tentar de qualquer maneira.

n => { for(i = 0, str = ''; i <= n; i++) { str += +[...i * i + ''].reverse().join(''); } return str[n]; }

Casos de teste

Mostrar snippet de código

let f =

n => { for(i = 0, str = ''; i <= n; i++) { str += +[...i * i + ''].reverse().join(''); } return str[n]; }

console.log(f(5))      // 1
console.log(f(17))     // 1
console.log(f(20))     // 4
console.log(f(78))     // 0
console.log(f(100))    // 4
console.log(f(274164)) // 1

Expandir snippet

Solução pretendida

$=>eval(atob`Wy4uLkFycmF5KCQrMSldLm1hcCgoXyxpKT0+K1suLi5pKmkrJyddLnJldmVyc2UoKS5qb2luYGApLmpvaW5gYFskXQ`)

Parte codificada:

[...Array($+1)].map((_,i)=>+[...i*i+''].reverse().join``).join``[$]

— Arnauld
fonte

Essa faixa leva 0s após a reversão?

— Erik the Outgolfer

@EriktheOutgolfer Yes. O unário +garante que a sequência invertida seja coagida a um número.

— Arnauld

1

Ohhhh ... uau, isso é mais difícil do que eu pensava.

— Magic Octopus Urn

Rachado !

— Lynn

3

Python 2, 104 bytes, LD = 21 inválido E rachado

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

~~PS É permitida uma quantidade ilimitada de espaços em branco e comentários? Nesse caso, não será difícil de quebrar.~~

— dylnan
fonte

1

"O código não revelado não pode ser maior que a solução original."

— Khuldraeseth na'Barya 2/11

@ Scrooble Eu vi isso, mas acho que não será difícil criar um programa muito mais curto que esse. Já foi feito em python 3 em outra resposta e funciona em python 2 para tudo que eles precisam para adicionar é um monte de \ns (cerca de 50)

— dylnan

50 novas linhas não excederiam a distância de Levenshtein de 21?

— Khuldraeseth na'Barya 2/11

@ Scrooble Você está muito certo, fiquei confuso e estava pensando no problema incorretamente. Graças

— dylnan

1

Isso parece erro nas entradas menores que 5

— Leo

3

6502 código de máquina (C64), LD = 1 ( rachado )

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 00 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

Demonstração online , uso:sys49152,nondenestá a entrada indexada em 0.

Para o último caso de teste, você precisa de um pouco de paciência, pois essa má máquina precisa fazer milhões de mudanças de bits e adições para apresentar o resultado;)

A linguagem aqui é o código da máquina, então o LD é medido neste formato - no entanto, para dar algo para começar, aqui está o programa na ca65fonte do assembler:

NUMSIZE         = 4     ; 32 bit integers ...
NUMSTRSIZE      = 11    ; need up to 11 characters for 0-terminated string

.segment "ZPUSR": zeropage
v_x:            .res    NUMSIZE         ; next number to be squared

.segment "ZPFAC": zeropage
v_n:            .res    NUMSIZE         ; input index (0-based), counts down
nc_string:      .res    NUMSTRSIZE      ; string buffer for numbers

.segment "ZPTMP": zeropage
mpm_arg1:       .res    NUMSIZE         ; arg1 for multiplication
mpm_arg2:       .res    NUMSIZE         ; arg2 for multiplication

.segment "ZPFAC2": zeropage
mpm_res:        .res    NUMSIZE         ; numeric result (mult and str convert)

; load address for creating a C64 .PRG file:

.segment "LDADDR"
                .word   $c000

.code

; first read number from command argument and convert to unsigned
; integer in little-endian:

                jsr     $aefd
                ldy     #$00
rn_loop:        sta     nc_string,y
                iny
                jsr     $73
                bcc     rn_loop
                sta     nc_string,y
                ldx     #NUMSTRSIZE
stn_copybcd:    dex
                dey
                bmi     stn_fillzero
                lda     nc_string,y
                and     #$f
                sta     nc_string,x
                bpl     stn_copybcd
stn_fillzero:   lda     #$0
                sta     nc_string,x
                dex
                bpl     stn_fillzero
                lda     #$0
                ldy     #(NUMSIZE-1)
stn_znumloop:   sta     mpm_res,y
                dey
                bpl     stn_znumloop
                ldy     #(NUMSIZE*8)
stn_loop:       ldx     #($81-NUMSTRSIZE)
                clc
stn_rorloop:    lda     nc_string+NUMSTRSIZE+$80,x
                bcc     stn_skipbit
                ora     #$10
stn_skipbit:    lsr     a
                sta     nc_string+NUMSTRSIZE+$80,x
                inx
                bpl     stn_rorloop
                ldx     #(NUMSIZE-1)
stn_ror:        ror     mpm_res,x
                dex
                bpl     stn_ror
                dey
                beq     main
stn_sub:        ldx     #(NUMSTRSIZE-2)
stn_subloop:    lda     nc_string+1,x
                cmp     #$8
                bmi     stn_nosub
                sbc     #$3
                sta     nc_string+1,x
stn_nosub:      dex
                bpl     stn_subloop
                bmi     stn_loop

main:
                ldx     #(NUMSIZE-1)
argloop:        lda     mpm_res,x
                sta     v_n,x
                dex
                bpl     argloop
                lda     #$01
                sta     v_x
                ldx     #(NUMSIZE-1)
                lda     #$00
initxloop:      sta     v_x,x
                dex
                bne     initxloop

mainloop:

; prepare arguments for multiplication:

                ldx     #(NUMSIZE-1)
sqrargloop:     lda     v_x,x
                sta     mpm_arg1,x
                sta     mpm_arg2,x
                dex
                bpl     sqrargloop

; do multiplication:

                lda     #$00
                ldx     #(NUMSIZE-1)
mul_clearloop:  sta     mpm_res,x
                dex
                bpl     mul_clearloop
                ldy     #(NUMSIZE*8)
mul_loop:       ldx     #(NUMSIZE-2)
                lsr     mpm_arg1+NUMSIZE-1
mul_rorloop:    ror     mpm_arg1,x
                dex
                bpl     mul_rorloop
                bcc     mul_noadd
                ldx     #($80-NUMSIZE)
                clc
mul_addloop:    lda     mpm_arg2+NUMSIZE+$80,x
                adc     mpm_res+NUMSIZE+$80,x
                sta     mpm_res+NUMSIZE+$80,x
                inx
                bpl     mul_addloop
mul_noadd:      ldx     #($81-NUMSIZE)
                asl     mpm_arg2
mul_rolloop:    rol     mpm_arg2+NUMSIZE+$80,x
                inx
                bpl     mul_rolloop
                dey
                bpl     mul_loop

; convert result to string:

                ldy     #NUMSTRSIZE
                lda     #$0
nts_fillzero:   sta     nc_string-1,y
                dey
                bne     nts_fillzero
                ldy     #(NUMSIZE*8)
nts_bcdloop:    ldx     #(NUMSTRSIZE-2)
nts_addloop:    lda     nc_string+1,x
                cmp     #$5
                bmi     nts_noadd
                adc     #$2
                sta     nc_string+1,x
nts_noadd:      dex
                bpl     nts_addloop
                asl     mpm_res
                ldx     #($ff-NUMSIZE+2)
nts_rol:        rol     mpm_res+NUMSIZE,x       ; + $100 w/o zp wraparound
                inx
                bne     nts_rol
                ldx     #(NUMSTRSIZE-2)
nts_rolloop:    lda     nc_string+1,x
                rol     a
                cmp     #$10
                and     #$f
                sta     nc_string+1,x
nts_rolnext:    dex
                bpl     nts_rolloop
                dey
                bne     nts_bcdloop
nts_scan:       cpx     #(NUMSTRSIZE-1)
                beq     nts_copydigits
                inx
                lda     nc_string,x
                beq     nts_scan
nts_copydigits: ora     #$30
                sta     nc_string,y
                iny
                inx
                cpx     #(NUMSTRSIZE)
                beq     strip0loop
                lda     nc_string,x
                bcc     nts_copydigits

; search for first non-0 character from the end of the string:

strip0loop:     dey
                lda     nc_string,y
                cmp     #$30
                beq     strip0loop

; decrement n for each digit:

founddigit:
                ldx     #($80-NUMSIZE)
                clc
decnloop:       lda     v_n+NUMSIZE+$80,x
                sbc     #$00
                sta     v_n+NUMSIZE+$80,x
                inx
                bpl     decnloop
                bcc     foundresult

                dey
                bmi     next_x
                lda     nc_string,y
                bne     founddigit

; increment x to calculate next square number:

next_x:
                ldx     #($80-NUMSIZE)
incxloop:       inc     v_x+NUMSIZE-$80,x
                bne     incxdone
                inx
                bpl     incxloop
incxdone:       jmp     mainloop

foundresult:    lda     nc_string,y
                jmp     $ffd2

... e aqui está o script do vinculador para ld65:

MEMORY {
  LDADDR: start = $bffe, size = 2;
  CODE: start = $c000, size = $1000;
  ZPTMP: start = $0022, size = $0008;
  ZPFAC: start = $0057, size = $000f;
  ZPFAC2: start = $0069, size = $0004;
  ZPUSR: start = $00fb, size = $0004;
}

SEGMENTS {
  LDADDR: load = LDADDR;
  CODE: load = CODE;
  ZPTMP: load = ZPTMP, type = zp;
  ZPFAC: load = ZPFAC, type = zp;
  ZPFAC2: load = ZPFAC2, type = zp;
  ZPUSR: load = ZPUSR, type = zp;
}

— Felix Palmen
fonte

rachado (eu acredito)

— Jo.

@Jo. sim, editado.

— Felix Palmen #

2

Perl 5 , 59 + 1 ( `-a`) = 60 bytes, LD = 55

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

Experimente online!

— Xcali
fonte

talvez rachado, eu não tenho certeza da minha entrada codegolf.stackexchange.com/questions/146927/...

— Nahuel FOUILLEUL

2

Java 8, (177 bytes) LD = 92 ( Rachado por @Arnauld )

( Eu usei esta calculadora LD online ) .

n->{String r="",t=r;for(int i=1,j;r.length()<=n+1;i++)if(Math.sqrt(i)%1==0){for(t="",j=(i+"").length();j>0;t+=(i+"").charAt(--j));r+=t.replaceAll("^0+","");}return r.charAt(n);}

Provavelmente não é tão difícil se você simplesmente jogar isso. :)

Explicação:

Experimente aqui.

n->{                             // Method with integer parameter and character return-type
  String r="",                   //  Result-String, starting empty
         t=r;                    //  Temp-String, starting empty
  for(int i=1,j;                 //  Index-integers
      r.length()<=n+1;i++)       //  Loop (1) as long as the length is at least n+1
    if(Math.sqrt(i)%1==0){       //   If the current number `i` is a perfect square:
      for(t="",                  //    Reset the temp-String to empty
          j=(i+"").length();     //    Set `j` to the length of the current number
          j>0;                   //    Inner loop (2) as long as `j` is larger than 0
        t+=                      //     Append the temp-String with:
           (i+"").charAt(--j)    //     The digit of integer `i` at index `j-1`
                                 //     (by first decrease `j` with 1 with `--j`)
      );                         //    End of inner loop (2)
      r+=t                       //    And then append the temp-String to the result-String
          .replaceAll("^0+","");}//    after we've removed any leading zeroes
                                 //  End of loop (1) (implicit / single-line body)
  return r.charAt(n);            //  Return the `n`'th character of the result-String
}                                // End of method

— Kevin Cruijssen
fonte

1

Cracked

— Arnauld

Solução pretendida: n->{String r="";for(int i=1;r.length()<=n+1;r+=new Long(new StringBuffer(i*i+++"").reverse()+""));return r.charAt(n);}( 118 bytes, 92 LD )

— Kevin Cruijssen 4/11

2

Oitava , LD = 63, Rachado

@(t)[arrayfun(@(t)num2str(str2num(flip(num2str(t)))),(1:t).^2,'uni',0){:}](t)

Experimente online!

O envio é de 77 bytes, então você precisa substituir um pouco =)

— Stewie Griffin
fonte

rachado .

— Tom Carpenter

2

Código 6502 da máquina (C64), LD = 1, seguro

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 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 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

Demonstração online , uso:sys49152,nondenestá a entrada indexada em 0.

Solução pretendida: (diff)

 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 E9 03 95
+95 E6 E8 10 F4 A2 03 76 69 CA 10 FB 88 F0 11 A2 09 B5 5C C9 08 90 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

O 30(código de operação bmi) é substituído por 90(código de operação bcc). Isso corresponde à seguinte parte na fonte do assembler:

stn_subloop:    lda     nc_string+1,x
                cmp     #$8
                bmi     stn_nosub       ; use bcc here for same result
                sbc     #$3
                sta     nc_string+1,x

Funciona porque esse código verifica se um número é menor que 8. O cmp instrução executa uma subtração para isso, configurando os sinalizadores de acordo. Portanto, se o acumulador mantiver um número menor que 8, isso ocorrerá, limpando o sinalizador de transporte, portanto a instrução de ramificação correta será de fato bcc. bmi(ramificando quando negativo), como no código original, também funciona aqui, porque os números comparados são pequenos o suficiente, então o resultado da subtração termina no intervalo negativo ( $80-$ff) quando ocorre um subfluxo.

Demonstração online

Esta é uma versão aprimorada / compactada do meu envio anterior . Entre outros truques para reduzir o tamanho, ele remove o código inútil que estava contido e permitiu uma espécie de crack "simples" *). Em suma, o tamanho é reduzido em 16 bytes. Desta vez, deve ser um pouco mais difícil encontrar o programa equivalente com o LD 1 :)

^{*) provavelmente ainda há muito trabalho a encontrar, é claro :)}

Novamente, aqui está a ca65fonte do assembler, para ajudar a começar o código:

NUMSIZE         = 4     ; 32 bit integers ...
NUMSTRSIZE      = 11    ; need up to 11 characters for 0-terminated string

.segment "ZPUSR": zeropage
v_x:            .res    NUMSIZE         ; next number to be squared

.segment "ZPFAC": zeropage
v_n:            .res    NUMSIZE         ; input index (0-based), counts down
nc_string:      .res    NUMSTRSIZE      ; string buffer for numbers

.segment "ZPTMP": zeropage
mpm_arg1:       .res    NUMSIZE         ; arg1 for multiplication
mpm_arg2:       .res    NUMSIZE         ; arg2 for multiplication

.segment "ZPFAC2": zeropage
mpm_res:        .res    NUMSIZE         ; numeric result (mult and str convert)

; load address for creating a C64 .PRG file:

.segment "LDADDR"
                .word   $c000

.code

; first read number from command argument and convert to unsigned
; integer in little-endian:

                jsr     $aefd
                ldy     #$00
rn_loop:        sta     nc_string,y
                iny
                jsr     $73
                bcc     rn_loop
                sta     nc_string,y
                ldx     #NUMSTRSIZE
stn_copybcd:    dex
                tya
                dey
                bmi     stn_fillzero
                lda     nc_string,y
                and     #$f
                sta     nc_string,x
                bpl     stn_copybcd
stn_fillzero:   sta     nc_string,x
                dex
                bpl     stn_fillzero
                ldy     #(NUMSIZE*8)
stn_loop:       ldx     #($81-NUMSTRSIZE)
                clc
stn_rorloop:    lda     nc_string+NUMSTRSIZE+$80,x
                bcc     stn_skipbit
                ora     #$10
stn_skipbit:    lsr     a
                sta     nc_string+NUMSTRSIZE+$80,x
                inx
                bpl     stn_rorloop
                ldx     #(NUMSIZE-1)
stn_ror:        ror     mpm_res,x
                dex
                bpl     stn_ror
                dey
                beq     main
stn_sub:        ldx     #(NUMSTRSIZE-2)
stn_subloop:    lda     nc_string+1,x
                cmp     #$8
                bmi     stn_nosub
                sbc     #$3
                sta     nc_string+1,x
stn_nosub:      dex
                bpl     stn_subloop
                bmi     stn_loop

main:
                ldx     #(NUMSIZE-1)
argloop:        lda     mpm_res,x
                sta     v_n,x
                dex
                bpl     argloop
                lda     #$01
                sta     v_x
                ldx     #(NUMSIZE-1)
                lda     #$00
initxloop:      sta     v_x,x
                dex
                bne     initxloop

mainloop:

; prepare arguments for multiplication:

                ldx     #(NUMSIZE-1)
sqrargloop:     lda     v_x,x
                sta     mpm_arg1,x
                sta     mpm_arg2,x
                dex
                bpl     sqrargloop

; do multiplication:

                lda     #$00
                ldx     #(NUMSIZE-1)
mul_clearloop:  sta     mpm_res,x
                dex
                bpl     mul_clearloop
                ldy     #(NUMSIZE*8)
mul_loop:       ldx     #(NUMSIZE-2)
                lsr     mpm_arg1+NUMSIZE-1
mul_rorloop:    ror     mpm_arg1,x
                dex
                bpl     mul_rorloop
                bcc     mul_noadd
                ldx     #($80-NUMSIZE)
                clc
mul_addloop:    lda     mpm_arg2+NUMSIZE+$80,x
                adc     mpm_res+NUMSIZE+$80,x
                sta     mpm_res+NUMSIZE+$80,x
                inx
                bpl     mul_addloop
mul_noadd:      ldx     #($81-NUMSIZE)
                asl     mpm_arg2
mul_rolloop:    rol     mpm_arg2+NUMSIZE+$80,x
                inx
                bpl     mul_rolloop
                dey
                bpl     mul_loop

; convert result to string:

                ldx     #NUMSTRSIZE
                lda     #$0
nts_fillzero:   sta     nc_string-1,x
                dex
                bne     nts_fillzero
                ldy     #(NUMSIZE*8)
nts_bcdloop:    ldx     #(NUMSTRSIZE-2)
nts_addloop:    lda     nc_string+1,x
                cmp     #$5
                bmi     nts_noadd
                adc     #$2
                sta     nc_string+1,x
nts_noadd:      dex
                bpl     nts_addloop
                asl     mpm_res
                ldx     #($ff-NUMSIZE+2)
nts_rol:        rol     mpm_res+NUMSIZE,x       ; + $100 w/o zp wraparound
                inx
                bne     nts_rol
                ldx     #(NUMSTRSIZE-2)
nts_rolloop:    lda     nc_string+1,x
                rol     a
                cmp     #$10
                and     #$f
                sta     nc_string+1,x
nts_rolnext:    dex
                bpl     nts_rolloop
                dey
                bne     nts_bcdloop
nts_scan:       inx
                lda     nc_string,x
                beq     nts_scan
nts_copydigits: ora     #$30
                sta     nc_string,y
                iny
                inx
                cpx     #(NUMSTRSIZE)
                beq     strip0loop
                lda     nc_string,x
                bcc     nts_copydigits

; search for first non-0 character from the end of the string:

strip0loop:     dey
                lda     nc_string,y
                cmp     #$30
                beq     strip0loop

; decrement n for each digit:

founddigit:
                ldx     #($80-NUMSIZE)
                clc
decnloop:       lda     v_n+NUMSIZE+$80,x
                sbc     #$00
                sta     v_n+NUMSIZE+$80,x
                inx
                bpl     decnloop
                bcc     foundresult

                dey
                bmi     next_x
                lda     nc_string,y
                bne     founddigit

; increment x to calculate next square number:

next_x:
                ldx     #($80-NUMSIZE)
incxloop:       inc     v_x+NUMSIZE-$80,x
                bne     incxdone
                inx
                bpl     incxloop
incxdone:       jmp     mainloop

foundresult:    lda     nc_string,y
                jmp     $ffd2

... e aqui está o script do vinculador para ld65:

MEMORY {
  LDADDR: start = $bffe, size = 2;
  CODE: start = $c000, size = $1000;
  ZPTMP: start = $0022, size = $0008;
  ZPFAC: start = $0057, size = $000f;
  ZPFAC2: start = $0069, size = $0004;
  ZPUSR: start = $00fb, size = $0004;
}

SEGMENTS {
  LDADDR: load = LDADDR;
  CODE: load = CODE;
  ZPTMP: load = ZPTMP, type = zp;
  ZPFAC: load = ZPFAC, type = zp;
  ZPFAC2: load = ZPFAC2, type = zp;
  ZPUSR: load = ZPUSR, type = zp;
}

— Felix Palmen
fonte

Considere isso sem rachar :)

— Jo.

@Jo. bem, se você insiste - muito obrigado, eu editei.

— Felix Palmen

1

Lua: LD = 1, rachado

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

Não há truques sofisticados aqui :)

— Katenkyo
fonte

rachado

— Erik o Outgolfer

1

Mathematica, LD = 43 trincado

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

Experimente online!

— J42161217
fonte

Rachado .

— Misha Lavrov #

1

PHP, LD = 35 ( Rachado )

Indexado 1

<?while(strlen($s)<$argv[1])$s.=(int)strrev(++$i*$i);echo substr($s,$argv[1]-1,1);

Experimente online!

— Jo.
fonte

0

Python 3: LD = 9 | Rachado

lambda i:"".join(str(k*k+2*k+1)[::-1].lstrip("0")for k in range(i+1))[i]

Este deve ser bastante (muito) fácil de obter: P

— HyperNeutrino
fonte

Rachado .

— Mr. Xcoder

1

Excluí meu Crack porque a resposta original é inválida.

— Xcoder

@ Mr.Xcoder Você pode cancelar a exclusão agora; LD é o mesmo porque a .lstrip("0")peça pode ser copiada.

— HyperNeutrino

Concluído

— Mr. Xcoder

0

C ++, LD = 159

0 indexado, entrada argv[1], compilado no GCC 7.2.0

#import<bits/stdc++.h>
char*h,b[1<<17],*q=b;int x,y;main(int,char**j){sscanf(j[1],"%d",&y);do{x++;q+=sprintf(h=q,"%d",x*x);while(*--q==48);std::reverse(h,++q);}while(q-b<=y);b[y+1]=0,printf(b+y);}

— Colera Su
fonte

0

Groovy , 61 bytes (LD = 23)

{(1..it).collect{0.valueOf("${it**2}".reverse())}.join()[it]}

Experimente online!

— Urna de polvo mágico
fonte

Como isso é seguro> _> ...

— Magic Octopus Urn

Distância Levenshtein e OEIS (Policiais)

Casos de teste (indexados 1):

Policiais:

Haskell , LD = 13, rachado

cQuents 0 , LD = 1, Rachado

Explicação

JavaScript (ES6), LD = 103 ( quebrado )

Casos de teste

Solução pretendida

Python 2, 104 bytes, LD = 21 inválido E rachado

6502 código de máquina (C64), LD = 1 ( rachado )

Perl 5 , 59 + 1 ( -a) = 60 bytes, LD = 55

Java 8, (177 bytes) LD = 92 ( Rachado por @Arnauld )

Oitava , LD = 63, Rachado

Código 6502 da máquina (C64), LD = 1, seguro

Lua: LD = 1, rachado

Mathematica, LD = 43 trincado

PHP, LD = 35 ( Rachado )

Python 3: LD = 9 | Rachado

C ++, LD = 159

Groovy , 61 bytes (LD = 23)

Perl 5 , 59 + 1 ( `-a`) = 60 bytes, LD = 55