When I'm trying to figure out what the "default" hypering semantics for
an operator would be, I use this:
***BEGIN CODE***
{
use strict;
use warnings;
sub _is_arrayref { ref $_[0] && ref $_[0] eq 'ARRAY' }
sub hyper(&\@\@) {
my($code, $a, $b)=@_;
my @results;
if(_is_arrayref($a)) {
if(_is_arrayref($b)) {
my $alen=$#{$a};
my $blen=$#{$b};
my $maxlen=$alen;
if($alen > $blen) {
for($blen + 1 .. $alen) {
$b->[$_]='';
}
}
elsif($blen > $alen) {
for($alen + 1 .. $blen) {
$a->[$_]='';
}
$maxlen=$blen;
}
for(0..$maxlen) {
push @results, &vector($code, $a->[$_] ,
$b->[$_]);
}
if($alen > $blen) {
$#{$b}=$blen;
}
elsif($blen > $alen) {
$#{$a}=$alen;
}
}
else {
for(@$a) {
push @results, &vector($code, $_, $b);
}
}
}
elsif(_is_arrayref($b)) {
for(@$b) {
push @results, &vector($code, $a, $_);
}
}
else {
no strict 'refs';
no warnings 'once';
local *{caller().'::a'}=\$a;
local *{caller().'::b'}=\$b;
return $code->();
}
return @results;
}
}
my @a=qw(1 2 3); my @b=([qw(4 5 6)], [qw(7 8 9)], [qw(10 11 12)]);
print join ' ', hyper { $a + $b } @a, @b;
***END CODE***
With that in mind...
Jonathan Scott Duff:
# What would [.]method() mean?
Presumably, @foo[.]method() would call .method on each object.
# > < > <= >= == != <=> - comparision
# > lt gt le ge eq ne cmp
#
# What do these do?
#
# if $a [<] @b { ... } # if $a < all(*@b)
# ???
# if @a [<] @b { ... } # if $a[0] < all(*@b) &&
# # $a[1] < all(*@b) &&
# # $a[2] < all(*@b)
# && ... ???
Create a list of the results. For example:
@a=qw(1 2 3);
@b=qw(3 2 1);
print join ' ', hyper { $a < $b } @a, @b;
#prints 1 0 0
# > & | ^ - superpositional operations
#
# $a [&] @b # all($a,*@b) ???
# @a [&] @b # all(*@a,*@b) ???
#
# > => - pair creator
#
# %hash = (@a [=>] @b); # %hash{@a} = @b; ???
# %hash = (@a [=>] $b); # %hash{@a} = ($b) x
# @a; ???
I think that's correct. Actually, that's a really useful behavior...
# > , - list creator
#
# @a = ($b [,] @c); # @a = ($b, *@c); ???
#
# > ; - "greater comma", list-of-lists creator
# > : - adverbial
#
# I'm not even sure how to hyper these two. I guess if I had
# an array of "range objects" I could hyper ;
Aren't these more syntax than operator?
# Would this write to several filehandles?
#
# print @file_handles [:] "fooey!\n";
Perhaps.
# > .. - range
#
# And this is the one that made me start thinking about
# hypering the others
#
# @a = @b[..]@c # @a = ($b[0]..$c[0], $b[1]..$c[1], ...) ???
# @a = $b[..]@c # @a = ($b..$c[0], $b..$c[1], ...) ???
# @a = @b[..]$c # @a = ($b[0]..$c, $b[1]..$c, ...) ???
That's a really good one. My naive implementation gives this:
1 2 3 4 1 2 3 4 5 1 2 3 4 5 6 2 3 4 5 6 7 2 3 4 5 6 7 8 2 3 4 5 6 7 8 9
3 4 5 6 7 8 9 10 3 4 5 6 7 8 9 10 11 3 4 5 6 7 8 9 10 11 12
Perhaps that would be:
[1 2 3 4] [1 2 3 4 5] [1 2 3 4 5 6] [2 3 4 5 6 7 8] [2 3 4 5 6 7 8 9] [3
4 5 6 7 8 9 10] [3 4 5 6 7 8 9 10 11] [3 4 5 6 7 8 9 10 11 12]
--Brent Dax <[EMAIL PROTECTED]>
@roles=map {"Parrot $_"} qw(embedding regexen Configure)
Wire telegraph is a kind of a very, very long cat. You pull his tail in
New York and his head is meowing in Los Angeles. And radio operates
exactly the same way. The only difference is that there is no cat.
--Albert Einstein (explaining radio)
