采用以下(设计的)类层次结构,从构造函数和析构函数打印到控制台:
#include <iostream>
class A {
public:
A() { std::cout << "A"; }
~A() { std::cout << "~A"; }
};
class B : public A {
public:
B() { std::cout << "B"; }
~B() { std::cout << "~B"; }
};
void func(A a) { }
int main() {
B b;
func(b);
std::cout << "X";
return 0;
}
Run Code Online (Sandbox Code Playgroud)
在linux下用gcc编译,它AB~AX~B~A按预期~A打印(之前打印的X是pass-by-value的结果,func它创建了一个在函数返回时被破坏的副本).
但是在Windows下使用VS2008编译它会打印AB~A~AX~B~A- 额外的来源~A是什么?如果明确定义了副本xtor,A(A& that) {};或者析构函数被声明为虚拟(因为它应该是,可以说是),它就会消失.
什么是命令或键盘快捷键,相当于按下RStudio的历史窗口中的小扫帚按钮,清除当前会话中的整个历史记录缓冲区?
请注意,我不是指清除命令窗口的Ctrl+ L,我的意思是清除通过按向上箭头访问的历史记录.
我正在定义一个函数,其中包含另一个函数:
find_badTicks:{ [tab;sec] // dummy function, for debug..
Ndays: 10i ;
dates: select distinct date from tab where sym = sec ;
closures: select last price by date from tab where sym = sec ;
returns: 1 _ select ( (price)-(prev price) )%(prev price) from closures ;
stdevs: {[x;y] sd[ (Ndays-1)#y _ x ] } [ (returns)[;`price] ] each til ( (1 - (Ndays-1)) + count (returns)[;`price] ) ;
:tab
}
Run Code Online (Sandbox Code Playgroud)
如果我编译该函数,它将起作用。如果我一行一行地运行,那行得通。但是,如果尝试调用该函数,则会出现错误:
q)testTab: find_badTicks [testTab ; `ENI.IM.Equity] ;
'Ndays
Run Code Online (Sandbox Code Playgroud)
如果我在嵌套函数中删除Ndays,显式编写为10,则它可以工作。是的,我想这是嵌套函数内部的局部变量可见性的问题,在函数执行中:即嵌套函数看不到Ndays,这是函数find_badTicks的局部变量。您知道如何在内部函数中使Ndays可见吗?谢谢马可
我想用select来计算一个新列,它是几列的函数.
我的实际应用程序将涉及select中的分组,因此我将传递给函数的列条目将包含列表.但这个简单的例子说明了我的问题
t:([] a:1 2 3; b:10 20 30; c:5 6 7)
/ Pass one argument, using projection (set first two arguments to 1)
select s:{[x;y;z] x+y+z}[1;1;] each a from t
/ Pass two arguments using each-both (set first arg to 1)
select s:a {[x;y;z] x+y+z}[1;;]'b from t
Run Code Online (Sandbox Code Playgroud)
现在,我如何传递三个或更多参数?
我试图获得数据帧中每个子集的平均值,并将该信息合并到一列中.
我可以用lapply做到这一点,但我不能让它"坚持".是否存在具有副作用的应用函数族的变体?plyr库中的任何东西都可以.
data <- data.frame(
A = sample(LETTERS[1:3], 20, replace=TRUE),
B = runif(20),
C = LETTERS[1:20])
# split by A
dataByA <- split(data, factor(data$A))
# get average of B per set
lapply(dataByA, function(df) {df$Bmean <- mean(df$B)}) # does nothing!
# remerge subsets
data <- rbind.fill(dataByA)
Run Code Online (Sandbox Code Playgroud)
谢谢