23

Récemment, j'ai passé un test de mathématiques et j'ai remarqué qu'un certain nombre du test correspondait à un modèle intéressant. Le nombre ( 28384) correspond à une séquence de chiffres générique qui ressemble à ceci

(n)(x)(n+1)(x)(n+2)(x)(n+3) etc...

où net xsont des entiers à un chiffre. La séquence peut commencer par ou xou net se terminer par xou n+y.

Votre tâche consiste, étant donné un entier positif à plusieurs chiffres, à sortir une valeur true ou falsey, selon que l'entrée correspond au modèle. L'entrée comprendra entre 4 et 18 chiffres. Vous pouvez prendre l'entrée comme une représentation sous forme de chaîne de l'entier. L'entrée ne commencera pas par un 0 mais pourra contenir ou se terminer par des 0.

n+y sera toujours un nombre à un seul chiffre (d'où la limite de longueur est de 18).

Cas de test

Ceux-ci devraient produire une valeur véridique

182838485868788898
4344
85868
12223242526

Et cela devrait être falsey

12345
6724013635
36842478324836
1222232425
5859510511

Comme avec tous les golfs de code, le code le plus court gagne! Bonne chance et que les chances soient toujours en votre faveur!

code-golf number sequence caird coinheringaahing
la source

Pouvons-nous prendre l'entrée comme une chaîne?

Kritixi Lithos

@KritixiLithos "Vous pouvez prendre l'entrée comme une représentation sous forme de chaîne de l'entier."

M. Xcoder

Est-ce que les deux xet nnon nul pour les nombres qui correspondent à la règle?

M. Xcoder

@ Mr.Xcoder le nombre ne peut pas commencer par un 0 mais peut contenir ou se terminer par 0

caird coinheringaahing

8

Python 2 , 84 81 80 79 octets

-1 octet grâce aux ovs

lambda x:g(x,1)|g(x,0)
g=lambda x,a:len(set(x[a::2]))==(x[a<1::2]in"123456789")

Essayez-le en ligne!

Python 3 , 82 79 78 77 octets

lambda x:g(x,1)|g(x,0)
g=lambda x,a:len({*x[a::2]})==(x[a<1::2]in"123456789")

Essayez-le en ligne!

Un peu plus court en Python 3, mais je ne pensais pas qu'il méritait sa propre réponse.

Explication

Nous mettons en place une fonction gqui prend une chaîne et un index (1 ou 0). grenvoie ensuite si oui ou non len(set(x[a::2])), c'est-à-dire le nombre de chiffres uniques dans toutes les autres positions, est égal à (x[a==0::2]in"123456789"), que les autres chiffres soient ou non dans l'ordre croissant. Si les chiffres sont dans l'ordre croissant, cela renvoie s'ils sont tous identiques ou non, sinon il demandera si l'ensemble est vide, ce qu'il ne peut pas être, retournant ainsi toujours faux.

Assistant de blé
la source

Comme d'habitude, j'ai été outgolfé>. <

M. Xcoder

x[a<1::2]in"123456789"peut être "0"<x[a<1::2]<":"(la comparaison des caractères compare les codes de charge)

CalculatorFeline

@CalculatorFeline Je ne pense pas que ce soit vrai. Cela vérifie simplement que la chaîne commence par un nombre.

Wheat Wizard

Oh oui, mais cela fonctionne pour les personnages uniques.

CalculatorFeline

Mais en avez-vous réellement besoin a<1? On dirait que ça peut être juste a.

CalculatorFeline

4

Gelée , 13 11 octets

Ds2ZI’M¦Ẏ¬Ạ

Essayez-le en ligne!

Explication:

Ds2ZI’M¦Ẏ¬Ạ Accepts an integer
D           Get individual digits
  2         2
 s          Split into chunks of specific length
   Z        Zip
    I       Take deltas
     ’      Decrement
      M     Take maximal indices
       ¦    Apply at specific indices
        Ẏ   Reduce dimensionality
         ¬  Vectorized NOT
          Ạ Check if all are truthy

Erik le Outgolfer
la source

2

05AB1E , 15 octets

TG9LNýN.øŒ})˜Iå

Essayez-le en ligne!

Explication

