10 lines
253 B
Text
10 lines
253 B
Text
(defvar funlist [list sin
|
|
cos
|
|
(op expt @1 3)])
|
|
|
|
(defvar invlist [list asin
|
|
acos
|
|
(op expt @1 (/ 1 3))])
|
|
|
|
(each ((f funlist) (i invlist))
|
|
(prinl [(chain f i) 0.5]))
|