Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

After surgery

by yosefm (Friar)
on Nov 16, 2003 at 08:38 UTC ( #307445=poem: print w/replies, xml ) Need Help??

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; }

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

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 :-)

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://307445]
Approved by Roger
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2022-06-26 21:13 GMT
Find Nodes?
    Voting Booth?
    My most frequent journeys are powered by:

    Results (86 votes). Check out past polls.