Dalam tantangan kode golf ini, Anda akan memverifikasi tagar!

#What_your_code_should_do

Input adalah sebuah string. Keluarkan nilai kebenaran jika tagar yang valid, dan nilai palsu sebaliknya.

Kami mendefinisikan string sebagai Hashtag yang valid jika ...

• Dimulai dengan hash ( #).
• Tidak memiliki nomor tepat setelah tagar (mis. Tagar #2016USElectiontidak valid).
• Itu tidak memiliki "karakter khusus" (yaitu karakter apa pun yang bukan alfabet, garis bawah ( _) atau angka).

Anda dapat mengasumsikan bahwa input hanya berisi karakter ASCII. (Akan tidak adil jika kita melakukan Unicode juga.)

# Aturan

Aturan main kode-golf berlaku.

#Contoh

Benar:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Falsy:

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

Retina , 12 byte

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

Cetakan 1untuk tagar dan 0lainnya.

Cobalah online! (Baris pertama memungkinkan suite tes yang dipisahkan dengan linefeed.)

Tidak banyak yang dijelaskan di sini, ini adalah implementasi definisi yang sangat literal: ^dan $hanya jangkar yang memastikan bahwa kecocokan mencakup seluruh string, #memeriksa apakah string dimulai dengan #, (?!\d)memastikan bahwa karakter selanjutnya bukan digit (tanpa memajukan posisi mesin regex), \w*periksa bahwa kita dapat mencapai ujung string dengan nol atau lebih huruf, digit atau garis bawah.

Secara default, Retina menghitung jumlah kecocokan dari regex yang diberikan, itulah sebabnya ini memberikan 1tag hash yang valid dan 0sebaliknya.

Perl, 22 byte

21 byte kode +1 untuk -p

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

Mencetak 1 jika hashtag yang valid, kosongkan jika tidak.

Pemakaian

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

Disimpan 2 byte, terima kasih untuk Martin Ender (dan 4 lainnya menggunakan metode lookaround- nya )

Perl, 18 byte

17 byte kode +1 untuk -p

Menggunakan lookaround Martin ini bisa jauh lebih pendek!

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

Fungsi f()mengambil string sebagai argumen dan memodifikasi int *bke 1 atau 0 untuk menunjukkan kebenaran / kepalsuan.

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

Jika string selalu memiliki setidaknya satu karakter (yaitu tidak pernah string kosong), byte dapat dicukur menjadi 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

Ini tidak menggunakan regex.

Penjelasan

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

The #makhluk Truemembunuh saya di sini, saya harus menghitung string untuk menghindari kesalahan indeks pada input karakter tunggal.

PowerShell v2 +, 25 byte

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

Menggunakan regex Martin , baru saja dibungkus dengan -matchoperator PowerShell ditambah dengan input $args. Untuk nilai-nilai truthy / falsey, ini akan mengembalikan string itu sendiri pada pertandingan (nilai kebenaran) atau tidak ada pada non-pertandingan (nilai falsey). Ini karena ketika operator perbandingan diterapkan terhadap array, ia mengembalikan apa pun yang memuaskan operator itu.

Beberapa contoh (dibungkus [bool]gips untuk membuat output lebih jelas):

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

^{Disimpan 6 9 byte karena @MartinEnder .}

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

Fungsi. Mengambil string sebagai input, dan mengembalikan Trueatau Falsesebagai output. Cukup sederhana, hanya cocok melawan regex /#(?!\d)\w*/.

Dyalog APL , 22 20 byte

Tanpa RegEx:

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

-2 Terima kasih kepada ngn

Python 2, 79 byte

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

Upaya bermain golf pertama. Versi tidak disatukan:

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

Oktaf, 37 56 54 43 byte

Terima kasih kepada @LuisMendo karena menghapus 8 byte!

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

Tidak terlalu golf, tetapi sangat built-inny.
Sunting: Kode asli menerima string tanpa '#' memimpin. Saya kira saya harus terjebak dengan regex.

Test suite pada 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)

Solusi yang tidak menggunakan regex. 0 adalah falsey dan setiap nilai lainnya benar.

Terima kasih kepada @LeakyNun untuk menghemat byte!

Lua, 59 55 54 byte

Kode

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

Bagaimana itu bekerja:

1. Periksa apakah sisa karakter dapat menjadi pengenal Lua yang tepat (pengidentifikasi di Lua mengikuti aturan yang sama dengan tagar.)
2. Periksa apakah karakter pertama adalah a #.

Mengambil input dari baris perintah. Mencetak truejika string adalah tagar yang valid, jika tidak, akan dicetak nil.

Google Sheets, 30 byte

Fungsi lembar kerja anonim yang mengambil input dari sel A1mengeceknya terhadap ekspresi RE2 dan mengeluarkan hasilnya ke sel yang memanggil.

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

05AB1E , 18 byte

Kode:

¬'#Qs¦A«¬d_sDžjKQP

Menggunakan pengkodean CP-1252 . Cobalah online! .

Sed 19 + 2 = 21 byte

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

Ini menyaring semua tagar non-hashtag dan output yang valid.

Jalankan sebagai sed -rn "/^#$|^#[a-z]\w*$/Ip". Berhenti dengan Ctrl+ D(kirim EOF).

GNU grep, 15 + 2 = 17 byte

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

Uji:

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

Keluaran:

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

(Kode berubah) Dapat dibaca manusia

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|

Coba di sini!

Perbaikan cepat untuk malam ini

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

Penggunaan 0sebagai truthy dan nilsebagai falsy.

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

Jalankan sebagai ruby -ne 'p~/^#(?!\d)\w*$/'. Terima kasih kepada @manatwork untuk memperbaiki kesalahan bash saat menjalankan program.

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

Cobalah online! Solusi fungsional tanpa menggunakan regex. Menyatakan fungsi anonim yang terikat dengan pengidentifikasi hasil implisit it.

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

Excel VBA, 54 byte

Fungsi jendela langsung VBE anonim yang mengambil input dari sel [A1], memeriksa apakah nilai sel cocok dengan Likepola, dan menampilkan Booleanke jendela langsung 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

Cobalah 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) dengan input a stringdan output a bool.

Cobalah online!

Lua, 39 byte

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

Copypasta langsung dari deskripsi pertandingan. Output palsu niljika tidak hashtag, output sebenarnya hashtag kembali sebaliknya.

Dapat disingkat menjadi satu byte lagi dengan menggunakan findjika menampilkan daftar dua nilai (yang sebenarnya) tidak melanggar aturan.

Clojure, 130 135 132 byte

• +5 byte untuk menangani NPE yang terjadi ketika string hanya terdiri dari tagar.

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

Tidak Disatukan:

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

Port of Martin Ender's Retina menjawab untuk menyimpan beberapa byte dan mencocokkan test case yang ditambahkan.
Bukan berarti String#matchesselalu cocok dengan seluruh String, jadi tidak perlu ^...$.

Coba di sini.