RosettaCodeData/Task/First-class-functions/XBS/first-class-functions.xbs

20 lines
322 B
Plaintext

func cube(x:number):number{
send x^3;
}
func cuberoot(x:number):number{
send x^(1/3);
}
func compose(f:function,g:function):function{
send func(n:number){
send f(g(n));
}
}
const a:[function]=[math.sin,math.cos,cube];
const b:[function]=[math.asin,math.acos,cuberoot];
each a as k,v{
log(compose(v,b[k])(0.5))
}