Trong thử thách golf mã này, bạn sẽ xác minh hashtags!

#What_your_code_should_do

Đầu vào là một chuỗi. Xuất ra một giá trị trung thực nếu đó là một hashtag hợp lệ và mặt khác là giá trị giả.

Chúng tôi xác định một chuỗi là Hashtag hợp lệ nếu ...

• Nó bắt đầu bằng hàm băm ( #).
• Nó không có số ngay sau hashtag (ví dụ: #2016USElectionkhông phải là hashtag hợp lệ).
• Nó không có bất kỳ "ký tự đặc biệt" nào (tức là bất kỳ ký tự nào không phải là bảng chữ cái, dấu gạch dưới ( _) hoặc số).

Bạn có thể giả sử rằng đầu vào chỉ chứa các ký tự ASCII. (Sẽ không công bằng nếu chúng tôi cũng làm Unicode.)

#Quy tắc

Quy tắc golf-golf cơ bản được áp dụng.

# Ví dụ

Sự thật:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Giả mạo:

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

Võng mạc , 12 byte

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

In 1cho hashtags và 0cách khác.

Hãy thử trực tuyến! (Dòng đầu tiên cho phép bộ kiểm tra được phân tách bằng nguồn cấp.)

Không có gì nhiều để giải thích ở đây, đây là một cách thực hiện đúng theo định nghĩa: ^và $chỉ là các neo đảm bảo rằng trận đấu bao trùm toàn bộ chuỗi, #kiểm tra xem chuỗi bắt đầu bằng a #, (?!\d)đảm bảo rằng ký tự tiếp theo không phải là chữ số (không tiến lên vị trí của công cụ regex), \w*kiểm tra xem chúng ta có thể đến cuối chuỗi bằng không hoặc nhiều chữ cái, chữ số hoặc dấu gạch dưới.

Theo mặc định, Retina đếm số lượng kết quả khớp của regex đã cho, đó là lý do tại sao điều này mang lại 1cho các thẻ băm hợp lệ và mặt 0khác.

Perl, 22 byte

Mã 21 byte +1 cho -p

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

In 1 nếu đó là hashtag hợp lệ, chuỗi trống khác.

Sử dụng

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

Đã lưu 2 byte nhờ Martin Ender (và 4 người khác sử dụng phương pháp nhìn của anh ta )

Perl, 18 byte

17 byte mã +1 cho -p

Sử dụng cái nhìn của Martin này có thể ngắn hơn nhiều!

$_=/^#(?!\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

Hàm f()lấy chuỗi làm đối số và sửa đổi int *bthành 1 hoặc 0 để biểu thị tính trung thực / giả.

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

Nếu chuỗi luôn có ít nhất một ký tự (nghĩa là không bao giờ là chuỗi rỗng), một byte có thể bị loại bỏ trong 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

Điều này sử dụng không có regex.

Giải trình

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

Các #con Truegiết tôi ở đây, tôi đã phải liệt kê chuỗi để tránh một lỗi chỉ mục trên các đầu vào nhân vật duy nhất.

PowerShell v2 +, 25 byte

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

Sử dụng biểu thức chính của Martin , chỉ cần đóng gói trong -matchtoán tử của PowerShell cùng với đầu vào $args. Đối với các giá trị trung thực / falsey, điều này sẽ trả về chính chuỗi trên một kết quả khớp (một giá trị trung thực) hoặc không có gì trên một kết quả không khớp (một giá trị falsey). Điều này là do khi một toán tử so sánh được áp dụng đối với một mảng, nó sẽ trả về bất cứ thứ gì thỏa mãn toán tử đó.

Một vài ví dụ (được gói trong một [bool]dàn diễn viên để làm cho đầu ra rõ ràng hơn):

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

Toán học, 52 46 43 byte

^{Đã lưu 6 9 byte do @MartinEnder .}

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

Chức năng. Lấy một chuỗi làm đầu vào và trả về Truehoặc Falselà đầu ra. Khá đơn giản, chỉ cần phù hợp với regex /#(?!\d)\w*/.

APL Dyalog , 22 20 byte

Không có RegEx:

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

-2 nhờ ngn

Python 2, 79 byte

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

Nỗ lực chơi gôn đầu tiên. Phiên bản bị đánh cắp:

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 byte

Cảm ơn @LuisMendo vì đã xóa 8 byte!

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

Không phải là rất golf, nhưng rất tích hợp.
Chỉnh sửa: Mã ban đầu được chấp nhận chuỗi không có '#' hàng đầu. Tôi đoán tôi nên bị mắc kẹt với regex.

Bộ thử nghiệm trên 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)

Một giải pháp không sử dụng regex. 0 là falsey và mọi giá trị khác là sự thật.

Cảm ơn @LeakyNun vì đã lưu byte!

Lua, 59 55 54 byte

Mã

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

Làm thế nào nó hoạt động:

1. Kiểm tra xem phần còn lại của các ký tự có thể là định danh Lua valud hay không (số nhận dạng trong Lua tuân theo các quy tắc giống như hashtags.)
2. Kiểm tra xem ký tự đầu tiên là a #.

Lấy đầu vào từ dòng lệnh. In truenếu chuỗi là một hashtag hợp lệ, nếu không, nó sẽ in nil.

Google Sheets, 30 byte

Một hàm bảng tính ẩn danh nhận đầu vào từ ô sẽ A1kiểm tra nó dựa vào biểu thức RE2 và đưa kết quả ra cho ô gọi.

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

05AB1E , 18 byte

Mã số:

¬'#Qs¦A«¬d_sDžjKQP

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến! .

Sed 19 + 2 = 21 byte

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

Điều này lọc ra tất cả các hashtag không và xuất ra các hashtag hợp lệ.

Chạy như sed -rn "/^#$|^#[a-z]\w*$/Ip". Thoát với Ctrl+ D(gửi EOF).

GNU grep, 15 + 2 = 17 byte

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

Kiểm tra:

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

Đầu ra:

#
#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]])

(Mã đã thay đổi) Con người có thể đọc được

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|

Hãy thử nó ở đây!

Khắc phục nhanh cho tối nay

Ruby, 16 + 3 1 ( ncờ) = 19 17 byte

Công dụng 0 như là sự thật và giả nil.

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

Chạy nó như ruby -ne 'p~/^#(?!\d)\w*$/'. Cảm ơn @manatwork đã sửa lỗi bash khi chạy chương trình.

ML chuẩn , 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;

Hãy thử trực tuyến! Giải pháp chức năng mà không cần sử dụng regex. Khai báo một hàm ẩn danh là liên kết với định danh kết quả ngầm định it.

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

VBA Excel, 54 byte

Hàm cửa sổ tức thời VBE ẩn danh lấy đầu vào từ ô [A1], kiểm tra xem giá trị của ô có khớp với Likemẫu không và xuất ra như Booleancửa sổ ngay lập tức 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

Hãy thử trực tuyến!

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) trong đó đầu vào là mộtstring và đầu ra là a bool.

Hãy thử trực tuyến!

Lua, 39 byte

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

Copypasta đơn giản của mô tả trận đấu. Đầu ra giảnil nếu không hashtag, xuất ra hashtag thật sự ngược lại.

Có thể rút ngắn thêm một byte bằng cách sử dụng findnếu đầu ra danh sách hai giá trị (đó là sự thật) không phá vỡ quy tắc.

Clojure, 130 135 132 byte

• +5 byte để xử lý một NPE đã xảy ra khi chuỗi chỉ bao gồm một hashtag.

• -2 byte bằng cách sử dụng 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))))

Ung dung:

(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*")

Câu trả lời Retina của Port Martin Ender để lưu một vài byte và khớp các trường hợp kiểm tra được thêm vào.
Không phải String#matcheslúc nào cũng khớp với toàn bộ Chuỗi, vì vậy không cần ^...$.

Hãy thử nó ở đây.