У цьому виклику коду для гольфу ви перевірите хештеги!

#What_your_code_should_do

Введення - це рядок. Виведіть значення truthy, якщо це дійсний хештег, а фальш-значення - в іншому випадку.

Ми визначаємо рядок як дійсний хештег, якщо ...

• Починається з хеша ( #).
• У нього немає номера відразу після хештега (наприклад #2016USElection, недійсний хештег).
• У ньому немає «спеціальних символів» (тобто будь-якого символу, який не є алфавітом, підкресленням ( _) або числом).

Можна припустити, що вхід містить лише символи ASCII. (Було б несправедливо, якби ми зробили і Unicode.)

# Правила

Діють основні правила гольф-коду .

# Приклади

Truthy:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Фальсі:

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

Сітківка , 12 байт

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

Друкує 1хештеги та 0інше.

Спробуйте в Інтернеті! (Перший рядок включає тестовий набір, відокремлений виведенням ліній.)

Тут не так багато пояснювати, це досить буквальна реалізація визначення: ^і $це лише якір, що гарантує, що збіг охоплює всю рядок, #перевіряє, що рядок починається з а #, (?!\d)гарантує, що наступний символ не є цифрою (без просування вперед положення двигуна регулярних виразів) \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 байти за Мартіна Ендера (та ще 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

Брахілог , 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*$'

Використовуючи регекс Мартіна , щойно завернувся в -matchоператор PowerShell, поєднаний із входом $args. Для значень truthy / falsey це поверне собі рядок на відповідність (значення truthy) або нічого на не збіг (значення фальси). Це тому, що коли оператор порівняння застосовується до масиву, він повертає все, що задовольняє цього оператора.

Кілька прикладів (загорнуті в [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

Математика, 52 46 43 байт

^{Збережено 6 9 байт завдяки @MartinEnder .}

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

Функція. Приймає рядок як вхідний, і повертає, Trueабо Falseяк вихідний. Досить простий, просто відповідає проти регулярного виразів /#(?!\d)\w*/.

Діалог 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 - фальси, і будь-яке інше значення - truthy.

Дякуємо @LeakyNun за збереження байтів!

Луа, 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

Пітон 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)

Пайк, 19 байт

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

Спробуйте тут!

Швидке виправлення на сьогоднішній день

Ruby, 16 + 3 1 ( nпрапор) = 19 17 байт

Використовується 0як надійна, так і хибна nil.

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]*

Хаскелл , 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.

Спробуйте в Інтернеті!

Луа, 39 байт

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

Пряма копія опису відповідності. Виходи хибніnil якщо не хештег, істинно виводить хештег інакше.

Можна скоротити ще один байт, використовуючи, 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*")

Порт Retina відповідь Мартіна Ендер , щоб заощадити кілька байт і сполучати додані тестові випадки.
Не String#matchesзавжди це відповідає всій рядку, тому не потрібно ^...$.

Спробуйте тут.