TG9LNýN.øŒ})˜Iå
TG        }     # For 1 to 9...
  9L             # Push [1 .. 9]
    Ný           # Join with current value 
      N.ø        # surround with current value
         Œ       # Push substrings
           )    # Wrap stack to array
            ˜   # Deep flatten the array
             I  # Push input
              å # Is the input in the array?
                # Implicit print

Cela devrait fonctionner (les cas de test l'ont fait) mais si vous trouvez des défauts, faites-le moi savoir.

14 octets si aucune sortie n'est considérée comme fausse:

TG9LNýN.øŒIåi1

Datboi
la source

2

D, 117 octets

int f(string n){int o=n[0]!=n[2],x=n[o];foreach(i,c;n){if(i%2!=o&&i>1&&c!=n[i-2]+1||i%2==o&&c!=x)return 0;}return 1;}

Certainement sous-optimal, mais cela fonctionne bien

Essayez-le en ligne!

TuxCrafting
la source

2

Haskell, 108 113 97 95 octets

d(x:_:r)=x:d r
d r=r
c(x:n:r)=and$all(==x)(d r):zipWith(==)(d$n:r)[n..]
f s@(_:n:_)=c s||c(n:s)

Exemple d'appel: f "182838485868788898"rendementsTrue

Version non golfée avec explications:

-- Take every other element from the string, starting with the first
d (x:_:r) = x : d r
d r       = r
c (x:n:r) = and $ all (== x) (d r)              -- Every other char is equal to the first
                : zipWith (==) (d $ n:r) [n..]  -- The remaining chars are a prefix of n(n+1)(n+2)...
f s@(_:n:_) = c s      -- The case where s already starts with x
           || c (n:s)  -- If not, prepend a dummy x and try again

siracusa
la source

2

Bienvenue au golf PPCG et Haskell en particulier! isPrefixOfn'est pas dans Prelude, vous devez donc inclure import Data.Listdans votre code ou utiliser une alternative, par exemple and(zipWith(==)(n:r)[n..]).

Laikoni

@Laikoni: Merci pour l'astuce! J'ai remplacé la fonction en conséquence.

siracusa

1

Je pense que ça x/=ypeut être 1>0parce que sinon x/=yalors x==yet le premier cas l'attrape.

CalculatorFeline

Vous n'avez pas non plus besoin de la wheredéfinition des fonctions auxiliaires cet den dehors de fc'est bien. fpeut ensuite être raccourci f s@(_:n:_)=c s||c(n:s).

Laikoni

1

Ensuite, vous pourriez être intéressé par le guide des règles du golf à Haskell . Même si ce n'est pas une règle, vous pouvez utiliser des sauts de ligne à la place de ;. C'est le même nombre d'octets mais améliore la lisibilité du code.

Laikoni

1

JavaScript (ES6), 66 63 60 octets

Prend l'entrée sous forme de chaîne.

s=>[...s].every((d,i)=>d-s[j^(k=i+j&1)]==k*i>>1,j=s[2]-s[0])

Cas de test

Afficher l'extrait de code

let f =

s=>[...s].every((d,i)=>d-s[j^(k=i+j&1)]==k*i>>1,j=s[2]-s[0])

console.log('[Truthy]');
console.log(f("182838485868788898"))
console.log(f("4344"))
console.log(f("85868"))
console.log(f("12223242526"))

console.log('[Falsy]');
console.log(f("12345"))
console.log(f("6724013635"))
console.log(f("36842478324836"))
console.log(f("1222232425"))

Expand snippet

Arnauld
la source

1

C (gcc), 123 octets

#define X*s&&*s++-++n&&(r=0)
t,n,x,r;f(char*s){t=*s==s[2];for(r=1,n=s[t],x=s[!t],s+=2;*s;)t||X,*s&&*s++-x&&(r=0),t&&X;n=r;}

Essayez-le en ligne!

Steadybox
la source

1

Python 3 , 99 96 89 octets

3 octets enregistrés: utilisation de la all()fonction
@WheatWizard a économisé 7 octets: raccourcir & |et remplacer la variable supplémentaire park<1

lambda x,g=lambda x,k:(x[k<1::2]in'123456789')&all(j==x[k]for j in x[k::2]):g(x,0)|g(x,1)

Essayez-le en ligne!

Explication:

Divisez d'abord la chaîne en deux listes: une avec des éléments indexés impairs et l'autre avec des éléments indexés pairs. Les deux listes A et B sont supposées être telles que:

A contient le même numéro et B contient des numéros consécutifs dans l'ordre croissant.

OU juste le contraire

B contient le même numéro et A contient des numéros consécutifs dans l'ordre croissant.

La condition consécutive est vérifiée par: a in '123456789'

La condition du même numéro est vérifiée par: all(i=a[x] for i in a)

officialaimm
la source

1

vous pouvez remplacer les instances de iwith k<1et supprimer l' iargument tous ensemble.

Wheat Wizard du

1

Vous pouvez également entourer le premier prédicat en parens et utiliser à la &place de and. Votre orpeut également être remplacé par |.

Wheat Wizard

1

Je vois cela finalement converger vers votre réponse ..: D

officialaimm

1

PHP , 68 octets

for(;$v<10;)$s.=strstr(+$v.join(+$v,range(1,9)).+$v++,$argn);echo$s;

Essayez-le en ligne!

Sortie d'une partie de la chaîne de recherche à partir de la première occurrence de l'entrée à la fin de la chaîne de recherche en tant que valeur véridique et rien pour fausse

pour 2 octets de plus, vous pouvez remplacer echo$s;par !!echo$s;pour obtenir 1une valeur fidèle

Rechercher l'occurrence de l'entrée dans l'une des chaînes suivantes du tableau

Array
(
    [0] => 0102030405060708090
    [1] => 1112131415161718191
    [2] => 2122232425262728292
    [3] => 3132333435363738393
    [4] => 4142434445464748494
    [5] => 5152535455565758595
    [6] => 6162636465666768696
    [7] => 7172737475767778797
    [8] => 8182838485868788898
    [9] => 9192939495969798999
)

Jörg Hülsermann
la source

1

JavaScript (ES6), 54 octets

f=
s=>[...s].every((e,i)=>i<2|e-s[i-2]==(s[2]!=s[0])^i%2)

<input oninput=o.textContent=this.value[3]?f(this.value):``><pre id=o>

Développer l'extrait

Prend l'entrée sous forme de chaîne.

Neil
la source

1

MATL , 15 octets

2L&),duw]hSFTX=

