RosettaCodeData/Task/Loops-Foreach/Ol/loops-foreach.ol

7 lines
128 B
Plaintext

(for-each print '(1 3 4 2))
(print)
(for-each (lambda (a b c) (print a "-" b "/" c))
'(1 2 3 4)
'(5 6 7 8)
'(a b x z))