5 lines
202 B
Text
5 lines
202 B
Text
$ txr -p "(mapcar (op mapcar (op * 2)) (list (range 0 3) (range 2 8 2)))"
|
|
((0 2 4 6) (4 8 12 16))
|
|
|
|
$ txr -p "(mapcar (op mapcar (op * @1 @1)) (list (range 0 3) (range 2 8 2)))"
|
|
((0 1 4 9) (4 16 36 64))
|