JSLオタクの皆さんにとってのプログラミングの課題は次のとおりです。
次のような表に4レベルの階層データがあります。
次のようなツリーボックスを使用して、このデータから階層ツリー構造を作成しています。
私のコードは約40秒でこの出力を作成します。 もっと速い方法はありますか？さまざまなアプローチを試しましたが、サブセットの作成が最速のようです。 これが私のコードです：
dt = data table ("AE Levels");
ae_tree = {};
e0 = hp time();
// Get unique level 1 values
summarize(dt, level1_list = by(:Level 1));
for (i = 1, i <= nitems(level1_list), i++,
caption("Processing Level1 " || char(i));
wait(0);
level1_rows = dt << get rows where(:Level 1 == level1_list[i]);
// Create a tree node for this level
level1_node = tree node("Level 1: " || level1_list[i]);
// Make a subset of this level1's values
dt1 = dt << subset(private, rows(level1_rows));
// Get unique level 2 values for this value of level 1
summarize(dt1, level2_list = by(:Level 2));
for (k = 1, k <= nitems(level2_list), k++,
// Create a tree node for this level
level2_node = tree node("Level 2: " || level2_list[k]);
level2_rows = dt << get rows where(:Level 2 == level2_list[k]);
dt2 = dt << subset(private, rows(level2_rows));
// Get unique level 3 values for this value of level 2
summarize(dt2, level3_list = by(:Level 3));
for (m = 1, m <= nitems(level3_list), m++,
// Create a tree node for this level
level3_node = tree node("Level 3: " || level3_list[m]);
l3_rows = dt << get rows where(:Level 3 == level3_list[m]);
dt3 = dt << subset(private, rows(l3_rows));
// Get unique level 4 values for this value of level 3
summarize(dt3, l4_list = by(:Level 4));
close(dt3, nosave);
for (n = 1, n <= nitems(l4_list), n++,
// Create a tree node for this level
l4_node = tree node("Level 4: " || l4_list[n]);
// Add the level 4 node to the level 3 node
level3_node << append(l4_node);
);
// Add the level 3 node to the level 2 node
level2_node << append(level3_node);
);
close(dt2, nosave);
// Add the level 2 node to the level 1 node
level1_node << append(level2_node);
);
close(dt1, nosave);
insertinto(ae_tree, level1_node);
);
caption(remove);
wait(0);
e1 = hp time();
show((e1 - e0) / 1000000);
nw = new window("AE Tree",
mtree = tree box(ae_tree, Size( 1000, 500 ),
<< Set Max Size( 2000, 4000 ),
<< Set AutoStretching( 1, 1 )
)
);
私はそう思う...私はそれを十分に長く見ていないかもしれませんが、これが理にかなっている場合は約10倍高速です... これは最も内側のループです...外側のループにも必要です。LinkToOriginalDataTableはまったく役に立たないように見えましたが、これは驚くべきことでしたが、より小さなサブセットを使用してさらにサブセットを設定することは大いに役立ちました。
l3_rows = dt2 <<行を取得where（：Level 3 == level3_list [m]）;
dt3 = dt2 <<サブセット（プライベート、行（l3_rows）、 LinkToOriginalDataTable（1） ）;
//レベル3のこの値に対して一意のレベル4の値を取得します
summary（dt3、l4_list = by（：Level 4））;
（e1-e0）/ 1000000 = 3.226879;
Craigeに感謝します-あなたのソリューションは「なぜ私はそれを考えなかったのか」というカテゴリーに分類されます。 理にかなっています！
