0
TI-BASIC, 137 - (25 + 50 + 10 + 100) = -48
Input A:Disp cumSum(randIntNoRep(1,A))→L₁:"?:For(A,1,dim(L₁:Ans+sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",L₁(A),1:End:Disp sub(Ans,2,length(Ans)-1
Input handles numbers up to 1E99 and automatically evaluates. Can handle expressions.
Although it is an insanely...