Help for this page

Select Code to Download

Select or download this

use Language::Functional ':all';

$x = any { even(shift) } [1, 2, 3]; # 1
$x = all { odd(shift) } [1, 1, 3]; # 1