TI-89 Basic - 5339 * 0.8 = 4231.42
Input y:Input x:Disp ln((e^y)^ln((e^100^-1e^y)^ln(e^x^.01)^x))
Works by inputting the two numbers, then using the logarithm properties to compute x * y / 100
.
If I can assume input from placement in global variables x
and y
, then this is much shorter, for a score of 3217 * 0.8 = 2513.6:
ln(((e^y)^ln((e^100^-1^.01)^ln(e^x^x)
Without bonus (12):
ln((e^.2)^x)
But if it needs to be wrapped in a function, then this works (5338 chars again, for 42.430.4):
:f(x,y):Func:ln((e^y)^ln((e^100^-1)^ln(e^xe^y)^.01)^x):EndFunc