배경

MQTT (Message Queuing Telemetry Transport)는 ISO 표준 발행-구독 기반 메시징 프로토콜 ( Wikipedia )입니다.

각 메시지에는 다음 예와 같은 주제가 있습니다.

• myhome/groundfloor/livingroom/temperature
• USA/California/San Francisco/Silicon Valley
• 5ff4a2ce-e485-40f4-826c-b1a5d81be9b6/status
• Germany/Bavaria/car/2382340923453/latitude

MQTT 클라이언트는 와일드 카드를 사용하여 메시지 주제를 구독 할 수 있습니다.

• 단일 레벨 : +
• 모든 레벨 이후 : #

예를 들어, 서브 스크립 션 myhome/groundfloor/+/temperature은 다음과 같은 결과를 생성합니다 (굵지 않은 굵은 체 ).

✅ myhome / groundfloor / 거실 / 온도
✅ myhome / groundfloor / 주방 / 온도
❌ myhome / groundfloor / 거실 / 명도
❌ myhome / firstfloor / 거실 / 온도
❌ 차고 / groundfloor / 냉장고 / 온도

구독 +/groundfloor/#은 다음과 같은 결과를 생성합니다.

✅ 인 MyHome / groundfloor에 / 거실 / 온도
✅ 인 MyHome / groundfloor에 / 부엌 / 밝기
✅ 주차장 / groundfloor에 / 냉장고 / 온도 / 이상 / 별 / 필드
❌ 인 MyHome / firstfloor / 거실 / 온도
❌ 인 MyHome / 지하 / 코너 / 온도

자세한 내용은 여기를 참조하십시오 .

작업

두 개의 문자열을 수락하고 부울을 리턴하는 함수 / 프로그램을 구현하십시오. 첫 번째 문자열은 주제 주제이고 두 번째 문자열은 기준 주제입니다. 기준 주제는 위에서 자세히 설명한 구독 구문을 사용합니다. 주제가 기준과 일치 할 때 기능은 진실합니다.

이 작업에 대한 규칙 :

• 주제는 ASCII입니다
• #와일드 카드 이외의 기준 필드가 없습니다
• 와일드 카드는 주제 주제에 나타나지 않습니다
• 주제 필드 수> = 기준 필드 수
• 0 자 필드 나 선행 또는 후행 슬래시가 없습니다.

테스트 사례

기준 1 = "myhome / groundfloor / + / 온도"
기준 2 = "+ / groundfloor / #"

( "abc", "ab") => false
( "abc", "abc") => true
( "abc / de", "abc") => false
( "myhome / groundfloor / livingroom / temperature", 기준 1 ) => true
( "myhome / groundfloor / 부엌 / 온도", 기준 1) => true
( "myhome / groundfloor / 거실 / 밝기", 기준 1) => false
( "myhome / firstfloor / 거실 / 온도", 기준 1) = > false
( "차고 / 지상층 / 냉장고 / 온도", 기준 1) => false
( "myhome / 지상층 / 거실 / 온도", 기준 2) => true
( "myhome / 지상층 / 주방 / 밝기", 기준 2) => true
( "차고 / 지상층 / 냉장고 / 온도 / 기타 / 특정 / 필드 ", 기준 2) => true
("myhome / 1 층 / 거실 / 온도 ", 기준 2) => 거짓
( "myhome / 지하실 / 코너 / 온도", 기준 2) => false
( "music / kei $ ha / latest", "+ / kei $ ha / +") => true

젤리 , 20 바이트

ṣ€”/ZṖF”#eƊ¿œiÐḟ”+ZE

문자리스트의 목록을 받아들이는 모나드 링크, [topic, pattern]어느 반환 1또는 0일치 또는 각각 불일치합니다.

온라인으로 사용해보십시오! 또는 테스트 스위트를 참조하십시오.

어떻게?

