Hi all. I missed out on the original RFC process; it was over before
I even heard of perl6. Anyway, there's something I want to contribute to the
Perl community. I've had an idea about control structures which I've never
seen anywhere else, so I guess I'm the inventor :). I hope this
On Fri, Nov 15, 2002 at 07:05:26AM +1100, Timothy S. Nelson wrote:
> --
> given ($this) {
> when $that_happens { "Have a party" }
> when $that_doesnt_happen { "Sing" }
> all {
> # Do something
> }
>
> Mailing-List: contact [EMAIL PROTECTED]; run by ezmlm
> Date: Fri, 15 Nov 2002 07:05:26 +1100 (EST)
> From: "Timothy S. Nelson" <[EMAIL PROTECTED]>
> Sender: [EMAIL PROTECTED]
> X-SMTPD: qpsmtpd/0.12, http://develooper.com/code/qpsmtpd/
>
> Hi all. I missed out on the original RFC process
On Thu, 14 Nov 2002, Jonathan Scott Duff wrote:
> On Fri, Nov 15, 2002 at 07:05:26AM +1100, Timothy S. Nelson wrote:
> > --
> > given ($this) {
> > when $that_happens { "Have a party" }
> > when $that_doesnt_happen { "Sing" }
> >
On Thu, 14 Nov 2002, Luke Palmer wrote:
> > The blocks below the given get evaluated under the following
> > conditions
>
> > all: $falsecount == 0
> > any: $truecount > 0
> > some: $falsecount > 0
> > none: $truecount == 0
> >
> > So anyway, "none" replaces the old "default" option, and the
> My complete knowledge comes from
> archive.develooper.com/perl6-language...
> (search for "superpositions").
I find google (rather than develooper's
archive/search) the best tool for most
searching of p6lang. Unfortunately even
google only goes back so far, and doesn't
search punctuation.
Perl
On Fri, 15 Nov 2002, Me wrote:
> > My complete knowledge comes from
> > archive.develooper.com/perl6-language...
> > (search for "superpositions").
>
> I find google (rather than develooper's
> archive/search) the best tool for most
> searching of p6lang. Unfortunately even
> google only goes bac
Scott Duff essayed:
So, I was all set to show how this could work with junctions, but then
I realized that I don't understand them well enough, so here's what I
came up with:
$j0 = $that_happens | $that_doesnt_happen;
$j1 = !$that_happens | !$that_doesnt_happen;
given ($this) {
when $j0 ~