Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re^2: Python and Bash more useful than Perl?

by tobyink (Abbot)
on Aug 06, 2012 at 07:09 UTC ( #985618=note: print w/replies, xml ) Need Help??

in reply to Re: Python and Bash more useful than Perl?
in thread Python and Bash more useful than Perl?

As I understand it the angels dancing on the head of a pin question was never a serious topic of debate, but just an example put into the mouths of late medieval rhetoricians to make them seem ridiculous. Of course they did in fact debate some ideas which we'd judge fairly ridiculous these days, but there are no contemporary records indicating that this particular question was a topic for debate.

Kind of like how people these days assert that Columbus' contemporaries worried about him sailing off the edge of the Earth. They did not. The fact that the Earth is roughly spherical was known to Aristotle. Their concern was that he'd vastly underestimated the distance to Asia. The royal courts of Portugal, Genoa, Venice and England rejected sponsoring his proposed voyages for that reason; the Spanish had reservations but gave him the benefit of the doubt. It turned out his critics were right; Columbus would never have made it to Asia without running out of food and fresh water; he was extremely fortuitous to find an entire super-continent blocking his path.

If only those medieval philosophers had had Perl...

use 5.010; # See use constant AREA_OF_THE_HEAD_OF_A_PIN => 2.000; # square millimetres # Based on the assumption that angels are non-corporeal. use constant SPACE_TAKEN_UP_BY_ANGEL => 0.000; # square millimetres + my $angels = 0; my $area_remaining = AREA_OF_THE_HEAD_OF_A_PIN; while ($area_remaining > 0) { $angels++; $area_remaining -= SPACE_TAKEN_UP_BY_ANGEL; } say "$angels angels can fit on the head of a pin";

Of course, the above assumes that angels tessellate perfectly. But I consider that to be a reasonable assumption. An angel that did not tessellate would not be especially angelic.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985618]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2018-04-25 05:50 GMT
Find Nodes?
    Voting Booth?