diff options
| -rw-r--r-- | txr.1 | 19 |
1 files changed, 14 insertions, 5 deletions
@@ -45044,15 +45044,15 @@ from a quasiliteral within a nested (op ... (op ... `@@@1`)) .brev -.TP* Example: +.TP* Examples: .verb - ;; Take a list of pairs and produce a list in which those pairs - ;; are reversed. + (let ((c 0)) + (mapcar (op cons (inc c)) '(a b c))) + --> ((1 . a) (2 . b) (3 . c)) - (mapcar (op list @2 @1) '((1 2) (a b))) -> ((2 1) (b a)) + (reduce-left (op + (* 10 @1) @2) '(1 2 3)) --> 123 .brev - .coNP Macro @ lop .synb .mets (lop << form +) @@ -45230,6 +45230,15 @@ and .code ipf functions. +.TP* Example: + +.verb + ;; Take a list of pairs and produce a list in which those pairs + ;; are reversed. + + (mapcar (ap list @2 @1) '((1 2) (a b))) -> ((2 1) (b a)) +.brev + .coNP Macros @ opip and @ oand .synb .mets (opip << clause *) |