intersperse

[procedure] intersperse x ys

Returns a list (y0 x y1 x ... x yn). Same as scheme:intersperse, except ys must have at least one element.

(def intersperse (x ys)
  (cons (car ys)
        (mappend [list x _] (cdr ys))))