Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Not excactly a poem, but...

by dna (Beadle)
on Jun 24, 2004 at 21:59 UTC ( #369499=poem: print w/replies, xml ) Need Help??

... if ($time_spent_using_program > $time_spent_writing_program) { my $program = 'good'; }

Replies are listed 'Best First'.
Re: Not excactly a poem, but...
by andyf (Pilgrim) on Jun 25, 2004 at 20:20 UTC
    From a different view you could say
    if ($time_spent_not_using_program gt $time_spent_writing_program) { my $program = 'good'; }
    That is, to make the machine work for you. But I understand, just call it $time_gained vs $time_expended. You could implement a .cfg file that clocked up hours used against values taken from the start and end CVS times and get a little dialog pop up saying 'This program is now officially useful'. But then to be sure I would compare cycles burned at compile time to useful work done too, a test Perl might fare badly in being interpreted. The burden to society in disk space taken up by program is also a factor, bloated programs would score less than nifty efficient little ones. It might be a better metric to look at data transformed (usefully) because a program can just sit there burning up CPU and doing no useful work.
    A.
      Now, that is poetry...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://369499]
Approved by yosefm
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (2)
As of 2020-10-21 22:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (223 votes). Check out past polls.

    Notices?