Can Factorial[] be compiled?

*To*: mathgroup at smc.vnet.net*Subject*: [mg14990] Can Factorial[] be compiled?*From*: Wagner Truppel <wtruppel at uci.edu>*Date*: Wed, 2 Dec 1998 03:59:10 -0500*Sender*: owner-wri-mathgroup at wolfram.com

Hello again, I'm trying to compile the function below, but Mathematica refuses to compile the i!; notice the term {31, Function[{m, n}, i!], {i, 3, 0, 15, Block}, 3, 0, 19} in the InputForm of the compiled function. Does anyone have a suggestion on how to fix this? Thanks in advance. Wagner Truppel f = Compile[{{m, _Real}, {n, _Real}}, Sum[(m^i*Sqrt[i])/i!, {i, 1.0, n, 1.0}]/E^m]; InputForm[f] InputForm[CompiledFunction[{_Real, _Real}, {0, 5, 21, 0, 2}, {{1, 2}, {4, 1, 0}, {4, 2, 1}, {42, 0, 2}, {53, 2, 3}, {15, 1., 13}, {15, 1., 14}, {14, 1, 2}, {42, 13, 15}, {34, 1, 15, 15}, {45, 14, 16}, {38, 15, 16, 15}, {83, 15, 3}, {33, 2, 3, 2}, {108, 2, 1, 3, 1}, {14, 0, 3}, {24, 3, 17}, {38, 17, 14, 17}, {34, 13, 17, 17}, {20, 17, 15}, {131, 3, 2, 8}, {50, 0, 15, 17}, {52, 15, 18}, {31, Function[{m, n}, i!], {i, 3, 0, 15, Block}, 3, 0, 19}, {45, 19, 20}, {38, 17, 18, 20, 17}, {109, 17, 1}, {91, -11}, {15, 0, 11}, {107, 1, 3}, {14, 0, 4}, {131, 4, 3, 5}, {114, 1, 4, 12}, {34, 11, 12, 12}, {20, 12, 11}, {91, -4}, {38, 3, 11, 2}, {9, 2}}, Function[{m, n}, Sum[(m^i*Sqrt[i])/i!, {i, 1.0, n, 1.0}]/E^m]]]