In questa sfida di golf del codice, verifichi gli hashtag!

#What_your_code_should_do

L'input è una stringa. Emette un valore di verità se è un hashtag valido e un valore di falsa in caso contrario.

Definiamo una stringa come un hashtag valido se ...

• Inizia con un hash ( #).
• Non ha un numero subito dopo l'hashtag (ad es. #2016USElectionNon è un hashtag valido).
• Non ha "caratteri speciali" (ovvero qualsiasi carattere che non sia un alfabeto, un trattino basso ( _) o un numero).

Si può presumere che l'input contenga solo caratteri ASCII. (Sarebbe ingiusto se facessimo anche Unicode.)

#Regole

Si applicano le regole di base del code-golf .

#Examples

Truthy:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Falsy:

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

Retina , 12 byte

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

Stampa 1per hashtag e 0altro.

Provalo online! (La prima riga abilita una suite di test separata da avanzamento riga.)

Non c'è molto da spiegare qui, questa è un'implementazione piuttosto letterale della definizione: ^e $sono solo ancore che assicurano che la corrispondenza copra l'intera stringa, #controlla che la stringa inizi con una #, (?!\d)assicura che il carattere successivo non sia una cifra (senza avanzare la posizione del motore regex), \w*controlla che possiamo raggiungere la fine della stringa con zero o più lettere, cifre o caratteri di sottolineatura.

Per impostazione predefinita, Retina conta il numero di corrispondenze della regex data, motivo 1per cui ciò fornisce tag hash validi e in 0altro modo.

Perl, 22 byte

21 byte codice +1 per -p

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

Stampa 1 se è un hashtag valido, altrimenti stringa vuota.

uso

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

Salvato 2 byte grazie per Martin Ender (e altri 4 usando il suo metodo lookaround )

Perl, 18 byte

17 byte codice +1 per -p

Usando il lookaround di Martin questo può essere molto più breve!

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

JavaScript (ES6), 25 byte

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 byte

La funzione f()accetta la stringa come argomento e modifica int *bin 1 o 0 per indicare verità / falsa.

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

Se la stringa ha sempre almeno un carattere (ovvero mai una stringa vuota), un byte può essere rasato per 79 byte:

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

Python 3, 41 byte

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

Brachylog , 55 byte

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

Questo non usa regex.

Spiegazione

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 byte

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

L' #essere Trueucciso me qui, ho dovuto elencare la stringa per evitare un errore di indice sull'ingresso singolo carattere.

PowerShell v2 +, 25 byte

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

Usando il regex di Martin , appena concluso nell'operatore di PowerShell -matchaccoppiato con l'input $args. Per i valori di verità / falsità, questo restituirà la stringa stessa su una corrispondenza (un valore di verità) o nulla su una non corrispondenza (un valore di falsità). Questo perché quando un operatore di confronto viene applicato a un array, restituisce tutto ciò che soddisfa tale operatore.

Un paio di esempi (racchiusi in un [bool]cast per rendere più chiaro l'output):

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 byte

^{6 9 byte salvati grazie a @MartinEnder .}

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

Funzione. Prende una stringa come input e restituisce Trueo Falsecome output. Abbastanza semplice, corrisponde solo alla regex /#(?!\d)\w*/.

Dyalog APL , 22 20 byte

Senza RegEx:

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

-2 grazie a ngn

Python 2, 79 byte

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

Primo tentativo di golf. Versione non golfata:

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

Ottava, 37 56 54 43 byte

Grazie a @LuisMendo per aver rimosso 8 byte!

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

Non molto da golf, ma molto integrato.
Modifica: il codice originale ha accettato le stringhe senza '#' iniziale. Immagino che avrei dovuto rimanere bloccato con regex.

Suite di test su ideone .

Python3 - 156 128 byte

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)

Una soluzione che non utilizza regex. 0 è falso e ogni altro valore è vero.

Grazie a @LeakyNun per aver salvato i byte!

Lua, 59 55 54 byte

Codice

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

Come funziona:

1. Controlla se il resto dei personaggi può essere un identificatore Lua valido (gli identificatori in Lua seguono le stesse regole degli hashtag.)
2. Controlla se il primo carattere è a #.

Riceve input dalla riga di comando. Stampa truese la stringa è un hashtag valido, altrimenti stampa nil.

Fogli Google, 30 byte

Una funzione anonima del foglio di lavoro che accetta l'input dalla cella A1lo confronta con l'espressione RE2 e invia il risultato alla cella chiamante.

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

05AB1E , 18 byte

Codice:

¬'#Qs¦A«¬d_sDžjKQP

Utilizza la codifica CP-1252 . Provalo online! .

Sed 19 + 2 = 21 byte

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

Questo filtra tutti i non hashtag e genera hashtag validi.

Esegui come sed -rn "/^#$|^#[a-z]\w*$/Ip". Esci con Ctrl+ D(invia EOF).

GNU grep, 15 + 2 = 17 byte

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

Test:

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

Produzione:

#
#e
#_ABC
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Python 3, 97 byte 70 byte 56 byte

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

(Codice modificato) Leggibile dall'uomo

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

Pyke, 19 byte

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

Provalo qui!

Soluzione rapida per stasera

Rubino, 16 + 3 1 ( nbandiera) = 19 17 byte

Utilizza 0come verità e nilfalsità.

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

Eseguilo come ruby -ne 'p~/^#(?!\d)\w*$/'. Grazie a @manatwork per aver corretto l'errore bash durante l'esecuzione del programma.

ML standard , 121 118 107 byte

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

Provalo online! Soluzione funzionale senza usare regex. Dichiara una funzione anonima che è vincolata all'identificatore del risultato implicito it.

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

Excel VBA, 54 byte

Funzione di finestra immediata VBE anonima che accetta input dalla cella [A1], controlla se il valore della cella corrisponde al Likemodello e restituisce Booleanla finestra immediata VBE

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

Haskell , 79 byte

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

Provalo online!

C #, 92 byte

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

C # lambda ( Predicate) dove input è a stringe output è a bool.

Provalo online!

Lua, 39 byte

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

Copypasta semplice della descrizione della partita. Output falsinil se non hashtag, restituisce in verità hashtag in caso contrario.

Può essere abbreviato per un altro byte usando findse l'output dell'elenco di due valori (che è sincero) non infrange le regole.

Clojure, 130 135 132 byte

• +5 byte per gestire un NPE che si è verificato quando la stringa consisteva solo di un hashtag.

• -2 byte usando 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))))

Ungolfed:

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

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

La risposta Retina di Port of Martin Ender per salvare qualche byte e abbinare i casi di test aggiunti.
Non String#matchescorrisponde sempre all'intera stringa, quindi non è necessario^...$ .

Provalo qui.