Código de algoritmo 196 golfe


35

Escreva um programa curto para o algoritmo 196 . O algoritmo inicia a partir de um número inteiro e adiciona seu reverso até que um palíndromo seja atingido.

por exemplo

input = 5280
5280 + 0825 = 6105
6105 + 5016 = 11121
11121 + 12111 = 23232
output = 23232

Entrada

um número inteiro, que não é um número lyrchrel (ou seja, acaba produzindo um palíndromo sob esse algoritmo, em vez de continuar infinitamente)

Saída

o palíndromo chegou.


6
Porque sua pergunta é provavelmente a única que envolve o algoritmo 196. Criar tags de uso único não é útil.
Chris Jester-Young

2
O que eu quis dizer foi, sua pergunta é susceptível de ser o único que nunca envolver este tema, mesmo em tempo de 2 anos. :-)
Chris Jester-Young

1
@ Chris: Bem, o algoritmo 196 é bastante popular, com muitos nomes diferentes. Só para ter certeza, no entanto, vou postar uma outra pergunta sobre isso antes que os lapsos de tempo de 2 anos;)
Eelvex

1
@ GigaWatt também, eu errei sua primeira pergunta :) Só não se preocupe com o caso do A023108s.
Eelvex

1
@ Joel, como no A023108, apenas os ignore (aja como se não os conhecesse); não sabemos se existe alguma maneira.
Eelvex 27/05

Respostas:


10

APL (22 caracteres)

{a≡⌽a←⍕(⍎⍵)+⍎⌽⍵:a⋄∇a}⍞

Isso funciona no Dyalog APL. Aqui está uma explicação, da direita para a esquerda:

  • { ... }⍞: Obtenha a entrada do usuário como caracteres ( ) e alimente-a em nossa função ( { ... }).
  • Dentro da função direta ( separa as instruções, então as olhamos da esquerda para a direita):
    • a≡⌽a←⍕(⍎⍵)+⍎⌽⍵ : a: Avalie ( ) o argumento correto ( ) reverse ( ) e adicione-o à versão avaliada do próprio argumento correto. Em seguida, formate o resultado ( ; ou seja, forneça sua representação de caractere), atribua ( ) isso à variável ae finalmente teste se ao inverso é equivalente a a(ou seja, é aum palíndromo?). Se verdadeiro, retorne a; de outra forma...
    • ∇a: Retroalimenta anossa função ( é auto-referência implícita).

Exemplo:

      {a≡⌽a←⍕(⍎⍵)+⍎⌽⍵:a⋄∇a}⍞
412371
585585

2
Ele salva alguns caracteres para usar a entrada numérica. {⍵=A←⍎⌽⍕⍵:⍵⋄∇A+⍵}⎕. Você salva os aparelhos, um reverso e um eval.
Marinus

10

GolfScript, 29 caracteres

~]{{.`.-1%.@={;0}{~+1}if}do}%

Comentário selecionado

A carne do programa é o dolaço, é claro. Então, eu vou cobrir isso.

  1. .` copia o número e o estrita.
  2. .-1% copia essa versão da string e a reverte.
  3. .@ copia a versão invertida e traz a versão não invertida original para a frente.

Assim, por exemplo, o número é 5280. Nesta fase, a pilha é: 5280 "0825" "0825" "5280". O cenário está pronto para a comparação. (Após a comparação, a pilha será deixada, 5280 "0825"independentemente do que --- os itens a serem comparados foram removidos.)

  1. Se a string e o reverso forem os mesmos, não nos importamos com a string invertida, então apenas desative-a ( ;) e retorne 0 (para finalizar o doloop).
  2. Se eles não corresponderem, avalie ( ~) a string invertida (para torná-la um número), adicione ( +) isso ao número original e retorne 1 (para continuar o doloop).

4
Tem certeza de que não pressionou teclas aleatórias no teclado? Parece que ...

1
@ M28: O GolfScript parece ainda mais com o ruído da linha do que com o Perl, não é? ;-)
Chris Jester-Young

Eu sinto muito por você, deve ser doloroso codificar isso

@ M28: Isso não foi tão doloroso quanto a solução que escrevi para o algoritmo Luhn . Apenas pense sobre isso. :-P
Chris Jester-Young

Sua família está preocupada com você

10

Python 2, 55 bytes

Seguindo a sugestão do JPvdMerwe:

n=input()
while`n`!=`n`[::-1]:n+=int(`n`[::-1])
print n

Python 2, 62:

n=raw_input()
while n!=n[::-1]:n=`int(n)+int(n[::-1])`
print n

Hehe ..))))))))
Nakilon

