RosettaCodeData/Task/Function-composition/Amazing-Hopper/function-composition-2.hopper

9 lines
176 B
Text
Raw Permalink Normal View History

2024-04-19 16:56:29 -07:00
#define-a «(_X_) _X_ )
#define Compose(_FX_,_FY_) _FC_(_FX_,_FY_,
#define _FC_(_X_,_Y_,*) *,_X_,_Y_
main:
Compose(sin,arcsin)«( 0.5)
"\n", print
{0}return