バックグラウンド

MQTT（メッセージキューテレメトリトランスポート）は、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 /地上階/リビング/温度
✅MYHOME /地上階/キッチン/温度
❌MYHOME /地上階/リビング/ 輝度
❌MYHOME / firstfloor /リビング/温度
❌ ガレージ /地上階/ 冷蔵庫 /気温

サブスクリプション+/groundfloor/#がこれらの結果を生成するのに対し、

✅myhome / groundfloor / livingroom / temperature✅myhome
/ groundfloor / kitchen / brightness✅garage
/ groundfloor / fridge / temperature / more / specific /
fields❌myhome / firstfloor / livingroom / temperature❌myhome
/ basement / corner /気温

詳細はこちら。

タスク

2つの文字列を受け入れ、ブール値を返す関数/プログラムを実装します。最初の文字列はサブジェクトトピックで、2番目の文字列は基準トピックです。基準トピックでは、上記のサブスクリプション構文を使用します。サブジェクトが基準に一致する場合、関数は真実です。

このタスクのルール：

• トピックはASCIIです
• #ワイルドカード以外の基準フィールドはありません
• ワイルドカードは件名のトピックに表示されません
• 件名フィールドの数> =基準フィールドの数
• 0文字のフィールドも、スラッシュの先頭または末尾にもありません。

テストケース

条件1 = "myhome / groundfloor / + / temperature"
条件2 = "+ / groundfloor /＃"

（ "abc"、 "ab"）=> false
（ "abc"、 "abc"）=> true
（ "abc / de"、 "abc"）=> false
（ "myhome / groundfloor / livingroom / temperature"、criteria1 ）=> true
（ "myhome / groundfloor / kitchen / temperature"、criteria1）=> true
（ "myhome / groundfloor / livingroom / brightness"、criteria1）=> false
（ "myhome / firstfloor / livingroom / temperature"、criteria1）= > false
（ "ガレージ/グラウンドフロア/冷蔵庫/温度"、基準1）=> false
（ "マイホーム/グラウンドフロア/リビングルーム/温度"、基準2）=> true
（ "マイホーム/グラウンドフロア/キッチン/明るさ"、基準2）=> true
（「ガレージ/グラウンドフロア/冷蔵庫/温度/詳細/特定/フィールド "、基準2）=> true
（" myhome / firstfloor / livingroom / temperature "、基準2）=> false
（ "myhome / basement / corner / temperature"、criteria2）=> 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?

Ruby、65バイト

正規表現ソリューション。Regex.escape基準名がたまたまcom.java/string[]/\n正規表現の断片を持つような、または愚かなものである場合に備えて、私は追加しました。

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

オンラインでお試しください！

非正規表現ソリューション、77バイト

シンプルな分割、zip、および一致のテクニックを使用しています。私はこれを最初に開発してからRegex.escape、正規表現のソリューションを使用しても、とにかく短くなることに気付きました。

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

オンラインでお試しください！

Perl 5、50 -plバイト

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

オンラインでお試しください！

Python 3、72バイト

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

オンラインでお試しください！

この問題は簡単に正規表現一致に簡略化できますが、より興味深い別の方法でより良い結果が得られる場合があります。

編集私は正規表現を使用しない107バイトのソリューションを思いつきました。72より短くなるかどうかはわかりませんが、おそらくこれに対する正しいアプローチを見ていません。ただし、分割zip構造だけでは大きすぎるようです。オンラインでお試しください！

パイソン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に感謝します。

Haskell、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すべて正規表現文字で敗北

Kotlin、106バイト

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

オンラインでお試しください！

Python 3、99 88バイト

正規表現を使用せずに。ジョナサンアランとチャスブラウンの助けを借りて。

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が含まれている（つまり、末尾がaである）場合は、基準を#削除し、基準を基準の新しい長さにトリミングします。

Ｆ⌕Ａη+§≔θι+

基準に含まれる+場合、件名のその要素をに置き換え+ます。

⁼θη

主題と基準を比較し、結果を暗黙的に出力します。

Retina 0.8.2バイト

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

オンラインでお試しください！説明：

%`$
/

接尾辞a /両方の行の。

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

サブジェクトと基準の両方の最初の要素を繰り返し削除します。 +ます。

^¶$|¶#/$

条件がちょうどaである場合#（/以前に追加された）と一致します。それ以外の場合は、この時点で件名と条件の両方が空になります。

Pyth、22バイト

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

オンラインでお試しください！

ゼリー、22 19バイト

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

オンラインでお試しください！

引数として受け取り、一致した場合と一致しない場合[topic], [criterion]に戻るモナディックリンク。10

JavaScript、69 66バイト

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

オンラインでお試しください！

Pythonの3、149の 148バイト

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)