2
Ao olhar para ncomo um int você pode encurtar por 6 caracteres, para verificar o código: meta.codegolf.stackexchange.com/q/75/62
JPvdMerwe

Parece que acidentalmente incluí a nova linha que o vim foi adicionada furtivamente ao final do meu arquivo na minha contagem. A contagem real é 55.
JPvdMerwe

7

Ruby - 56 caracteres

x,r=gets
x="#{x.to_i+r.to_i}"until x==r=x.reverse
puts x

7

Apenas exercitando minhas habilidades de Pyth, não um candidato sério.

Pitão, 16 bytes

L?bqb_by`+vbi_bTyz

Equivalente ao Python 3:

y=lambda b:b if b==b[::-1] else y(str(eval(b)+int(b[::-1],10)))
print y(input())

Apenas tentando alguns desafios antigos, já respondidos, para que não seja um candidato sério.
swstephe

1
Alguns autores do desafio atualizarão a resposta aceita se surgirem soluções mais curtas, por isso acho justo informar o OP, que esse não é tecnicamente um envio válido. (Não me entenda mal, eu também gosto de responder a velhos desafios com CJam - e fiz isso há alguns minutos atrás. Só estou dizendo, se você deixar uma nota, que o idioma é mais novo que o o desafio.)
Martin Ender

Na verdade, "não ser um candidato sério" sujeita a resposta a exclusão - mas não vejo nenhum motivo para que isso não deva ser considerado um candidato sério.
pppery 29/08

6

J 25 27 31

f=:(+g)^:(~:g=.|.&.":)^:_
e.g.
f 5280
23232

6

CJam, 22 21 bytes

O CJam foi criado depois que essa pergunta foi feita, portanto, tecnicamente, é um envio inválido. Mas achei a pergunta interessante, então aqui vai:

r{__W%:X=0{~X~+s1}?}g

Explicação:

r{                 }g    "Read the input number as string and enter a while-do loop";
  __                     "Make 2 copies of the string number";
    W%:X                 "Reverse the second and store it in X";
        =                "Check if the number is already palindrome";
         0{      }?      "Put 0 on stack if it is palindrome, else, run the code block";
           ~             "Convert the string to int";
            X~           "Put the reverse string on stack and convert it to int too";
              +s         "Add the two numbers and covert back the result to string";

A lógica principal é que, em cada iteração while-do, verifique primeiro se o palíndromo foi atingido ou não. Caso contrário, adicione o inverso ao número. Praticamente qual é o algoritmo!

Experimente online aqui


5

Este é um candidato real, já que J existe há décadas.

J (16 bytes)

(+^:~:|.&.":)^:_

Este é um verbo, portanto pode ser atribuído a uma variável em uma sessão J e usado da seguinte forma:

   f =. (+^:~:|.&.":)^:_
   f 5280
23232

Como funciona:

(+^:~:|.&.":)^:_
 +^:~:           add if unequal
      |.&.":     reverse under string format
 +^:~:|.&.":     add reverse unless a palindrome
(           )^:_ repeat until unchanged

4

Python: 66

n=input()
while 1:
 r=int(`n`[::-1])
 if n==r:break
 n+=r
print n



4

JAGL Alpha 1.2 - 19, 21 com stdin

Não contendo , apenas obtendo alguma experiência com meu idioma
Espera um número de stdin

T~d{DddgCi+dgdC=n}uSP

Explicação

T~                       Get a line of input, and eval to an integer
  d                      Duplicate (for first round)
   {Ddd                  Drop last and duplicate twice
       gCi               Convert to string, reverse, and convert back to integer
          +d             Add to original and duplicate
            gdC          Convert to string, duplicate, reverse
               =n}       If it isn't a palindrome, keep going
                  uSP    Run until palindrome reached, then print output number

Editado. @Optimizer
globby

Não edite todos os seus envios de uma só vez para edições menores (como um número de versão), pois isso atrapalha desnecessariamente a primeira página. Tudo bem se você fizer 2 ou 3 de cada vez, mas aguarde algumas horas antes de fazer edições mais sistemáticas.
Martin Ender

Esqueci que seria empurrar para a primeira página, meu mal. @ MartinBüttner
globby

4

05AB1E , 7 bytes (não concorrente)

Não concorrente , uma vez que o idioma adia o desafio.

Código:

[DÂQ#Â+

Explicação:

[        # Infinite loop.
 DÂ      # Duplicate and bifurcate (which duplicates it and reverses the duplicate).
   Q#    # If the number and the number reversed are equal, break.
     Â+  # Add the reversed number to the initial number.

Usa a codificação CP-1252 . Experimente online! .


Você poderia explicar um pouco mais sobre o processo de bifurcação?
Conor O'Brien

1
@ CᴏɴᴏʀO'Bʀɪᴇɴ Por exemplo, na pilha está a string hello. A bifurcação manterá a sequência original e empurra a sequência invertida. É a abreviação de duplicado e reverso .
Adnan

Ah eu vejo. Legal! Graças
Conor O'Brien

4

Braquilog , 8 bytes

↔?|↔;?+↰

Experimente online!

Um pouco semelhante a um dos primeiros programas Brachylog que eu vi e fiquei intrigado com, no vídeo de introdução do Brachylog .

?↔?.|↔;?+↰.  (initial ? and the .s are implicit)

?↔?          % If the input and its reverse are the same,
   .         %   then the input is the output
    |↔;?+↰   % Or, add the input and its reverse, and call this predicate recursively
          .  % The result of that is the output

3

PHP - 54 48 caracteres

<?for($s=`cat`;$s!=$r=strrev($s);$s+=$r);echo$s;

Teste:

$ php 196.php <<< 5280
23232

Vou ter que me lembrar da $str = coisa do gato para o futuro golfe. Parreira muito melhor do que usar STDINe ainda melhor do que $argv[0].
Mr. Llama

@GigaWatt: $ s = 'm4' também deve funcionar.
Ninjalj

3

Festança (64)

X=`rev<<<$1|sed s/^0*//`;[ $1 = $X ]&&echo $1||. $0 $(($1+$X))

