I got out of the hospital yesterday, and I was so happy I decided to write a Perl6 poem. I tried something simple that looked like it's going to work, from Exegesis 2-6. Well, it doesn't run with perl6 that comes with parrot 0.0.13, so I guess I used unimplemented features or something, but I'll post the poem anyway, as a perl programmer's peep into the future... 

my $body is closed;
my $feeling is good but uncertain;

let me := my $soul;

given $me {
    'happy' when $operation but true;
    'content' when $operation;
}

[download]

Update: fixed the 'when'. It was only here, not in my orig. code.

Replies are listed 'Best First'.
Re: After surgery
by barrd (Canon) on Nov 16, 2003 at 12:08 UTC
    Hi yosefm,
    It could be a cut and paste issue but there's a typo (whan) in there:
    'happy' whan $operation but true;
    Aside from that its a nice continuation from your older post - Surgical Blues.

    Great to hear that it all went well and you're happy - good stuff and welcome back to the Monastery :-)

    Update: Fixed crappy grammar after a cup of coffee

[reply]
[d/l]
Re: After surgery
by duff (Parson) on Nov 17, 2003 at 05:09 UTC

    Aside from the typo ("whan" rather than "when"), I think the only problem is that "let" isn't available outside of Perl 6 rules. Hmm. Perhaps "good" and "uncertain" need to be defined somewhere too as those aren't built-in to Perl 6 AFAIK.

    Anyway ... good show! I'm glad to see someone making perl6 poetry :-)

    duff
[reply]

Back to Perl Poetry