В этом кодовом соревновании по гольфу вы проверите хэштеги!

#What_your_code_should_do

Ввод - это строка. Выведите истинное значение, если оно является допустимым хэштегом, и ложное значение в противном случае.

Мы определяем строку как действительный хэштег, если ...

• Начинается с хеша ( #).
• Он не имеет номера сразу после хэштега (например #2016USElection, не является действительным хэштегом).
• Он не имеет каких-либо «специальных символов» (т. Е. Любых символов, которые не являются алфавитом, подчеркиванием ( _) или числом).

Вы можете предположить, что ввод содержит только символы ASCII. (Было бы несправедливо, если бы мы сделали Unicode тоже.)

#rules

Применяются основные правила игры в гольф .

#Примеры

Truthy:

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

Falsy:

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. Для значений truey / 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 байта

^{Сохранено 6 9 байт благодаря @MartinEnder .}

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

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

Дьялог АПЛ , 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 за сохранение байтов!

Луа, 59 55 54 байта

Код

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

Как это работает:

1. Проверьте, могут ли остальные символы быть допустимым идентификатором Lua (идентификаторы в Lua подчиняются тем же правилам, что и хэштеги).
2. Проверьте, является ли первый символ #.

Принимает ввод из командной строки. Печатает, trueесли строка является допустимым хэштегом, в противном случае она печатает nil.

Google Sheets, 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)

Пайк, 19 байт

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

Попробуй это здесь!

Быстрое исправление на сегодня

Рубин, 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]*

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), где input - это a, stringа output - это 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))))

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 байт

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

Ответ Retina на порт Мартина Эндера, чтобы сохранить несколько байтов и сопоставить добавленные тестовые примеры.
Не String#matchesвсегда соответствует всей строке, поэтому нет необходимости ^...$.

Попробуй это здесь.