interleave-xform is a custom single-input transducer that inserts successive values from a second collection between values arriving from the input. It separates interleaving from pair creation, making algorithms such as Egyptian multiplication expressible with transduce. section 7.2.1
Egyptian multiplication
Compose (interleave-xform (iterate #(* % 2) y)) with partition-all, filtering, and mapping, then transduce over (iterate #(quot % 2) x). The resulting egypt-mult function returns 20 for (egypt-mult 4 5). section 7.2.1
