package Func; (any,all,some,and none methods)

if (Func->any(1,2,3) == 2) {
print 'There is a 2';
}

{
package Func;use overload ('==',sub{handle('==',@_);},'eq',sub{handle(
+'eq',@_);},'!=',sub{handle('!=',@_);},'ne',sub{handle('ne',@_);},'>',
+sub{handle('>',@_);},'gt',sub{handle('gt',@_);},'<',sub{handle('<',@_
+);},'lt',sub{handle('lt',@_);},'<=',sub{handle('<=',@_);},'le',sub{ha
+ndle('le',@_);},'>=',sub{handle('>=',@_);},'ge',sub{handle('ge',@_);}
+,'bool',sub{handle('!=',$_[0],0,0);});sub any{bless['any',@_[1..$#_]]
+,shift@_;}sub some{bless['some',@_[1..$#_]],shift@_;}sub all{bless['a
+ll',@_[1..$#_]],shift@_;}sub none{bless['none',@_[1..$#_]],shift@_;}s
+ub handle{my($TRUE,$FALSE)=();my($what,$any,$val,$r)=@_;my$b4='';my$d
+o=shift@$any;$do eq 'all' and$b4='not';foreach$_(@$any){my(@lr)=($_,$
+val);$r and@lr=reverse(@lr);$do eq 'any'?do{eval q['].$lr[0].q['].' '
+.$what.' '.q['].$lr[1].q['] and return 1}:($do eq 'some'?do{eval q[']
+.$lr[0].q['].' '.$what.' '.q['].$lr[1].q[']?do{$TRUE=1}:do{$FALSE=1}}
+:do{eval$b4.q[ '].$lr[0].q['].' '.$what.' '.q['].$lr[1].q['] and retu
+rn 0});}$TRUE and$FALSE and return 1;$do =~ m'(all|none)' and return 
+1;return 0;}1;
}
[download]

Comment on package Func; (any,all,some,and none methods) Download Code

Replies are listed 'Best First'.
Re: package Func; (any,all,some,and none methods) by halley (Prior) on Apr 13, 2004 at 14:26 UTC
It's not particularly obscured, but it looks like a useful mini-module. This seems similar to the quantum entanglement concept, but smaller and no-frills. It's interesting to use this logic in practice, in that `any(1,2,3) != 4` is true (there is at least one non-4 element), while `not any(1,2,3) eq 4` is also true (there is no 4 element). Mind if I use something like it in a much larger project I'm building? `print "There is no spoon" if $oracle->none(qw(neo trinity morpheus)) e +q 'one';` [download] -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l] [select]
Re: Re: package Func; (any,all,some,and none methods) by Gunth (Scribe) on Apr 13, 2004 at 18:18 UTC
Go for it Agent Smith. My idea came from Quantum::Superpositions, and I thought that a 34kb module with a hint of Damian was a little bit of an overkill for these functions :-) You're right its not very obscured. That was an after thought. You're response also made me think of something: the Matrix had to be written in Perl. I mean, which other language's gliches would result in deja vu?	[reply]