Essayez-le en ligne!

Avec l'aide de @LuisMendo dans le chat. Notez que si une sortie vide + erreur est également considérée comme «fausse», elle Xpeut être laissée de côté, ce qui porte le score à 14 octets .

2L&)     % Split the input into odd and even-indexed elements
    ,   ] % Do twice (new feature since MATL v20.0), i.e., on both halves of the input
     d     % Pairwise differences of the array. Results in [0,0,...] for the 'constant' part,
            %  and [1,1,...] for the 'increasing' part.
      u      % Get unique elements. Results in [0] for the constant part, [1] for the increasing part.
       w      % Swap the stack to do the same for the other half of the input.
         hS    % Horizontal concatenation followed by sort. Results in [0,1] for the desired string.
           FTX= % Check if the result is indeed [0,1]. Implicit display.

Sanchises
la source

0

Mathematica, 121 octets

(m[x_]:=Take[s=IntegerDigits@#,{x,Length@s,2}];w[b_,n_]:=Union@Differences@m@b=={1}&&Length@Union@m@n==1;w[1,2]||w[2,1])&

J42161217
la source

0

Pyth , 20 octets

ASm.+sMd.Tcz2&-GZ-H1

Sortie []lorsque le nombre correspond au modèle de chiffres, sinon toute autre chose.

Essayez-le en ligne!

Explications (exemple avec entrée 85868)

ASm.+sMd.Tcz2&-GZ-H1

          cz2           # Chop the input in pairs: ['85', '86', '8']
        .T              # Transpose, ignore absences: ['888', '56']
     sM                 # Convert to integers: [[8, 8, 8], [5, 6]]
  m.+  d                # Compute deltas: [[0, 0], [1]]
 S                      # Sort: [[0, 0], [1]]
A                       # Assign first list to G and second list to H
              -GZ       # Filter 0 on G (on absence): [0, 0] -> []
                 -H1    # Filter 1 on H (on absence): [1] -> []
             &          # Check both lists are empty (logical and): [] & [] -> []

Jim
la source

0

Pyth, 17 octets

qU2Ssm{.+d.TcjQT2

Essayez-le ici

Même algorithme que ma réponse Jelly.

Explication:

qU2Ssm{.+d.TcjQT2 Accepts an integer
             jQT  Take digits of input
            c   2 Split in pairs
          .T      Transpose
     m            Map the following on each of the two resulting lists:
       .+d          Take deltas
      {             Deduplicate
    s             The list is now in [[a, b, ...], [A, B, ...]] format, convert it to [a, b, ..., A, B, ...]
   S              Sort
qU2               Check if equal to [0, 1]

Erik le Outgolfer
la source

0

Python 3 , 167 161 157 157 131 106 octets

-55 octets grâce aux suggestions de @ WheatWizard

def g(t):k,c,f,j=t[::2],t[1::2],'123456789',''.join;return(len({*k})and j(c)in f)or(len({*c})and j(k)in f)

Essayez-le en ligne!

M. Xcoder
la source

Peut être joué plus loin. J'édite déjà.

M. Xcoder

Vous avez peut-être vu cette astuce dans ma réponse, mais set(c)c'est la même chose que {*c}. (au moins en python 3)

Wheat Wizard

@WheatWizard merci. Montage

M. Xcoder

3

[t[z]for z in range(0,len(t),2)]est aussi juste une épissure de liste. Vous pouvez le faire simplement avec t[::2]. Si vous n'êtes pas familier avec cette syntaxe, je vous suggère de jeter un œil sur les documents, car elle est assez utile.

Wheat Wizard

@WheatWizard Wow, c'est vraiment utile. Malheureusement, je ne peux pas modifier la réponse pour le moment. Je le ferai dès que possible. Merci beaucoup pour les conseils ...

M. Xcoder

0

Java (OpenJDK 8) , 128 119 118 108 107 104 octets

s->{int i=3,a=s[2]-s[0],b=s[3]-s[1];for(;++i<s.length;)a+=b-(b=s[i]-s[i-2]==a?a:2);return(a|b)==1&a!=b;}

Essayez-le en ligne!

Explication:

s->{                             // lambda
  int i=3,                       //  iterating index
      a=s[2]-s[0],               //  diff of even-indexed characters
      b=s[3]-s[1];               //  diff of odd-indexed characters
  for(;++i<s.length;)            //  iterate
    a+=b-(b=                     //   swap a and b
        s[i]-s[i-2]==a?a:2       //    or set b to 2 if the diffs don't match
      ));                        //
  return (a|b)==1                //  return true if both a and b are in (0,1)
        &a!=b;                   //         but different
}

Olivier Grégoire
la source

0

Rétine , 47 octets

.
$*11;
(1+)(?<=\1;1+;\1)

^1+;1+

^;?(;1;)+;?$

Essayez-le en ligne!

Affiche 1 s'il correspond au modèle, 0 s'il ne correspond pas

Explication

.
$*11;

Convertir chaque chiffre n en n + 1 en unaire, séparés par des points-virgules

(1+)(?<=\1;1+;\1)

(Trailing newline) convertit chaque chiffre à la différence entre lui-même et celui qui le précède

^1+;1+

(Trait de fin de ligne) supprime les 2 premiers chiffres

^;?(;1;)+;?$

Compte le nombre de correspondances de ce modèle, qui vérifie l'alternance des 0 et des 1

PunPun1000
la source

Correspond-il au modèle numérique?

Cas de test

Réponses:

Python 2 , 84 81 80 79 octets

Python 3 , 82 79 78 77 octets

Explication

Gelée , 13 11 octets

05AB1E , 15 octets

Explication

D, 117 octets

Haskell, 108 113 97 95 octets

JavaScript (ES6), 66 63 60 octets

Cas de test

C (gcc), 123 octets

Python 3 , 99 96 89 octets

PHP , 68 octets

JavaScript (ES6), 54 octets

MATL , 15 octets

Mathematica, 121 octets

Pyth , 20 octets

Pyth, 17 octets

Python 3 , 167 161 157 157 131 106 octets

Java (OpenJDK 8) , 128 119 118 108 107 104 octets

Explication:

Rétine , 47 octets

Explication