Ligue com: bash <nome do arquivo> <número>


Para que serve o <nome do arquivo>?
Eelvex

2
@Eelvex, o script precisa se chamar para que você precise armazená-lo em um arquivo.
marinus

3

C # - 103 99 caracteres

public int P(int i)
{
    var r = int.Parse(new string(i.ToString().Reverse().ToArray())));
    return r == i ? i : P(i + r);        
}

C # nunca se sai muito bem no golfe. Elegante, mas detalhado.


1
Você pode facilmente jogar mais. Use "" + em vez de .ToString e livre-se de alguns espaços.
Jacob

3

Em Q (39 caracteres)

f:{while[x<>g:"I"$reverse -3!x;x+:g];x}

Uso da amostra:

q)f 5280
23232

Editar:

Até 34 agora, o mesmo uso:

{while[x<>g:"I"$(|) -3!x;x+:g];x} 5280


3

Geléia , 9 bytes (não competindo)

Uma resposta muito simples, apenas para o desafio de codificação e linguagem esotérica.

ṚḌ+µŒḂ¬$¿

ṚḌ        : take the argument, reverse (and vectorize) it
  +µ      : add both
    ŒḂ¬$¿ : while the result isn't a palindrome

Experimente online!

Se esta resposta não estiver clara ou errada em qualquer nível, fique à vontade para apontá-la.

Agradeço ao Dennis por me ajudar com este primeiro pequeno pedaço de código.


Uau, nem todo mundo usa Jelly em seu primeiro post.
Nissa19 /

Estava na minha lista de tarefas a postar uma resposta no PPCG usando uma linguagem esotérica. Jelly passou a ser o primeiro que eu pensava :)
z3r0

2

Python. 85 caracteres:

s,i=str,int;rs=lambda q:s(q)[::-1];n=i(input());
while rs(n)!=s(n):n+=i(rs(n));print n

Se você não deseja saída em cada iteração:

s,i=str,int;rs=lambda q:s(q)[::-1];n=i(input());
while rs(n)!=s(n):n+=i(rs(n))
print n

(menos um caractere)


A descrição da tarefa afirma que apenas o palíndromo final deve ser impresso.
Joey

2

Windows PowerShell (63)

