Bu kod golf mücadelesinde, hashtag'leri doğrulayacaksınız!

#What_your_code_should_do

Giriş bir dizedir. Geçerli bir karma etiket ise bir truthy değeri ve aksi takdirde sahte bir değer çıktı.

Eğer bir dize geçerli bir Hashtag olarak tanımlanırsa

• Bir karma ( #) ile başlar .
• Hashtag'den hemen sonra bir numarası yoktur (örneğin #2016USElectiongeçerli bir karma etiket değildir).
• Herhangi bir "özel karakter" e (yani bir alfabe, alt çizgi ( _) veya sayı olmayan herhangi bir karakter) sahip değildir .

Girişin yalnızca ASCII karakterleri içerdiğini varsayabilirsiniz. (Unicode da yaparsak haksızlık olur.)

#rules

Temel kod-golf kuralları geçerlidir.

#Examples

Truthy:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Falsy:

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

Retina , 12 bayt

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

1Hashtag'leri ve diğerlerini yazdırır 0.

Çevrimiçi deneyin! (İlk satır, satır besleme ayrılmış bir test takımı sağlar.)

Burada çok açıklamak, bu tanım oldukça değişmez uygulamasıdır: ^ve $sağlanması sadece çapalar olduğu maç kapakları tüm dizeyi, #çekler bir ile dizesinin başladığı #, (?!\d)sonraki karakterin olmasını sağlar değil ilerleyen olmadan bir rakam ( regex motorunun konumu), \w*dizenin sonuna sıfır veya daha fazla harf, rakam veya alt çizgi ile ulaşabileceğimizi kontrol eder.

Varsayılan olarak, Retina verilen regex'in eşleşme sayısını sayar, bu nedenle bu 1geçerli etiketler için ve diğerlerini verir 0.

Perl, 22 bayt

İçin 21 bayt kodu +1 -p

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

Geçerli bir karma etiket ise 1, aksi halde boş dize yazdırır.

kullanım

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

Martin Ender için 2 bayt kurtarıldı (ve arama yöntemini kullanarak başka bir 4 )

Perl, 18 bayt

İçin 17 bayt kodu +1 -p

Martin'in görünüşünü kullanmak bu çok daha kısa olabilir!

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

JavaScript (ES6), 25 bayt

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 bayt

İşlev f(), dizgeyi argüman olarak alır ve int *btruthy / falsy'yi belirtmek için 1 veya 0 olarak değişir.

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

Dize her zaman en az bir karaktere sahipse (yani hiçbir zaman boş bir dize), 79 bayt için bir bayt tıraş edilebilir:

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

Python 3, 41 bayt

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

Brachylog , 55 bayt

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

Bu, regex kullanmaz.

açıklama

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 bayt

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

#Varlık Trueben tek karakter girişine bir dizin hatasını önlemek için dize numaralandırılamıyor vardı burada beni öldürdü.

PowerShell v2 +, 25 bayt

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

Martin regex'ini kullanarak , PowerShell'in -matchoperatörüne girdiyle birleşti $args. Truthy / falsey değerleri için bu, dizinin kendisini bir eşleşmede (bir truthy değerinde) veya eşleşmeyen bir şeyde (bir falsey değeri) döndürür. Bunun nedeni, bir karşılaştırma işleci bir diziye karşı uygulandığında, bu işleci karşılayan her şeyi döndürmesidir .

Birkaç örnek ( [bool]çıktıyı daha net hale getirmek için alçıya sarılmış ):

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 bayt

^{MartinEnder nedeniyle kaydedilmiş 6 9 bayt .}

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

İşlev. Bir dizeyi girdi olarak alır ve döndürür Trueveya Falseçıktı olarak alır. Oldukça basit, sadece regex karşı eşleşir /#(?!\d)\w*/.

Dyalog APL , 22 20 bayt

RegEx olmadan:

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

-2 ngn sayesinde

Python 2,79 bayt

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

İlk golf denemesi. Ungolfed versiyonu:

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 bayt

8 baytı kaldırmak için @LuisMendo'ya teşekkürler!

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

Çok golf değil, ama çok yerleşik.
Düzenleme: Orijinal kod, baştaki '#' işareti olmayan dizeleri kabul eder. Galiba regex ile sıkışmış olmalıydım.

İdeone üzerinde test paketi .

Python3 - 156 128 bayt

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)

Regex kullanmayan bir çözüm. 0 falsey ve diğer her değer hakikaten.

Bayt tasarrufu için @LeakyNun teşekkürler!

Lua, 59 55 54 bayt

kod

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

Nasıl çalışır:

1. Karakterlerin geri kalanının geçerli bir Lua tanımlayıcısı olup olmadığını kontrol edin (Lua'daki tanımlayıcılar hashtag'lerle aynı kuralları izler.)
2. İlk karakterin a olup olmadığını kontrol edin #.

Komut satırından girdi alır. Yazdırır truedize geçerli bir hashtag ise, aksi takdirde yazdırır nil.

Google Sayfaları, 30 bayt

Hücreden girdi alan adsız bir çalışma sayfası işlevi, A1onu RE2 ifadesine karşı denetler ve sonucu çağıran hücreye verir.

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

05AB1E , 18 bayt

Kod:

¬'#Qs¦A«¬d_sDžjKQP

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin! .

Sed 19 + 2 = 21 bayt

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

Bu, tüm hashtag'leri filtreler ve geçerli hashtag'leri çıkarır.

Olarak çalıştır sed -rn "/^#$|^#[a-z]\w*$/Ip". Ctrl+ Dİle çıkın (EOF gönder).

GNU grep, 15 + 2 = 17 bayt

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

Ölçek:

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

Çıktı:

#
#e
#_ABC
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Python 3, 97 Bayt 70 Bayt 56 Bayt

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

(Kod değişti) İnsan tarafından okunabilir

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|

Try it here!

Quick fix for tonight

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

Uses 0 as truthy and nil as falsy.

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

Run it as ruby -ne 'p~/^#(?!\d)\w*$/'. Thanks to @manatwork for fixing the bash error when running the program.

Standard ML, 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;

Try it online! Functional solution without using regex. Declares an anonymous function which is bond to the implicit result identifier it.

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

Excel VBA, 54 bytes

Anonymous VBE immediate window function that takes input from cell [A1], checks if the value of the cell matches the Like pattern, and outputs as Boolean to the VBE immediate window

?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

Try it 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) where input is a string and output is a bool.

Try it online!

Lua, 39 bytes

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

Straightforward copypasta of match description. Outputs falsy nil if not hashtag, outputs truthly hashtag back otherwise.

Can be shortened for one more byte by using find if outputing list of two values (which is truthly) doesn't break rules.

Clojure, 130 135 132 bytes

• +5 bytes to deal with an NPE that happened when the string consisted of only a hashtag.

• -2 bytes by using 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*")

Port of Martin Ender's Retina answer to save a few bytes and match added test cases.
Not that String#matches always matches the entire String, so no need for ^...$.

Try it here.