이 코드 골프 챌린지에서 해시 태그를 확인합니다!

#What_your_code_should_do

입력은 문자열입니다. 유효한 해시 태그이면 정확한 값을, 그렇지 않으면 거짓 값을 출력합니다.

다음과 같은 경우 문자열을 유효한 해시 태그로 정의합니다.

• 해시 ( #)로 시작합니다 .
• 해시 태그 바로 뒤에 숫자 #2016USElection가 없습니다 (예 : 유효한 해시 태그가 아닙니다).
• "특수 문자"(예 : 알파벳, 밑줄 ( _) 또는 숫자 가 아닌 문자)는 없습니다 .

입력에 ASCII 문자 만 포함되어 있다고 가정 할 수 있습니다. (유니 코드도했다면 불공평 할 것입니다.)

# 규칙

기본 코드 골프 규칙이 적용됩니다.

# 예제

진실한 :

#
#e
#_ABC 
#thisisanunexpectedlylongstringxoxoxoxo
#USElection2016

거짓 :

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

레티 나 , 12 바이트

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

1해시 태그 등을 인쇄 합니다 0.

온라인으로 사용해보십시오! 첫 번째 줄은 줄 바꿈으로 구분 된 테스트 스위트를 활성화합니다.

별로 여기에 설명하기 위해,이 정의의 매우 문자 그대로의 구현은 다음 ^과 $보장 단지 앵커되는 경기 커버 전체 문자열, #확인하는과 문자열의 시작 #, (?!\d)다음 문자가 보장 되지 발전이없는 자리 ( 정규식 엔진의 위치), \w*0 자 이상의 문자, 숫자 또는 밑줄로 문자열의 끝에 도달 할 수 있는지 확인합니다.

기본적으로 Retina는 주어진 정규 표현식과 일치하는 횟수를 계산하므로 1유효한 해시 태그를 제공 0합니다.

펄, 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 lookaround 방법 )

펄, 18 바이트

17 바이트 코드 +1 -p

Martin의 둘러보기를 사용하면 훨씬 짧을 수 있습니다!

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

자바 스크립트 (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;}

파이썬 3, 41 바이트

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

Brachylog , 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

파이썬 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*$'

Martin의 정규식을 사용 -match하여 입력과 결합 된 PowerShell 연산자로 마무리했습니다 $args. 진실 / 거짓 값의 경우 문자열 자체를 일치 (진실한 값) 또는 일치하지 않는 항목 (거짓 값)으로 반환합니다. 비교 연산자를 배열에 적용 하면 해당 연산자를 만족하는 모든 항목 이 반환 되기 때문 입니다.

몇 가지 예 ( [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 바이트

^{@MartinEnder 로 인해 6 9 바이트를 저장 했습니다 .}

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

기능. 문자열을 입력으로 사용하고 반환 True하거나 False출력으로 가져 옵니다 . 아주 간단하고 정규 표현식과 일치합니다 /#(?!\d)\w*/.

Dyalog APL , 22 20 바이트

정규식없이 :

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

ngn 덕분에 -2

파이썬 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 바이트

8 바이트를 제거해 주신 @LuisMendo에게 감사합니다!

@(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 스프레드 시트, 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|

여기 사용해보십시오!

오늘 밤 빠른 수정

루비, 16 + 3 1 ( n플래그) = 19 17 바이트

0진실하고 허위로 사용합니다 nil.

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

로 실행하십시오 ruby -ne 'p~/^#(?!\d)\w*$/'. 프로그램을 실행할 때 bash 오류를 수정 한 @manatwork 덕분에.

표준 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 바이트

cell [A1]에서 입력을 가져 와서 셀 값이 Like패턴 과 일치하는지 확인 Boolean하고 VBE 즉시 창에 대해 출력 하는 익명 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=='_');

Predicate입력이 a string이고 출력이 a 인 C # lambda ( ) bool.

온라인으로 사용해보십시오!

루아, 39 바이트

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

경기 설명의 간단한 사본. nil해시 태그가 아닌 경우 거짓을 출력하고 , 그렇지 않으면 사실 해시 태그를 다시 출력합니다.

find두 값의 목록을 출력 할 때 (실제로) 규칙을 위반하지 않는 경우 사용하여 1 바이트를 더 단축 할 수 있습니다 .

Clojure에서, 130 (135) 132 바이트

• 문자열이 해시 태그만으로 구성 될 때 발생하는 NPE를 처리하기 위해 +5 바이트.

• 사용 바이트 -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))))

자바 8, 57 54 28 바이트

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

포트 마틴 엔더의 망막 답변 는 몇 바이트를 절약하고 추가 테스트 사례를 일치시킵니다. 항상 전체 문자열과 일치
하는 String#matches것은 아니므로 ^...$.

여기에서 시도하십시오.