http://www.perlmonks.org?node_id=1006773


in reply to Re^2: Determining if a rational number terminates
in thread Determining if a rational number terminates

+1 for ironic comment on comments.

As we all know, the uncommented part is the part that needs the comment here. (And if you say "the code is obvious and needs no comments", it's my sincere opinion you need to get out more.)

  • Comment on Re^3: Determining if a rational number terminates

Replies are listed 'Best First'.
Re^4: Determining if a rational number terminates
by tobyink (Canon) on Dec 03, 2012 at 07:37 UTC

    Actually, if you fix up the whitespace and rename the functions:

    • _ => highest_common_factor
    • __ => canonical_fraction

    ... it's not too bad.

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