RosettaCodeData/Task/Higher-order-functions/TXR/higher-order-functions.txr

9 lines
197 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
@(bind a @(let ((counter 0))
(mapcar (lambda (x y) (list (inc counter) x y))
'(a b c) '(t r s))))
@(output)
@ (repeat)
@ (rep)@a:@(last)@a@(end)
@ (end)
@(end)