Factorial in LISP


factorial 1->1; n->n*(factorial n-1)

compare to Haskell

factorial::Integer->Integer
factorial 0=1
factorial n=n*factorial(n-1)

>>50
He obviously doesn't want to post his code since he's ashamed of it for some reason, so he'll give all kinds of excuses. If he wanted to publish his code for people to see, it would be incredibly easy and wouldn't take more than a few minutes to pack it up and upload anywhere.