for-each   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/adt.xtm

Implementation

(bind-func for-each:[void,[!a,!b,!c,!d]*,List{!b}*,List{!c}*,List{!d}*]*
  (lambda (func xs1 xs2 xs3)
    (let ((f (lambda (l1 l2 l3)
               (if (null? l1) void
                   (begin (func (car l1) (car l2) (car l3))
                          (f (cdr l1) (cdr l2) (cdr l3)))))))
      (f xs1 xs2 xs3))))


Back to Index

Similar Entries