Neste desafio de código de golfe, você verificará hashtags!

#What_your_code_should_do

Entrada é uma sequência. Emita um valor verdadeiro se for uma hashtag válida e, caso contrário, um valor falso.

Definimos uma string como um Hashtag válido se ...

• Começa com um hash ( #).
• Ele não tem um número logo após a hashtag (por exemplo, #2016USElectionnão é uma hashtag válida).
• Não possui "caracteres especiais" (ou seja, qualquer caractere que não seja um alfabeto, sublinhado ( _) ou número).

Você pode assumir que a entrada contém apenas caracteres ASCII. (Seria injusto se fizéssemos o Unicode também.)

#Regras

Aplicam-se regras básicas de golfe com código .

#Exemplos

Verdade:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Falsy:

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

Retina , 12 bytes

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

Imprime 1para hashtags e 0outros.

Experimente online! (A primeira linha ativa um conjunto de testes separado por avanço de linha.)

Não há muito a explicar aqui, esta é uma implementação literal da definição: ^e $são apenas âncoras, garantindo que a correspondência cubra toda a cadeia, #verifique se a cadeia começa com a #, (?!\d)garante que o próximo caractere não seja um dígito (sem avançar posição do mecanismo regex), \w*verifica se podemos chegar ao final da string com zero ou mais letras, dígitos ou sublinhados.

Por padrão, a Retina conta o número de correspondências do regex especificado, e é por isso que isso fornece 1tags hash válidas e 0outras coisas.

Perl, 22 bytes

Código de 21 bytes +1 para -p

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

Imprime 1 se for uma hashtag válida. Seqüência vazia, caso contrário.

Uso

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

Economizou 2 bytes graças a Martin Ender (e outros 4 usando seu método de busca )

Perl, 18 bytes

Código de 17 bytes +1 para -p

Usando o lookaround de Martin, isso pode ser muito mais curto!

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

JavaScript (ES6), 25 bytes

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 bytes

A função f()pega a string como argumento e modifica int *bpara 1 ou 0 para indicar verdade / falsidade.

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

Se a string sempre tiver pelo menos um caractere (ou seja, nunca uma string vazia), um byte poderá ser cortado por 79 bytes:

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

Python 3, 41 bytes

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

Braquilog , 55 bytes

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

Isso não usa regex.

Explicação

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 bytes

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

O #ser Trueme matou aqui, eu tinha para enumerar a corda para evitar um erro índice na entrada de caracteres única.

PowerShell v2 +, 25 bytes

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

Usando a expressão regular de Martin , envolvida apenas no -matchoperador do PowerShell, juntamente com a entrada $args. Para valores truthy / falsey, isso retornará a própria string em uma correspondência (um valor de verdade) ou nada em uma não correspondência (um valor de falsey). Isso ocorre porque quando um operador de comparação é aplicado a uma matriz, ele retorna qualquer coisa que satisfaça esse operador.

Alguns exemplos (agrupados [bool]para tornar a saída mais clara):

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 bytes

^{Salvo 6 9 bytes devido a @MartinEnder .}

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

Função. Pega uma string como entrada e retorna Trueou Falsecomo saída. Muito simples, apenas combina com o regex /#(?!\d)\w*/.

Dyalog APL , 22 20 bytes

Sem RegEx:

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

-2 graças a ngn

Python 2, 79 bytes

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

Primeira tentativa de golfe. Versão não destruída:

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

Oitava, 37 56 54 43 bytes

Obrigado a @LuisMendo por remover 8 bytes!

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

Não é muito golfista, mas muito embutido.
Editar: o código original aceita cadeias sem '#' à esquerda. Acho que deveria ter ficado com o regex.

Conjunto de testes em ideone .

Python3 - 156 128 bytes

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)

Uma solução que não usa regex. 0 é falsey e todos os outros valores são verdadeiros.

Obrigado a @LeakyNun por salvar bytes!

Lua, 59 55 54 bytes

Código

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

Como funciona:

1. Verifique se o restante dos caracteres pode ser um identificador valud de Lua (os identificadores em Lua seguem as mesmas regras que as hashtags.)
2. Verifique se o primeiro caractere é a #.

Recebe entrada da linha de comando. Imprime truese a string for uma hashtag válida, caso contrário, ela será impressa nil.

Planilhas Google, 30 bytes

Uma função de planilha anônima que recebe entrada da célula A1a compara com a expressão RE2 e gera o resultado para a célula que está chamando.

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

05AB1E , 18 bytes

Código:

¬'#Qs¦A«¬d_sDžjKQP

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

Sed 19 + 2 = 21 bytes

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

Isso filtra todas as não hashtags e gera hashtags válidas.

Executar como sed -rn "/^#$|^#[a-z]\w*$/Ip". Saia com Ctrl+ D(envie EOF).

GNU grep, 15 + 2 = 17 bytes

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

Teste:

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

Saída:

#
#e
#_ABC
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Python 3, 97 bytes 70 bytes 56 bytes

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

(Código alterado) legível por humanos

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

Pyke, 19 bytes

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

Experimente aqui!

Solução rápida para hoje à noite

Ruby, 16 + 3 1 ( nsinalizador) = 19 17 bytes

Usa 0como verdade e nilcomo falsidade.

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

Execute-o como ruby -ne 'p~/^#(?!\d)\w*$/'. Obrigado a @manatwork por corrigir o erro do bash ao executar o programa.

ML padrão , 121 118 107 bytes

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

Experimente online! Solução funcional sem usar regex. Declara uma função anônima que está vinculada ao identificador implícito de resultados it.

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

Excel VBA, 54 bytes

Função de janela imediata VBE anônima que recebe entrada da célula [A1], verifica se o valor da célula corresponde ao Likepadrão e gera saída Booleanpara a janela imediata VBE

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

Haskell , 79 bytes

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

Experimente online!

C #, 92 bytes

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

C # lambda ( Predicate) onde entrada é a stringe saída é a bool.

Experimente online!

Lua, 39 bytes

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

Copypasta simples da descrição da partida. Saídas falsas, nilse não hashtag, retornam verdadeiramente a hashtag.

Pode ser reduzido para mais um byte usando findse a lista de saída de dois valores (que é verdadeira) não quebra as regras.

Clojure, 130 135 132 bytes

• +5 bytes para lidar com um NPE que ocorreu quando a sequência consistia em apenas uma hashtag.

• -2 bytes 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 bytes

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

A resposta Retina do porto de Martin Ender para salvar alguns bytes e corresponder aos casos de teste adicionados.
Nem String#matchessempre isso corresponde a toda a String, portanto não há necessidade ^...$.

Experimente aqui.