Dans ce défi de golf de code, vous vérifierez les hashtags!

#What_your_code_should_do

L'entrée est une chaîne. Sortez une valeur véridique si c'est un hashtag valide, et une valeur falsifiée sinon.

Nous définissons une chaîne comme un hashtag valide si ...

• Cela commence par un hachage ( #).
• Il n'a pas de numéro juste après le hashtag (par exemple, #2016USElectionn'est pas un hashtag valide).
• Il n'a pas de "caractères spéciaux" (c'est-à-dire aucun caractère qui n'est pas un alphabet, un trait de soulignement ( _) ou un nombre).

Vous pouvez supposer que l'entrée ne contient que des caractères ASCII. (Ce serait injuste si nous utilisions également Unicode.)

#Règles

Les règles de base du code-golf s'appliquent.

#Exemples

Vérité:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Faux:

Hello, World!
#12thBday
#not-valid
#alsoNotValid!
#!not_a_hash

Rétine , 12 octets

^#(?!\d)\w*$

Imprime 1pour les hashtags et 0autres.

Essayez-le en ligne! (La première ligne active une suite de tests séparés par un saut de ligne.)

Pas grand chose à expliquer ici, cela est tout à fait une application littérale de la définition: ^et ne $sont que des ancres assurant que les couvertures de correspondre à la chaîne complète, #vérifie que la chaîne commence par un #, (?!\d)assure que le caractère suivant n'est pas un chiffre (sans avancer la position du moteur d'expression régulière), \w*vérifie que nous pouvons atteindre la fin de la chaîne avec zéro ou plusieurs lettres, chiffres ou traits de soulignement.

Par défaut, Retina compte le nombre de correspondances de l'expression régulière donnée, c'est pourquoi cela donne 1des balises de hachage valides et 0autres.

Perl, 22 octets

21 octets code +1 pour -p

$_=/^#([a-z_]\w*)?$/i

Imprime 1 s'il s'agit d'un hashtag valide, sinon une chaîne vide.

Usage

perl -pe '$_=/^#([a-z_]\w*)?$/i' <<< '#'
1
perl -pe '$_=/^#([a-z_]\w*)?$/i' <<< '#_test'
1
perl -pe '$_=/^#([a-z_]\w*)?$/i' <<< '#1test'

Enregistré 2 octets merci pour Martin Ender (et 4 autres en utilisant sa méthode de recherche )

Perl, 18 octets

17 octets code +1 pour -p

En utilisant le lookaround de Martin, cela peut être beaucoup plus court!

$_=/^#(?!\d)\w*$/

JavaScript (ES6), 25 octets

s=>/^#(?!\d)\w*$/.test(s)

F = s => /^#(?!\d)\w*$/.test(s)
input.oninput = () => result.innerHTML = input.value ? F(input.value) ? '\ud83d\udc8e' : '\ud83d\udca9' : '\ud83d\udcad';

#input, #result {
  vertical-align: middle;
  display: inline-block;
}
#input {
  line-height: 2em;
}
#result {
    font-size: 2em;
}

<input id="input" type="text"/> <span id="result">&#x1f4ad</span>

C, 80 octets

La fonction f()prend la chaîne comme argument et se int *btransforme en 1 ou 0 pour indiquer la vérité / la fausse.

f(char*p,int*b){for(*b=(*p==35)&&!isdigit(p[1]);*p;++p)*b&=isalnum(*p)||*p==95;}

Si la chaîne a toujours au moins un caractère (c'est-à-dire jamais une chaîne vide), un octet peut être rasé pour 79 octets:

f(char*p,int*b){for(*b=(*p==35)&&!isdigit(p[1]);*++p;)*b&=isalnum(*p)||*p==95;}

Python 3, 41 octets

import re
re.compile('#(?!\d)\w*$').match

Brachylog , 55 octets

"#"|h"#",?b@lL'(eE,@A:"1234567890":"_"c'eE),@A:"_"ce~hL

Cela n'utilise aucune expression régulière.

Explication

Main predicate, Input (?) is a string

  "#"                           ? = "#"
|                             Or
  h"#",                         First character of ? is "#"
  ?b@lL                         L is the rest of the chars of ? lowercased
  '(                            It is not possible for any char of L that...
    eE,                           Call this char E
    @A:"1234567890":"_"c          Concatenate the lowercase alphabet with the digits and "_"
    'eE                           E is not a member of that concatenated string
   ),                           
   @A:"_"c                      Concatenate the lowercase alphabet with "_"
   e~hL                         One char of that concatenated string is the first char of L

