Mathematica, 18 bytes, $107,163.49
$~Print~N[E^(E!E)]
Full program; run using MathematicaScipt -script
. Outputs $107163.4882807548
followed by a trailing newline. I have verified that this is the highest-scoring solution of the form $~Print~N[expr]
where expr
is comprised of Pi
, E
, I
, and +-* /()!
.