Online Help

The Remove(selector, tab) command is similar to the remove function. The boolean valued function selector is called on each element in tab. A copy of tab is returned with the elements for which selector returns true removed.

The selector parameter is a procedure that accepts two arguments. The first argument is the encoded name (see EncodeName ) of the procedure and the second argument is the rtable containing the profiling data.

$\mathrm{with}\left(\mathrm{CodeTools}\left[\mathrm{Profiling}\right]\right)\:$

selector := proc(n,t)
# check the total number of function calls
if (t[1][1] > 5) then
return true;
else
return false;
end if;
end proc;

$\mathrm{selector}≔\mathbf{proc}\left(n\&comma;t\right)\mathbf{if}5<t\&lsqb;1\&rsqb;\&lsqb;1\&rsqb;\mathbf{then}\mathbf{return}\mathrm{true}\mathbf{else}\mathbf{return}\mathrm{false}\mathbf{end\; if}\mathbf{end\; proc}$

a := proc( )
return 1;
end proc;

$a≔\mathbf{proc}\left(\right)\mathbf{return}1\mathbf{end\; proc}$

b := proc( )
local i;
for i from 1 to 10 do
a();
end do;
end proc;

$b≔\mathbf{proc}\left(\right)\mathbf{local}i\&semi;\mathbf{for}i\mathbf{to}10\mathbf{do}a\left(\right)\mathbf{end\; do}\mathbf{end\; proc}$

$t≔\mathrm{Build}\left(\mathrm{procs}=\left[a\&comma;b\right]\&comma;\mathrm{commands}='b\left(\right)'\right)$

$t≔table\left(\left[\mathrm{\_Inert\_ASSIGNEDNAME}\left(''b''\&comma;''PROC''\right)=\left[\begin{array}{ccc}1& 0& 0\\ 1& 0& 0\\ 10& 0& 0\end{array}\right]\&comma;\mathrm{\_Inert\_ASSIGNEDNAME}\left(''a''\&comma;''PROC''\right)=\left[\begin{array}{ccc}10& 1& 0\\ 10& 1& 0\end{array}\right]\right]\right)$

$\mathrm{PrintProfiles}\left(t\right)$

a
a := proc()
|Calls Seconds Words|
PROC | 10 0.001 0|
1 | 10 0.001 0| return 1
end proc

b
b := proc()
local i;
|Calls Seconds Words|
PROC | 1 0.000 0|
1 | 1 0.000 0| for i to 10 do
2 | 10 0.000 0| a()
end do
end proc

$s≔\mathrm{Remove}\left(\mathrm{selector}\&comma;t\right)$

$s≔table\left(\left[\mathrm{\_Inert\_ASSIGNEDNAME}\left(''b''\&comma;''PROC''\right)=\left[\begin{array}{ccc}1& 0& 0\\ 1& 0& 0\\ 10& 0& 0\end{array}\right]\right]\right)$

$\mathrm{PrintProfiles}\left(s\right)$

b
b := proc()
local i;
|Calls Seconds Words|
PROC | 1 0.000 0|
1 | 1 0.000 0| for i to 10 do
2 | 10 0.000 0| a()
end do
end proc