List::Intersperse 1.00

List::Intersperse Perl module can intersperse / unsort / disperse a list.

SYNOPSIS

use List::Intersperse qw/intersperseq/;

@ispersed = intersperseq {substr($_[0],0,1)} qw/A1 A2 B1 B2 C1 C2/;

@ispersed = List::Intersperse::intersperse qw/A A B B B B B B C/;

intersperse and intersperseq evenly distribute elements of a list. Elements that are considered equal are spaced as far apart from each other as possible.

FUNCTIONS

intersperse LIST

This function returns a list of elements interspersed so that equivalent items are evenly distributed throughout the list.

intersperseq BLOCK LIST

intersperseq works like intersperse but it applies BLOCK to the elements of LIST to determine the equivalance key.