RosettaCodeData/Task/First-class-functions/TXR/first-class-functions.txr

(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]))
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(defvar funlist [list sin`
			`cos`
			`(op expt @1 3)])`
Just another update 2015-02-20 00:35:01 -05:00
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(defvar invlist [list asin`
			`acos`
			`(op expt @1 (/ 1 3))])`
Just another update 2015-02-20 00:35:01 -05:00
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(each ((f funlist) (i invlist))`
			`(prinl [(chain f i) 0.5]))`