Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Late Spring

by PhillipHuang (Sexton)
on Aug 04, 2011 at 05:23 UTC ( #918441=poem: print w/ replies, xml ) Need Help??

My first try.

#!/usr/bin/perl use strict; use warnings; my $blossoms; my $orioles_sound; my $frog_sound; my $listen; my $count; $blossoms = "fallen"; if($blossoms eq "fallen"){ print "No one cares the $blossoms blossoms.\n"; print "Only shades of trees spreading.\n\n"; } $frog_sound = "frogs croaking"; $orioles_sound = "orioles singing"; $count = 12; while($count > 0){ $listen = join(',',$frog_sound,$orioles_sound); print "There are $listen.\n"; $count--; if($count == 0){ $listen = $frog_sound; print "\nOrioles emit no more sound.\n"; print "I alone listen to $listen.\n"; } }

Comment on Late Spring
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://918441]
Front-paged by Arunbear
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2014-08-28 23:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (275 votes), past polls