Python 3, 103 93 octets

all((c=='_'or c.isalpha()*i>0)^(i<1and'#'==c)^(c.isdigit()*i>1)for i,c in enumerate(input()))

L' #être Truem'a tué ici, j'ai dû énumérer la chaîne pour éviter une erreur d'index sur l'entrée à un seul caractère.

PowerShell v2 +, 25 octets

$args-match'^#(?!\d)\w*$'

En utilisant l'expression régulière de Martin , vient d'être enveloppé dans l' -matchopérateur de PowerShell couplé à l'entrée $args. Pour les valeurs véridiques / falsey, cela retournera la chaîne elle-même sur une correspondance (une valeur véridique) ou rien sur une non-correspondance (une valeur falsey). En effet, lorsqu'un opérateur de comparaison est appliqué à un tableau, il renvoie tout ce qui satisfait cet opérateur.

Quelques exemples (enveloppés dans une [bool]distribution pour rendre la sortie plus claire):

PS C:\Tools\Scripts\golfing> [bool](.\hashtag-or-not.ps1 '#2016Election')
False

PS C:\Tools\Scripts\golfing> [bool](.\hashtag-or-not.ps1 'Hello, World!')
False

PS C:\Tools\Scripts\golfing> [bool](.\hashtag-or-not.ps1 '#')
True

PS C:\Tools\Scripts\golfing> [bool](.\hashtag-or-not.ps1 '')
False

PS C:\Tools\Scripts\golfing> [bool](.\hashtag-or-not.ps1 '#USElection2016')
True

Mathematica, 52 46 43 octets

^{6 9 octets enregistrés grâce à @MartinEnder .}

StringMatchQ@RegularExpression@"#(?!\d)\w*"

Une fonction. Prend une chaîne en entrée et retourne Trueou Falseen sortie. Assez simple, correspond juste contre l'expression régulière /#(?!\d)\w*/.

Dyalog APL , 22 20 octets

Sans RegEx:

{0≤⎕NC 1↓⍵,⎕A}∧'#'=⊃

-2 grâce à ngn

Python 2, 79 octets

lambda x:x=='#'or(1>x[1].isdigit())&x[1:].replace('_','').isalnum()&('#'==x[0])

Première tentative de golf. Version non golfée:

def f(x):
    if x == '#':
        return True
    else:
        return x[0]=='#' and x[1:].replace('_','').isalnum() and not x[1].isdigit()

Octave, 37 56 54 43 octets

Merci à @LuisMendo d'avoir supprimé 8 octets!

@(s)s(1)==35&(isvarname(s(2:end))|nnz(s)<2)

Pas très golfique, mais très intégré.
Modifier: le code d'origine acceptait les chaînes sans «#» en tête. Je suppose que j'aurais dû m'en tenir à l'expression régulière.

Suite de tests sur ideone .

Python3 - 156 128 octets

lambda n:n=="#"or(n[0]=="#")*all(any([47<ord(c)<58,64<ord(c)<91,ord(c)==95,96<ord(c)<123])for c in n[1:]+"0")*~(47<ord(n[1])<58)

Une solution qui n'utilise pas regex. 0 est falsey et toutes les autres valeurs sont véridiques.

Merci à @LeakyNun pour avoir économisé des octets!

Lua, 59 55 54 octets

Code

s=arg[1]print(load(s:sub(2).."=0")and s:sub(1,1)=="#")

Comment ça marche:

1. Vérifiez si les autres caractères peuvent être un identifiant valud Lua (les identifiants dans Lua suivent les mêmes règles que les hashtags.)
2. Vérifiez si le premier caractère est un #.

Prend des entrées de la ligne de commande. Imprime truesi la chaîne est un hashtag valide, sinon, elle s'imprime nil.

Google Sheets, 30 octets

Une fonction de feuille de calcul anonyme qui prend l'entrée de la cellule A1la compare à l'expression RE2 et renvoie le résultat à la cellule appelante.

