Challenge: Algorithms having only one line of code.

[Moneo]

Oh, you want to compute the factorial of a number. Well, for the moment, I can't see how you can do that in one line of code, without a function of course. Normally a factorial is computed using a FOR loop. That doesn't mean that it can't be done. Keep trying.
*****

[Moneo]

Here's a little algorithm that I derived.

Given a positive integer number N, compute the next multiple of X:
Result to M.

defint a-z

M = int((N+X)/X)*X

Note: "next" multiple means that if you're already at a multiple, you move up to the next multiple. Example: if N=5 and X=5, the result will be 10.

If you got that, then make a slight change to the algorithm to compute the "nearest" multiple. Example: if n=5 and x=5, the result is 5 because it is the nearest (you're already there). This is like rounding --- if it's already rounded, then that's the answer.
*****

[Antoni Gual]

Factorial in one line?

Code:

function fact&(x&):if x& then fact&=x&*fact&(x&-1) else fact&=1 :end function

[Moneo]

Wow, Antoni! A recursive call to itself --- very sofisticated!
Let me try it out .
*****
Scolta noi ------------- it works!
Brilliant, Antoni.

*****

[Antoni Gual]

I have not tested it, but I think it does'nt work.
END FUNCTION can't be in the same line of a single line IF...

[Moneo]

Antoni, What I tested was the your one line of code in between a standard Function definition line and a standard End Function line.
It's still a one line function.
*****

[Antoni Gual]

Thanks for considering it like this!

[Agamemnus]

HEY! NO FAIR!

IT's THREE LINES OF CODE!

[seph]

I don't understand what that function does or what a factoral is. Please explain EVERYTHING IN THE UNIVERSE to me.

Nevermind. Some jerk named dictionary.com very rudely explained it to me...

[na_th_an]

Well, in the line of Antoni's, here's my very own fibonnaci series callculator:

Code:

FUNCTION fibonacci& (n&)
   IF n& < 2 THEN fibonacci& = 1 ELSE fibonacci& = fibonacci&(n& - 1) + fibonacci&(n& - 2)
END FUNCTION

You use it this way (for example):

Code:

FOR i& = 0 TO 10
   PRINT fibonacci(i&)
NEXT