for($a=+"$input";-join"$a"[99..0]-ne$a){$a+=-join"$a"[99..0]}$a

Eu ainda odeio que não haja uma maneira fácil de reverter uma string.


Pode ser reduzido por dois caracteres se houver apenas dez dígitos de entrada. Dessa forma, é seguro longtambém para o qual é o maior tipo integral suportado pelo PowerShell, mas ainda assim, desperdiço dois caracteres.
Joey

2

Haskell 89 87 chars

r=read.reverse.show
main=getLine>>=print.head.filter(\x->x==r x).iterate(\x->x+r x).read

Versão um pouco legível:

myFind p = head . filter p
rev = read . reverse . show
isPalindrome x = x == rev x
next x = x + rev x
sequence196 = iterate next
palindrome196 = myFind isPalindrome . sequence196

main = getLine >>= print . palindrome196 . read

A versão para golfe foi criada inserindo manualmente e renomeando as funções restantes para nomes de caracteres únicos.


1
Você pode reduzi-lo um pouco, aproveitando a função subutilizada untildo Prelude, além de extrair o padrão de aplicação de um operador binário em xe r x. Além disso, use em readLnvez de getLinee read. O resultado salva 20 caracteres:f%x=f x$read.reverse.show$x;main=readLn>>=print.until((==)%)((+)%)
hammar

@hammar: Você pode usar a função monad e economizar ainda mais: defina r=(=<<read.reverse.show)e use apenas r(==)`until`r(+). Além dessa economia, ele não precisa ser um programa completo, um envio válido pode ser apenas a função sem nome de antes. Isso reduz a 41 bytes: Experimente online!
ბიმო

2

befunge, 57 bytes

"KCTS"4(&:0\v
\T\a*+\:0`jv>:a%\a/
0:+_v#-TD2$<^\
  @.<

embora o código esteja em uma grade 4x19, pode chamá-lo de 76.

  • a primeira linha está inicializando e lendo o número de entrada
  • segunda linha inverta o primeiro número na pilha e coloque-o na segunda posição da pilha.
  • e a terceira linha verifica se um número é palíndromo.

2

C ++ TMP (256 caracteres)

#include<cstdio>
#define Y(A,B,C,D)template<int N>struct A<C,D>{enum{v=B};};
#define Z(A)template<int N,int M>struct A{enum{v=
#define n 5194
Z(R)R<N/10,M*10+N%10>::v};};Y(R,N,0,N)Z(S)S<N+M,R<N+M,0>::v>::v};};Y(S,N,N,N)main(){printf("%d",S<n+R<n,0>::v,0>::v);}

Esta versão pode ser um pouco reduzida, mas é difícil deixar uma resposta de 256 caracteres. Aqui está uma versão sem golfe:

#include <iostream>

template<size_t N>
class Reverse
{
    template<size_t M, size_t R>
    struct Inner
    {
        enum { value = Inner<M/10, R*10 + M%10>::value };
    };

    template<size_t R>
    struct Inner<0, R>
    {
        enum { value = R };
    };

public:
    enum { value = Inner<N, 0>::value };
};

template<size_t N>
class OneNineSix
{
    template<size_t M, size_t R=Reverse<M>::value>
    struct Inner
    {
        enum { value = OneNineSix<M + R>::value };
    };

    template<size_t M>
    struct Inner<M, M>
    {
        enum { value = M };
    };

public:
    enum { value = Inner<N + Reverse<N>::value>::value };
};

int main()
{
    const size_t N = 4123;

    std::cout << OneNineSix<N>::value << std::endl;
}

2

Pyke, 13 bytes (não-competitivo)

D`_b]D$XIsr)h

