102 lines
1.8 KiB
Plaintext
102 lines
1.8 KiB
Plaintext
__if_comp__ __C__ simple_passthrough(::"-lm") """
|
|
#include <math.h>
|
|
"""
|
|
|
|
fun fibanacci(num: int): int {
|
|
if (num < 2)
|
|
return 1;
|
|
return fibanacci(num-1) + fibanacci(num-2);
|
|
}
|
|
|
|
/*********************
|
|
* Trig Functions
|
|
********************/
|
|
|
|
fun atan(arg: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(arg = arg, ans = ans : ans = ans :) """
|
|
ans = atan(arg);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end atan function
|
|
|
|
fun atan2(x: double, y: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(x = x, y = y, ans = ans : ans = ans :) """
|
|
ans = atan2(x,y);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end atan2 function
|
|
|
|
fun acos(arg: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(arg = arg, ans = ans : ans = ans :) """
|
|
ans = acos(arg);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end acos function
|
|
|
|
fun asin(arg: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(arg = arg, ans = ans : ans = ans :) """
|
|
ans = asin(arg);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end asin function
|
|
|
|
fun tan(arg: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(arg = arg, ans = ans : ans = ans :) """
|
|
ans = tan(arg);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end tan function
|
|
|
|
fun cos(arg: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(arg = arg, ans = ans : ans = ans :) """
|
|
ans = cos(arg);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end cos function
|
|
|
|
fun sin(arg: double): double
|
|
{
|
|
var ans: double = 0;
|
|
__if_comp__ __C__{
|
|
simple_passthrough(arg = arg, ans = ans : ans = ans :) """
|
|
ans = sin(arg);
|
|
"""
|
|
}//end C wrapper
|
|
|
|
return ans;
|
|
}//end sin function
|
|
|
|
//|int| NotPi = 3;
|
|
//|double| STD_PI = 4*atan(1);
|
|
|