Tâche

Le préfixe, la séquence append est défini de manière récursive, comme ceci

• a (1) = 1
• a (n) = a (n-1) .n, si n est pair
• a (n) = na (n-1), si n est impair

où le . représente une concaténation entière.

Les premiers termes sont donc les suivants: 1,12,312,3124,53124,531246,7531246,...Il s'agit du A053064 .

Votre tâche est, étant donné un entier a> 0 pour revenir n , tel que le n ième élément dans le précédez, append-séquence est égal à un et si aucun n existe return 0, un numéro de négatif ou d'une erreur sur etc.

Règles

• L'entrée peut être prise comme un entier, une chaîne, une liste de caractères / chiffres, etc.
• La sortie peut être imprimée sur STDOUT ou renvoyée (entier, chaîne, etc. est très bien)
• Sur une entrée invalide et dans le cas où un tel n n'existe pas, votre programme peut faire autre chose que retourner un entier positif (par exemple, boucle pour toujours, retourne 0, etc.)
• Vous pouvez choisir d'utiliser l'indexation 0, mais la sortie dans le cas où aucun n n'existe ne peut pas être 0

Cas de test

1 -> 1
12 -> 2
21 -> 0
123 -> 0
312 -> 3
213 -> 0
211917151311975312468101214161820 -> 21
2119171513119753102468101214161820 -> 0
333129272523211917151311975312468101214161820222426283031 -> 0
999795939189878583817977757371696765636159575553514947454341393735333129272523211917151311975312468101214161820222426283032343638404244464850525456586062646668707274767880828486889092949698100 -> 100

JavaScript (ES6), 40 octets

Prend l'entrée sous forme de chaîne. Lance une erreur de récursivité si aucun index n'est trouvé.

f=(n,s=k='1')=>n==s?k:f(n,++k&1?k+s:s+k)

Démo

f=(n,s=k='1')=>n==s?k:f(n,++k&1?k+s:s+k)

console.log(f('1')) // 1
console.log(f('12')) // 2
console.log(f('312')) // 3
console.log(f('211917151311975312468101214161820')) // 21
console.log(f('999795939189878583817977757371696765636159575553514947454341393735333129272523211917151311975312468101214161820222426283032343638404244464850525456586062646668707274767880828486889092949698100')) // 100

C # (.NET Core) , 83, 80, 60 59 octets

n=>{int i=0;for(var t="";t!=n;)t=++i%2<1?t+i:i+t;return i;}

Essayez-le en ligne!

Prend l'entrée sous forme de chaîne dans une fonction lambda. 1 indexé. Renvoie l'index de la valeur pour truey, ou boucle infiniment pour un "falsey"

Python 2 , 63 octets

-1 octet grâce à @EriktheOutgolfer .

f=lambda x,i='1',j=2:i!=`x`and f(x,[i+`j`,`j`+i][j%2],j+1)or~-j

Essayez-le en ligne!

Python 2 , 64 octets

-18 octets grâce à @officialaimm , car je n'ai pas remarqué que l'erreur était autorisée!

x,i,j=input(),'1',1
while i!=x:j+=1;i=[i+`j`,`j`+i][j%2]
print j

Essayez-le en ligne!

Python 2 , 82 octets (ne boucle pas indéfiniment)

Celui-ci renvoie 0des entrées non valides.

def f(n,t="",i=1):
 while len(t)<len(n):t=[t+`i`,`i`+t][i%2];i+=1
 print(n==t)*~-i

Essayez-le en ligne!

Gelée , 12 octets

Rs2ZU1¦ẎVµ€i

Essayez-le en ligne!

Explication:

Rs2ZU1¦ẎVµ€i
         µ€  Eval this link for each (automatic [1..n] range)
R             Range
 s2           Split in pieces of: 2
   Z          Zip
    U1¦       Only keep index: 1 of: Vectorized reverse
       Ẏ      Flatten 1-deep
        V     Concatenate string versions and eval
           i Find index of y in x (y = implicit input)

05AB1E , 14 octets

$vDNÌNFs}«})Ik