Experimente aqui!

 `_b          -     int(reversed(str(num))
D   ]         -    [num, ^]
     D        -   _ = ^
      $       -  delta(^)
       XI     - if ^:
         s    -  num = sum(_)
          r   -  goto_start()
            h - _[0]

2

Adicionar ++ , 57 bytes

L,BDbRBv
D,f,@,1]A+
D,g,@,1]A=
D,h,@,{f}A{g}Q{h}
L,{h}2/i

Experimente online!

Como funciona

L,	; Create a function 'lambda 1'
	; Example argument:   [5280]
    BD	; Digits;     STACK = [[5 2 8 0]]
    bR	; Reverse;    STACK = [[0 8 2 5]]
    Bv	; Undigits;   STACK = [825]

D,f,@,	; Define a monadic function 'f'
	; Example argument:         [5280]
    1]	; Call 'lambda 1';  STACK = [825]
    A+	; Add the argument; STACK = [6105]

D,g,@,	; Define a monadic function 'g'
	; Example argument:          [5280]
    1]	; Call 'lambda 1';   STACK = [825]
    A=	; Equal to argument; STACK = [0]

D,h,@,	; Define a monadic function 'h'
	; Example argument:  [5280]
   {f}	; Call 'f';  STACK = [6105]
   A{g}	; If 'g'...
   Q	;   Return
   {h}	; Else call 'h'

L,	; Define a function, 'lambda 2'
	; Example argument: [5280]
   {h}	; Call 'h'; STACK = [46464]
   2/i	; Halve;    STACK = [23232]

2

Powershell, 63 62 bytes

-1 byte graças a @AdmBorkBork

param($m)for(;$m-$s;$m=-join"$s"[-1..-"$s".Length]){$s+=$m};$s

Script de teste:

$f = {
param($m)for(;$m-$s;$m=-join"$s"[-1..-"$s".Length]){$s+=$m};$s
}

&$f 5280

1
Você não precisa do ;meioparam($m) e for.
AdmBorkBork

2

GNU dc, 46 bytes

Requer GNU dc, versão mínima 1.4 (para Rcomando).

[O~3RO*+rd0<R]sR[+lfx]sg[ddO~rd0<R+d3R!=g]dsfx

Entrada e saída estão no topo da pilha, como de costume. É preciso uma quantidade surpreendente de código para inverter dígitos em dc (a menos que esteja faltando alguma coisa, o que está longe de ser impossível). Ele possui o intervalo numérico para se comportar bem com entradas como essas (que excederão a aritmética não assinada de 32 bits, por exemplo):

  • 89 ⇒ 8.813.200.023.188
  • 8997 ⇒ 16.668.488.486.661
  • 10677 ⇒ 4.668.731.596.684.224.866.951.378.664

Explicação

# Reverse digits, starting after first digit extracted
[O~3RO*+r d0<R]sR

# Recursion helper - add and recurse
[+ lfx]sg

# Main recursive function
[dd O~r d0<R+ d3R !=g]dsfx


Pode querer especificar que isso funcione apenas no GNU dc 1.4 e posterior, uma vez que usa o novo Rcomando. Boa solução, no entanto!
Sophia Lechner

Estou trabalhando em uma abordagem totalmente diferente, mas não tenho certeza se será menor.
Sophia Lechner

Obrigado Sophia - eu não tinha percebido que Rera novo. Ansioso para ver o seu método!
precisa saber é o seguinte

Ah, não ... Tentei uma abordagem diferente para organizar o loop externo, mas ele acabou cerca de cinco bytes maior e não mais bonito. Você ganha. =)
Sophia Lechner

2

R , 193 109 105 bytes

-84 bytes graças a Giuseppe! -4 byes graças a JayCe!

function(x){"-"=utf8ToInt
S=strtoi
"!"=rev
while({z=paste(S(x)+S(intToUtf8(!-x),10));any(-z!=!-z)})x=z
z}

Experimente online!


1
Você pode (e deve) escolher uma maneira diferente de fazer isso do que a manipulação de cordas, mas aqui estão algumas dicas de golfe para o método escolhido: strsplit(x,"")é menor que strsplit(x,NULL)e el(L)menor que L[[1]]. as.doubleé mais curto que as.numerice strtoié mais curto que ambos; em vez de configurar, tuse-o diretamente em sua ifdeclaração. Além disso, essa é uma função recursiva, se não me engano, por isso você deve colocar f=como parte do seu envio.
Giuseppe

@Giuseppe Entendi. Obrigado pelas dicas. Vou continuar trabalhando nisso. É mais fácil para mim conseguir algo que funcione, depois voltar e otimizar.
Robert S.

1
Hehehe, não se preocupe. Se você está decidido a usar seqüências de caracteres (ou forçado pelo problema), considere utf8ToIntconverter em dígitos e intToUtf8converter novamente. Isso economiza muito em bytes!
Giuseppe


1
Salve mais 4 bytes usando -no lugar de U. Eu também substituído revcom !mas não guardar qualquer byte ...
Jayce
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.