Pascal Costanza wrote:

> (loop for x in '(1 2 3)
> for y in '(4 5 6)
> collect (* 2 (+ x y)))
>
> vs.
>
> (mapcar (lambda (x y)
> (* 2 (+ x y)))
> '(1 2 3)
> '(4 5 6))

However, what if there were 9 lists instead of 2?
The CL (COBOL-Like) version would become:

(loop for a in '(1 2 3)
for b in '(4 5 6)
for c in '(7 8 9)
for d in '(20 21 22)
for e in '(23 24 25)
for f in '(26 27 28)
for g in '(29 30 31)
for h in '(32 33 34)
for i in '(35 36 37)
collect (* 2 (+ a b c d e f g h i)))

===>
(354 372 390)

The Scheme version would simply become:

(map (~>> + (* 2))
'(1 2 3)
'(4 5 6)
'(7 8 9)
'(20 21 22)
'(23 24 25)
'(26 27 28)
'(29 30 31)
'(32 33 34)
'(35 36 37))

===>
(354 372 390)

Given:

(define-syntax ->>
(syntax-rules ()
[(_ x) x]
[(_ x (y ...) z ...)
(->> (y ... x) z ...)]
[(_ x y z ...)
(->> (y x) z ...)]))

(define-syntax ~>>
(syntax-rules ()
[(_ (func0 a ...) func ...)
(lambda xs (->> (apply func0 a ... xs) func ...))]
[(_ func0 func ...)
(lambda xs (->> (apply func0 xs) func ...))]))