=RegexMatch(A1,"^#([a-z_]\w*)?

05AB1E , 18 octets

Code:

¬'#Qs¦A«¬d_sDžjKQP

Utilise l' encodage CP-1252 . Essayez-le en ligne! .

Sed 19 + 2 = 21 octets

/^#([a-z_]\w*)?$/Ip

Cela filtre tous les non-hashtags et génère des hashtags valides.

Exécuter en tant que sed -rn "/^#$|^#[a-z]\w*$/Ip". Quittez avec Ctrl+ D(envoyez EOF).

Grep GNU, 15 + 2 = 17 octets

grep -Ei '^#([a-z_]\w*)?$'

Tester:

$ echo '#
#e
#_ABC
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016
Hello, World!
#12thBday
#not-valid
#alsoNotValid!' | grep -Ei '^#([a-z_][a-z0-9_]*)?$'

Sortie:

#
#e
#_ABC
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Python 3, 97 octets 70 octets 56 octets

lambda x:s=x[2:];b=x[1];all(x!="#",[x[0]=="#",any[b.isalpha(),"_"in b],any[s.isalnum(),"_"in s]])

(Code modifié) Lisible par l'homme

x=input()
if x[0]=="#" and x[1].isalpha() and str(x)[2:].isalnum():
    print(True)
else:
    print(False)

Pyke, 19 octets

\#.^It,!It\_D-PRkq|

Essayez-le ici!

Solution rapide pour ce soir

Ruby, 16 + 3 1 ( ndrapeau) = 19 17 octets

Utilise 0comme véridique et nilcomme fausse.

p~/^#(?!\d)\w*$/

Exécutez-le en tant que ruby -ne 'p~/^#(?!\d)\w*$/'. Merci à @manatwork d'avoir corrigé l'erreur bash lors de l'exécution du programme.

Standard ML , 121 118 107 octets

(fn#"#"::a=>(fn x::r=>x> #"@"andalso List.all(fn#"_"=>1=1|c=>Char.isAlphaNum c)a|e=>1=1)a|e=>1=0)o explode;

Essayez-le en ligne! Solution fonctionnelle sans utiliser d'expression régulière. Déclare une fonction anonyme qui est liée à l'identificateur de résultat implicite it.

> val it = fn : string -> bool    
- it "#valid_hash";
> val it = true : bool

Excel VBA, 54 octets

Fonction de fenêtre immédiate VBE anonyme qui prend les entrées de la cellule [A1], vérifie si la valeur de la cellule correspond au Likemodèle et Booleanaffiche la fenêtre immédiate VBE

?Not[Left(A1,2)]Like"[#]#"And[A1]Like"[#][_a-zA-z0-9]*

Haskell , 79 octets

import Data.Char
f(a:r)=a=='#'&&r==""||r!!0>'@'&&all(\c->c=='_'||isAlphaNum c)r

Essayez-le en ligne!

C #, 92 octets

s=>s[0]=='#'&s.Length>1&&(s[1]<48|s[1]>57)&s.Skip(1).All(x=>char.IsLetterOrDigit(x)|x=='_');

C # lambda ( Predicate) où input est a stringet output est a bool.

Essayez-le en ligne!

Lua, 39 octets

print(arg[1]:match("^#[%a_][%a_%d]*$"))

Copypasta simple de la description du match. Génère un faux nilsi ce n'est pas un hashtag, renvoie un vrai hashtag dans le cas contraire.

Peut être raccourci pour un octet de plus en utilisant findsi la sortie de la liste de deux valeurs (ce qui est vrai) ne viole pas les règles.

Clojure, 130 135 132 octets

• +5 octets pour gérer un NPE qui s'est produit lorsque la chaîne n'était constituée que d'un hashtag.

• -2 octets en utilisant Character/isLetterOrDigit.

(fn[s](let[[h & r]s n(map int r)](and(= h\#)(not(<= 48(or(first n)0)57))(every? #(or(Character/isLetterOrDigit^long %)(= 95 %))n))))

Non golfé:

(defn hashtag? [s]
  (let [[h & r] s
        codes (map int r)]
    (and (= h \#)
         (not (<= 48 (or (first codes) 0) 57))
         (every?
           #(or (Character/isLetterOrDigit ^long %)
                (= 95 %))
           codes))))

Java 8, 57 54 28 octets

s->s.matches("#(?!\\d)\\w*")

Réponse Retina du port de Martin Ender pour économiser quelques octets et faire correspondre les cas de test ajoutés.
Cela ne String#matchescorrespond pas toujours à la chaîne entière, donc pas besoin de^...$ .

Essayez-le ici.