Function composition: Difference between revisions

← Older edit

Function composition (view source)

Revision as of 22:04, 13 March 2024

879 bytes added , 2 months ago

m

→‎{{header|Amazing Hopper}}

Mr Dalien

543

edits

Revision as of 12:24, 2 March 2024 (view source) Marvin (talk \| contribs) (Add bruijn) ← Older edit		Latest revision as of 22:04, 13 March 2024 (view source) Mr Dalien (talk \| contribs) m (→‎{{header\|Amazing Hopper}})
(3 intermediate revisions by 2 users not shown)
Line 183: F sin arc sin = compose(sin, arc sin); print((sin arc sin(0.5), (sin O arc sin)(0.5), new line))</syntaxhighlight> =={{header\|Amazing Hopper}}== VERSION 1: <syntaxhighlight lang="c"> #defn Compose(_FX_,_FY_) _FX_,_FY_ main: 0.5,Compose(sin,arcsin) "\n", print {0}return </syntaxhighlight> {{out}} <pre> $ hopper3 basica/compose1.hop 0.500000 </pre> VERSION 2: <syntaxhighlight lang="c"> #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 </syntaxhighlight> {{out}} <pre> $ hopper3 basica/compose2.hop 0.500000 </pre> VERSION 3: <syntaxhighlight lang="c"> #define «(_X_) _X_ ) #define Compose(_FX_,_FY_) _FC_(_FX_,_FY_, #define _FC_(_X_,_Y_,) ,_X_,_Y_ main: Compose(sin,arcsin)«( 0.5, mul by '2' ) "\n", print {0}return </syntaxhighlight> {{out}} <pre> $ hopper3 basica/compose2.hop 1.000000 </pre> <p>The power of macro-substitution, by Hopper!</p> =={{header\|AntLang}}== Line 618 ⟶ 671: =={{header\|Bruijn}}== Composition operators as defined in <~~syntaxhighlight~~code>std/Combinator</~~syntaxhighlight~~code>: <syntaxhighlight lang="bruijn"> :import std/Number .