kdb - (kdb+/q) 辞書に追加

Question

次の形式の関数選択呼び出しへの引数をプログラムで構築しようとしています。

?[ `t; () ; groupBy; ()]

問題の部分はgroupBy、辞書である必要があります。

目的が次の形式の解析ツリーに到達することであるとします。

parse "select by sym,month:`date$dt.month from t"

by部品の作成を次のように開始します。

groupBy: enlist[`sym]!enlist(`sym)

month次に、group by ステートメントの一部を追加しようとします(周期性がパラメーター化されていることに注意してください)。

per: `month / monthly periodicity
groupBy,: {enlist[x]!enlist[ $[x = `day; 
                               `dt; 
                               $[x=`month;
                                 ((parse "select by month:`date$dt.month from x")@3)@`month
                                 ;` sv (`dt,x)]
                               ]]
          }[per]

ただし、それはエラーをスローしtypeます。何がうまくいかないのですか？