>   if ( all { $_->($file) } \&writable, \&directory ) { ...

Is that the PDL C<all>?
With the superpositional C<all> it would be:

       if ( all(\&writable, \&directory)->($file) ) { ...

:-)

Hmmmmm. Maybe C<writable>, C<directory>, etc. could return objects
that equate to a filename *only* if the original predicate is true
for that file. Then one could write:

       if ( $file == all(writable, directory) ) { ...

as well as:

        @readable = eigenstates(any(@file) == readable));

Bwah-ha-ha-ha!

Damian

Reply via email to