Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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]
[Discipulus]: now i must come back to my house/hoven monks: dont do interesting discussion in my absence!
[erix]: or apparently, now it does :)
[GotToBTru]: heh
erix prods ambrus to (re-)start cbstream...
[GotToBTru]: I've got a program with an if ... or ... statement with 80 clauses
[stevieb]: 80 clauses? dispatch table?
[GotToBTru]: no, lookup
[stevieb]: no, I mean have you considered using a dispatch table. an 80 condition if/else is huge :)
[GotToBTru]: that is how this should have been done, no question

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (10)
As of 2017-06-22 13:00 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (519 votes). Check out past polls.