在此代码高尔夫挑战赛中，您将验证标签！

#What_your_code_should_do

输入是一个字符串。如果它是有效的标签，则输出一个真实值，否则输出一个虚假值。

如果...，我们将字符串定义为有效的标签。

• 它以井号（#）开头。
• 井号后面没有数字（例如#2016USElection，不是有效的井号）。
• 它没有任何“特殊字符”（即，不是字母，下划线（_）或数字的任何字符）。

您可以假定输入仅包含ASCII字符。（如果我们也执行Unicode，那将是不公平的。）

＃规则

基本的代码高尔夫球规则适用。

＃例子

真相：

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

虚假：

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

视网膜，12字节

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

打印1主题标签等0。

在线尝试！（第一行启用换行分隔的测试套件。）

在这里无需多解释，这是该定义的字面实现：^并且$只是定位符，确保匹配项覆盖整个字符串，#检查字符串以a开头#，(?!\d)确保下一个字符不是数字（不进行前移） regex引擎的位置），\w*检查我们是否可以使用零个或多个字母，数字或下划线到达字符串的末尾。

默认情况下，Retina会计数给定正则表达式匹配项的数量，这就是为什么这会1提供有效的哈希标记，0否则给出的原因。

Perl，22个字节

21个字节的代码+1用于 -p

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

如果是有效的主题标签，则显示1，否则显示空字符串。

用法

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

保存了2个字节，感谢Martin Ender（另外4个使用他的环视方法）

Perl，18个字节

17个字节的代码+1，用于 -p

使用马丁的环顾四周，这可能要短得多！

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

JavaScript（ES6），25个字节

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字节

函数f()将字符串作为参数，并修改int *b为1或0表示真/假。

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

如果字符串始终至少包含一个字符（即从不为空字符串），则可以将一个字节切掉79个字节：

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

Python 3，41个字节

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

Brachylog，55个字节

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

这不使用正则表达式。

说明

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字节

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

在这里#被True我杀了，我不得不枚举字符串以避免单个字符输入出现索引错误。

PowerShell v2 +，25个字节

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

使用Martin的正则表达式，将其包装在PowerShell的-match运算符中，再加上input $args。对于true / falsey值，这将在匹配项（真实值）上返回字符串本身，或者在不匹配项（falsey值）上返回字符串本身。这是因为当对数组应用比较运算符时，它会返回满足该运算符的所有内容。

几个示例（包装在[bool]演员表中以使输出更清晰）：

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字节

^{由于@MartinEnder而节省了6 9个字节。}

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

功能。将字符串作为输入，然后返回True或False作为输出。非常简单，只需与regex匹配即可/#(?!\d)\w*/。

Dyalog APL，22 20 字节

没有RegEx：

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

-2感谢ngn

Python 2，79字节

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

第一次打高尔夫球。非高尔夫版本：

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

八度，37 56 54 43字节

感谢@LuisMendo删除了8个字节！

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

不是很高尔夫，但是很内在。
编辑：原始代码接受没有前导'＃'的字符串。我想我应该坚持使用正则表达式。

ideone上的测试套件。

Python3 - 156个 128字节

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)

不使用正则表达式的解决方案。0为假，其他所有值为真。

感谢@LeakyNun节省了字节！

Lua 59 55 54字节

码

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

怎么运行的：

1. 检查其余字符是否可以作为Lua的重要标识符（Lua中的标识符遵循与标签相同的规则。）
2. 检查第一个字符是否为#。

从命令行获取输入。打印true字符串是否是一个有效的井号标签，否则，它打印nil。

Google表格，30个字节

从单元格获取输入的匿名工作表函数将A1对照RE2表达式对其进行检查，并将结果输出到调用单元格。

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

05AB1E，18个字节

码：

¬'#Qs¦A«¬d_sDžjKQP

使用CP-1252编码。在线尝试！。

Sed 19 + 2 = 21字节

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

这将过滤掉所有非主题标签并输出有效的主题标签。

运行为sed -rn "/^#$|^#[a-z]\w*$/Ip"。用Ctrl+ 退出D（发送EOF）。

GNU grep，15 + 2 = 17个字节

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

测试：

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

输出：

#
#e
#_ABC
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Python 3，97字节70字节56字节

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

（代码已更改）人类可读

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

Pyke，19个字节

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

在这里尝试！

今晚快速解决

Ruby，16 + 3 1（n标志）= 19 17个字节

用途0为truthy和nil作为falsy。

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

运行为ruby -ne 'p~/^#(?!\d)\w*$/'。感谢@manatwork在运行程序时修复了bash错误。

标准ML，121个 118 107字节

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

在线尝试！ 无需使用正则表达式的功能解决方案。声明一个匿名函数，该函数绑定到隐式结果标识符it。

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

Excel VBA，54个字节

匿名VBE立即窗口函数，它从单元格获取输入[A1]，检查单元格的值是否与Like模式匹配，并输出Boolean有关VBE立即窗口的信息

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

Haskell，79个字节

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

在线尝试！

C＃，92个字节

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

C＃lambda（Predicate），其中输入为a string，输出为a bool。

在线尝试！

Lua，39个字节

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

比赛描述的直接副本。输出falsy nil如果不包括hashtag，输出亦真亦幻包括hashtag回，否则。

find如果使用输出两个值的列表（这是正确的）不会违反规则，则可以缩短一个字节。

Clojure中，130个 135 132字节

• +5个字节来处理字符串仅包含井号的NPE。

• 使用-2个字节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))))

取消高尔夫：

(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字节

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

Martin Ender的Retina答案端口可节省一些字节并匹配添加的测试用例。
并非String#matches总是与整个String匹配，所以不需要^...$。

在这里尝试。