I've released new version Util::Any 0.19.
List::Pairwise functions are included in -list.
use Util::Any -list; my @n = (1,2,3,4,5,6,7,8,9,10); mapp {$a *= 10; $b /= 2} @n; print "@n"; # 10 1 30 2 50 3 70 4 90 5
I've released new version Util::Any 0.19.
List::Pairwise functions are included in -list.
use Util::Any -list; my @n = (1,2,3,4,5,6,7,8,9,10); mapp {$a *= 10; $b /= 2} @n; print "@n"; # 10 1 30 2 50 3 70 4 90 5