in reply to Converting a Number into a Radical

I don't know of a Perl solution, but SymPy (see www.sympy.org) can do this kind of thing.

>>> sqrt(49)
7
>>> sqrt(27)
3*sqrt(3)
>>> simplify(sqrt(4+sqrt(448)))
2*sqrt(1 + 2*sqrt(7))

[download]

In Section Seekers of Perl Wisdom