diff --git a/JavaTriesWithFrequencies.m b/JavaTriesWithFrequencies.m index 5f5e4ca3..bf6bff5d 100644 --- a/JavaTriesWithFrequencies.m +++ b/JavaTriesWithFrequencies.m @@ -168,6 +168,10 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc. JavaTrieShrink::usage = "JavaTrieShrink[ jTr_, sep_String:\"\"] concatenates the \"single path\" nodes\ in the trie jTr using the given separator sep." +JavaTrieShrinkInternalNodes::usage = "JavaTrieShrinkInternalNodes[ jTr_, sep_String:\"\"] concatenates\ + the \"single path\" internal nodes in the trie jTr using the given separator sep." + + JavaTrieThresholdRemove::usage = "Remove nodes that have values below (or above) a threshold." JavaTrieParetoFractionRemove::usage = "Remove nodes that have values below (or above) thresholds derived\ @@ -269,6 +273,13 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc. JavaTrieShrink[jTr_?JavaObjectQ, sep_String, th_?NumberQ ] := TrieFunctions`shrinkByThreshold[jTr, sep, th]; +Clear[JavaTrieShrinkInternalNodes] +JavaTrieShrinkInternalNodes[jTr_?JavaObjectQ, sep_String: ""] := + TrieFunctions`shrinkInternalNodes[jTr, sep, 1.0 ]; + +JavaTrieShrinkInternalNodes[jTr_?JavaObjectQ, sep_String, th_?NumberQ ] := + TrieFunctions`shrinkInternalNodes[jTr, sep, th]; + Clear[JavaTrieToJSON] JavaTrieToJSON[jTr_?JavaObjectQ] := ImportString[jTr@toJSON[], "JSON"];