ṣ€”/ZṖF”#eƊ¿œiÐḟ”+ZE - Link: list of lists of characters, [topic, pattern]
 €                   - for each:
ṣ                    -   split at occurrences of:
  ”/                 -     '/' character
    Z                - transpose (any excess of topic is kept)
           ¿         - while...
          Ɗ          - ...condition: last three links as a monad:
       ”#            -   '#' character
         e           -   exists in:
      F              -     flatten
     Ṗ               - ...do: pop the tail off
              Ðḟ     - filter discard those for which:
            œi       -   first multi-dimensional index of: ([] if not found, which is falsey)
                ”+   -     '+' character
                  Z  - transpose
                   E - all equal?

루비 , 65 바이트

정규식 솔루션. 나는 Regex.escape기준 이름이 그렇게 com.java/string[]/\n정규식 조각을 가질 만한 것과 같 거나 어리석은 경우가 있다고 덧붙였다 .

->s,c{s=~/^#{Regexp.escape(c).sub('\#','.*').gsub'\+','[^/]*'}$/}

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

비정규 솔루션, 77 바이트

멋진 간단한 분할, 우편 및 일치 기술을 사용합니다. Regex.escape정규식 솔루션 을 사용하더라도 어쨌든 짧을 것이라는 것을 깨닫기 전에이 것을 먼저 개발했습니다 .

->s,c{s.split(?/).zip(c.split ?/).all?{|i,j|i==j||'+#'[j||9]||!j&&c[-1]==?#}}

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

펄 5 -pl , 50 바이트

$_="\Q$_";s|\\\+|[^/]+|g;s/\\\#/.*/;$_=<>=~m|^$_$|

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

파이썬 3 , 72 바이트

lambda a,b:bool(re.match(b.translate({43:"[^/]+",35:".+"}),a))
import re

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

이 문제는 정규식 일치로 간단하게 단순화 할 수 있지만 더 흥미로운 다른 방법으로 더 나은 결과를 얻을 수 있습니다.

편집 정규식을 사용하지 않는 107 바이트 솔루션을 생각해 냈습니다. 그것이 72보다 짧아 질 수 있는지 또는 아마도 이것에 대한 올바른 접근법을 보지 못할 수도 있습니다. 분할 지퍼 구조 만 너무 큰 것 같습니다. 온라인으로 사용해보십시오!

파이썬 2 , 85 84 80 92 89 바이트

lambda s,c:all(x in('+','#',y)for x,y in zip(c.split('/')+[0]*-c.find('#'),s.split('/')))

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

버그를 지적 해준 Jonathan Allan 과 Value Ink 에게 감사합니다 .

하스켈, 76 73 71 67 바이트

(a:b)#(c:d)=a=='+'&&b#snd(span(/='/')d)||a=='#'||a==c&&b#d
a#b=a==b

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

편집 : @cole 덕분에 -4 바이트.

Clojure에서 , 107 91 76 65 102 바이트

익명 함수는 주제 주제를 진실하고 nil거짓으로 클로저 (유효한 Clojure) 로 반환합니다 .

(defn ?[t c](every? #(#{"#""+"(% 0)}(% 1))(apply #(map vector % %2)(map #(re-seq #"[^/]+" %) [t c]))))

107 (102) 작동
(91) (76) (65)는 모든 문자 정규식 격파

코 틀린 , 106 바이트

fun f(s:List<String>)=s[1].split("/").filterIndexed{i,v->v!="+"&&v!="#"&&v!=s[0].split("/")[i]}.count()==0

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

파이썬 3, 99 88 바이트

정규식을 사용하지 않고. Jonathan Allan과 Chas Brown의 도움을 받았습니다.

f=lambda s,p:p in(s,'#')or p[:1]in(s[:1],'+')and f(s[1:],p['+'!=p[:1]or(s[:1]in'/')*2:])

숯 , 36 바이트

≔⪪Ｓ/θ≔⪪Ｓ/ηＦ∧№η#⊟η≔…θＬηθＦ⌕Ａη+§≔θι+⁼θη

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 출력 -(숯의 암시 출력 true일치하는 경우), 아니 일치 아무것도. 설명:

≔⪪Ｓ/θ

/s로 피사체를 분할하십시오 .

≔⪪Ｓ/η

의 기준을 /s로 나눕니다.

Ｆ∧№η#⊟η≔…θＬηθ

기준이 포함 된 경우 (즉, 끝으로) a #를 제거하고 기준의 새 길이로 주제를 다듬습니다.

Ｆ⌕Ａη+§≔θι+

기준에 포함 +된 경우 주제의 해당 요소를로 바꿉니다 +.

⁼θη

주제와 기준을 비교하고 결과를 암시 적으로 인쇄합니다.

레티 나 0.8.2 , 42 바이트

%`$
/
+`^([^/]+/)(.*¶)(\1|\+/)
$2
^¶$|¶#/$

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

%`$
/

/두 줄 모두에 접미사 a 를 붙 입니다.

+`^([^/]+/)(.*¶)(\1|\+/)
$2

주제와 기준이 같거나 기준 요소가 (행복한) 동안 주제와 기준의 첫 번째 요소를 반복적으로 제거하십시오 +.

^¶$|¶#/$

기준은 그냥라면과 일치 #합니다 (로 /피사체와 기준, 그렇지 않으면 모두는이 시점에서 비어 있어야합니다 이전에 추가 된).

Pyth , 22 바이트

:Q::E"[+]""[^/]+"\#".*

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

젤리 , 22 19 바이트

ḟ”+ṣ”/)ZẠƇṖœi”#$¿ZE

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

인수 [topic], [criterion]로 1사용하고 일치와 0일치하지 않는 것을 반환 하는 모나드 링크 .

자바 스크립트, 69 66 바이트

t=>s=>new RegExp(s.split`+`.join`[^/]+`.split`#`.join`.+`).test(t)

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

파이썬 3 , 149148 바이트

def f(t,c):t,c=t.split('/'),c.split('/');return all([c[i]=='+'or c[i]==t[i]or c[i]=='#'for i in range(len(c))])and not(len(c)!=len(t)and c[-1]!='#')

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

05AB1E , 21 바이트

ε'/¡}ζʒ'+å≠}˜'#¡н2ôøË

순서대로 목록으로 입력하십시오 [criteria, topic].

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 .

설명:

ε                      # Map both strings in the implicit input-list to:
 '/¡                  '#  Split the string on "/"
                       #   i.e. ["+/+/A/B/#","z/y/A/B/x/w/v/u"]
                       #    → [["+","+","A","B","#"],["z","y","A","B","x","w","v","u"]]
    }ζ                 # After the map: zip/transpose the two string-lists,
                       # with space as (default) filler
                       #  → [["+","z"],["+","y"],["A","A"],["B","B"],["#","x"],[" ","w"],
                       #     [" ","v"],[" ","u"]]
      ʒ    }           # Filter each pair by:
       '+å≠           '#  Only keep those which do NOT contain a "+"
                       #   → [["A","A"],["B","B"],["#","x"],[" ","w"],[" ","v"],[" ","u"]]
            ˜          # Flatten the filtered list
                       #  → ["A","A","B","B","#","x"," ","w"," ","v"," ","u"]
             '#¡      '# Split the list by "#"
                       #  → [["A","A","B","B"],["x"," ","w"," ","v"," ","u"]]
                н      # Only keep the first part
                       #  → ["A","A","B","B"]
                 2ô    # Split this back into pairs of two
                       #  → [["A","A"],["B","B"]]
                   ø   # Zip/transpose them back
                       #  → [["A","B"],["A","B"]]
                    Ë  # And check if both inner lists are equal
                       #  → 1 (truthy)
                       # (after which the result is output implicitly)