Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

The Tao of Programming, Chapter 2

by Felonious (Chaplain)
on Oct 29, 2002 at 04:51 UTC ( #208667=poem: print w/replies, xml ) Need Help??

See: The Tao of Programming, Chapter 1
package Tao::Book::2; # The Ancient Masters $master_programmer = bless \$programmer, 'Tao'; $master_programmer->spake(qq{ After three days without programming, li +fe becomes meaningless. }); # 2.1 { $old->{programmers} = [ qw( mysterious profound ) ]; { no B::Fathom; use Data::Dumper; $old->{programmers}->{ Aware => 'like a fox crossing the water.', Alert => 'like a general on the battlefield.', Kind => 'like a hostess greeting her guests.', Opaque => 'like black pools in darkened caves.' }; print Dumper($old->{programmers}); } sub Tao { print $hearts->{secrets}, $minds->{secrets}; my $answer; } } # 2.2 { $a = 1; $turing->dream($turing = $machine) while $a--; sleep 1; $turing->exclaim(int(rand(2)) ? $turing->dream($turing = $machine) + : $machine->dream($machine = $turing)); } # 2.3 { sub conference { return @_; } conference( ${'very large computer company'}->{programmer} )->report($manager)->ask( eval { $other_companies->{programmers} = q{ #!/usr/bin/perl sub'_{q;$;.$_[1].qq;->{$_[2]};.$_[3]}; sub'__{s[$][;$/'];};@^^=split$",reverse+q]sehtolc riah +]; $~=q-++-;$^=bless{};s;;_$^,$^^[0],q,length,,$~;e; __$^;s;';_$^,$^^[0],style,q>=rand(42)>;e;__$^; s\'\_$^,$^^[1],press,'=undef'\e;__$^;s['][_$^,$^^[1],q +,vintage,,$~]e; __$^;s\'\\;print; } . q{ $suite->(1/0); open SOUND, '> /dev/audio'; while($lame->{presentation}) { print SOUND int(rand(1000)); } }; } ); $manager->reply( q{ conference( ${'very large computer company'}->{programmer}, ) while 0; { package Tao; ('physical world', $programmers); s/life/accidental coincidence/; $allowed = 0; goto come; do { come: goto go; } if $allowed; go: $programmers->live(($programs, $care)[0]); $programmers->social_conventions() if __PACKAGE__ ne ' +Tao'; $programmers->{live}++; } } ); } # 2.4 { $novice->query( $master_programmer, eval { q{ $programmer = $_[0]; { $programmer->design($program); $programmer->document($program); $programmer->test($program); } if 0; push @{$world->{best}}, $programmer; } } ); $master_programmer->reply( q{ $programmer eq 'Tao'; goto beyond_need_for_design; $programmer->design($program); $program->crash(); $programmer->{anger}++; beyond_need_for_design: $programmer->accept(('universe', 'concern')[0]); goto beyond_need_for_documentation; $programmer->document($program); $programmer->care($others->see($programmer->{code})); beyond_need_for_documentation: goto beyond_need_for_testing; $programmer->test($program); beyond_need_for_testing: { $program; } goto mystery; { package Tao; mystery: $programmer; } } ); }

[ shh]$ su real

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://208667]
Approved by SparkeyG
Front-paged by robartes
marioroy On a large dairy farm, almost went off the road with a 10 wheeler from exhaustion. On the farm, almost went off the silo with a big tractor. At the Fransiscan monastery, almost slipped off the dome while painting it.
[marioroy]: In Saudi Arabia caught fire but didn't burn. I think angels exist.
Lady_Aleena clean up after dinner finally.
[Discipulus]: uch! so we are twice lucky to have MCE..;=)
[marioroy]: Working a midnight graveyard shift, on the way home ran out of gas. just 2 minutes later somebody stops with a small tank of gas. It's wierd. There's always someone nearby for some reason.
[Lady_Aleena]: I was the one who stop[ed in the middle of a cold night to pick up a small family walking to a gas station. I got a few gallons of free gas for the round trip, and the grandmother said she'd pray for me.
[marioroy]: Folks do not know it, but MCE was ridiculously difficult. At Niagra Falls, heard a voice on enabling Grace while in the mist boat. That 10x performance is possible.
[marioroy]: Lady_Aleena Angels on earth are real people. That's awesome.
[Lady_Aleena]: marioroy, what does MCE stand for in this instance? There are 3 pages of abbreviations to go through.
[Lady_Aleena]: ^ or Discipulus...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (11)
As of 2017-05-29 08:26 GMT
Find Nodes?
    Voting Booth?