20

私はqlcを持っています

RefsBlocked = qlc:e(qlc:q([
    Ref1 ||
    {{Ref1, {pattern, {_Status1, _Pattern1, Limit1}}}, Count} <- dict:to_list(
        qlc:fold(
            fun({Key, _Ref2}, Acc) ->
                dict:update_counter(Key, 1, Acc)
            end,
            dict:new(),
            qlc:q([
                {{Ref1, {pattern, {Status1, Pattern1, Limit1}}}, Ref2} ||
                {Ref2, {status, Status2}} <- ets:table(Tmp),
                {Ref3, {tag, Tag3}} <- ets:table(Tmp),
                Ref2 =:= Ref3,
                {Ref1, {pattern, {Status1, Pattern1, Limit1}}} <- ets:table(Tmp),
                Ref =:= Ref1,
                Status1 =:= Status2,
                Pattern1 =:= Tag3
            ])
        )
    ),
    Count >= Limit1
], unique))

ここで、Tmpはバッグタイプのセットであり、Refはテストする必要のある特定の識別子です。

Etsには、次のような数百から数千のエントリが含まれています

{Ref1, {definition, {Tuple1}}}
{Ref1, {status, scheduled}}
{Ref1, {status, blocked}}
{Ref1, {pattern, {scheduled, Pattern11, Limit11}}}
{Ref1, {pattern, {dispatched, Pattern12, Limit12}}}
{Ref1, {tag, Tag11}}
{Ref2, {definition, {Tuple2}}}
{Ref2, {status, scheduled}}
{Ref2, {status, dispatched}}
{Ref2, {pattern, {scheduled, Pattern21, Limit21}}}
{Ref2, {pattern, {dispatched, Pattern22, Limit22}}}
{Ref2, {tag, Tag21}}
{Ref3, {definition, Tuple3}}
{Ref3, {status, error}}

つまり、各Refには、1つの定義、1つまたは2つ(4つのうち)のステータス、0以上(ほとんどの場合3つ以下)のパターン、および0つ以上(ほとんどの場合3つ以下)のタグがあります。

ある特定の識別子が他の識別子によってブロックされているかどうかをテストする必要があります。タグ上のパターンのいずれかに一致する識別子の数=パターンおよびステータス=パターンステータスがパターン制限以上の場合、ブロックされます。

qlcを最適化する方法はありますか?

4

1 に答える 1

1

別のより効率的な等価関係を使用しない限り、そこにあるコードは最高のものです。このコードのプロファイリングを行ったところ、遅すぎることがわかったと思いますか? どのように?

于 2011-06-03T01:44:21.193 に答える