OpenEuphoria

Re: RosettaCode

• Posted by cargoan Jan 26, 2011
• 1959 views

Also:

include std/math.e  
  
function sin( object x )  
    return eu:sin(x)  
end function  
 
function compose( integer f, integer g, object x )   
    return call_func( f, {call_func( g, {x} )} )   
end function   
  
integer iSin = routine_id("sin")  
integer iArcSin = routine_id("arcsin")  
? iSin  
? iArcSin  
object func = compose( iSin, iArcSin, 0.5 )  
? func  

carlos@carlos-HP-s3733es:~/Escritorio$ eui compose.ex 
0 
1 
0.5