Essayez-le en ligne! ou comme suite de tests

Explication

0 indexé .
Renvoie -1 si l'entrée n'est pas dans la séquence.

$                 # push 1 and input
 v                # for each y,N (element, index) in input do:
  D               # duplicate top of stack
   NÌ             # push N+2
     NF }         # N times do:
       s          # swap the top 2 elements on the stack
         «        # concatenate the top 2 elements on the stack
          })      # end loop and wrap in a list
            Ik    # get the index of the input in this list

R , 73 octets

p=paste0;n=scan(,'');l='';while(l!=n){F=F+1;l="if"(F%%2,p(F,l),p(l,F))};F

Lit à partir de stdin et renvoie la valeur de l'index (imprimée implicitement). Boucles infinies lorsque la valeur n'est pas dans la séquence. Fest par défaut FALSEqui est converti en 0lorsqu'il est utilisé en arithmétique.

Essayez-le en ligne!

Mathematica, 135 octets

s=t={};x=1;While[x<5!,{s~AppendTo~#&,s~PrependTo~#&}[[x~Mod~2+1]]@x;AppendTo[t,FromDigits@Flatten[IntegerDigits/@s]];x++];t~Position~#&

Gelée ,  19 18  15 octets

+ḂḶṚm2;RḤ$ṁµ€Vi

Un lien monadique prenant et renvoyant des entiers.

Essayez-le en ligne! (très lent - prend ~ 50s sur TIO juste pour confirmer que3124c'est à l'index4)

Pour une version beaucoup plus rapide, utilisez les 18 octets précédents (vérifie uniquement jusqu'à la longueur de l'entrée, ce qui est suffisant).

Comment?

+ḂḶṚm2;RḤ$ṁµ€Vi - Link: number, v
           µ€   - perform the monadic link to the left for €ach k in [1,2,3,...v]
                -                 (v can be big, lots of k values makes it slow!)
 Ḃ              -   modulo k by 2  = 1 if odd 0 if even
+               -   add to k = k+isOdd(k)
  Ḷ             -   lowered range = [0,1,2,...,k+isOdd(k)]
   Ṛ            -   reverse = [k+isOdd(k),...,2,1,0])
    m2          -   modulo slice by 2 = [k+isOdd(k),k+isOdd(k)-2,...,3,1]
         $      - last two links as a monad:
       R        -   range(k) = [1,2,3,...,k]
        Ḥ       -   double = [2,4,6,...,2k]
     ;          - concatenate = [k+isOdd(k),k+isOdd(k)-2,...,3,1,2,4,6,...,2k]
         ṁ      - mould like range(k) = [k+isOdd(k),k+isOdd(k)-2,...,3,1,2,4,6,...,k-isOdd(k)]
                -   (this is a list of the integers to be concatenated for index k)
             V  - evaluate as Jelly code (yields a list of the concatenated integers)
              i - first index of v in that (or 0 if not found)

Swift 4 , 92 octets

Cela fait une boucle infinie pour les cas invalides, donc je ne les ai pas inclus dans le lien de test.

func f(x:String){var i="1",j=1;while i != x{j+=1;i=[i+String(j),String(j)+i][j%2]};print(j)}

Suite de tests.

Amusant, il est plus long avec une fermeture:

var f:(String)->Int={var i="1",j=1;while i != $0{j+=1;i=[i+String(j),String(j)+i][j%2]};return j}

Suite de tests.

Haskell , 115 85 octets

s=read.(show=<<)
f 1=1
f x|odd x=s[x,f$x-1]
f x=s[f$x-1,x]
g x=[n|n<-[1..],x==f n]!!0

Essayez-le en ligne!

Perl 5 , 54 + 1 (-n) = 55 octets

$a=++$,%2?$,.$a:$a.$,while length$a<length;say/$a/&&$,

Essayez-le en ligne!

Ne renvoie rien s'il n'est pas trouvé.

Haskell, 75 71 57 octets

f n=[i|i<-[1..],(show=<<reverse[1,3..i]++[2,4..i])==n]!!0

Prend ncomme une chaîne.

Essayez-le en ligne!