SRL Archive - Other Scripts

So with some help from Widget on irc, I finally managed to get a working factorial calculator (n!) and nCr (n Choose r: where order is not important) and nPr(n Pick r: where Order is Important). It works to a point, keep in mind use low decimals ish. ex. 40! results in over a 47 decimal chain which scar cannot process. Exceeding the limit of scars calculation abilities will result in Scar overflowing, meaning your calculations will be off etc, so just dont do it :p

Example:

Factorial(4);

returns

4! = 24

hope this somewhat helps anyone doing perms and coms, it helped me ;)

program New;

Function Factorial(n: Int64): Int64;
var
  i: Int64;
  a : integer;
begin
  i := 1;
  for a := 1 to n do
    i := i * a;
  Result := i;
  writeln(Int64ToStr(n)+'! = '+Int64ToStr(Result));
end;

Function nCr(n, r: Int64): Int64;
var a, b, c, d, e: Int64;
begin
  a := Factorial(n);
  b := n-r;
  c := Factorial(b);
  d := c*Factorial(r);
  e := a/d;
  WriteLn(Int64ToStr(a)+' div '+Int64ToStr(d)+' = '+Int64ToStr(e));
  Result := e;
  writeln(Int64ToStr(n)+' C '+Int64ToStr(r)+' = '+Int64ToStr(Result));
end;

Function nPr(n, r: Int64): Int64;
var a, b, c, d: Int64;
begin
  a := Factorial(n);
  b := n-r;
  c := Factorial(b);
  d := a/c;
  Result := d;
  writeln(Int64ToStr(n)+' P '+Int64ToStr(r)+' = '+Int64ToStr(Result));
end;

So have fun with it, I might add some more stuff later, like calculating probability or something. (yeah the code isnt too efficient but idc)

Maths. Not my favourite subject but I have a 9 for it (that's an A I believe). I still don't get this advanced shit :p

yeah tell me about it, I have a final on this shit today (worth 15% of my grade, appearently its like a predimploma…) :( and I only have a 78% in math

I guess you used Int 64 because it has the largest range in SCAR :).

The only problem with a Factorial is that it can go up really quickly, good work!

What math class are you in? Algebra I? (Not being offensive! :D Just wondering because that's when I did this).

Factorial is already in SCAR as Fract

program New;

Function Factorial(n: Int64): Int64;
var
  i: Int64;
  a : integer;
begin
  i := 1;
  for a := 1 to n do
    i := i * a;
  Result := i;
end;

begin
  Writeln(Factorial(24));
  Writeln(Fract(24));
end.

:o

From: NaumanAkhlaQ
I guess you used Int 64 because it has the largest range in SCAR :).

The only problem with a Factorial is that it can go up really quickly, good work!

yeah I know…I used this for my hw to a point haha, when the numbers got really big I got in a bit of trouble. and thanks :)

From: 99_
What math class are you in? Algebra I? (Not being offensive! :D Just wondering because that's when I did this).

I'm in Canada, so this would be Math 30, equivlent to the last math class you will take in Highschool (aside from pre calculous and AP courses)

From: Freddy1990
Factorial is already in SCAR as Fract

Didnt know, and I made this more for understanding myself. I assume they both have similiar code. Can Fract() hold larger numbers?

From: Da 0wner

program New;

Function Factorial(n: Int64): Int64;
var
  i: Int64;
  a : integer;
begin
  i := 1;
  for a := 1 to n do
    i := i * a;
  Result := i;
end;

begin
  Writeln(Factorial(24));
  Writeln(Fract(24));
end.

:o

as I said, scar overflows when the numbers get too large. You do realize Factorial 24 (24!) is equivelent to 24x23x22x21x20…x1 Thats a way larger number than scar can handle ;)

From: Blumblebee
as I said, scar overflows when the numbers get too large. You do realize Factorial 24 (24!) is equivelent to 24x23x22x21x20…x1 Thats a way larger number than scar can handle ;)

Well, the function in SCAR was written by Benland ;), so I can't really help that, I'll write a new one myself for 3.21. And for the record, yes I do realize what 24!, considering I'm in a math and science course, pretty basic stuff… :fiery:

Rename it to Factorial(), Fract() makes no sense. :(

From: ZephyrsFury
Rename it to Factorial(), Fract() makes no sense. :(

Agreed. Fract makes me think of fractions, not factorials. Heck, even naming it Fact would be better than what it currently is.

From: senrath
Agreed. Fract makes me think of fractions, not factorials. Heck, even naming it Fact would be better than what it currently is.

Agreed

From: Freddy1990
Well, the function in SCAR was written by Benland ;), so I can't really help that, I'll write a new one myself for 3.21. And for the record, yes I do realize what 24!, considering I'm in a math and science course, pretty basic stuff… :fiery:

thaqt wasnt at you! that was at Da owner who did the writeln on them and they got negative numbers, sorry for the confusing I meant no disrespect ;)

Umm Blumblebee, I did that to show that they were the same not the output….

From: Da 0wner
Umm Blumblebee, I did that to show that they were the same not the output….

because they overflowed and his is only an integer while mine is a int64 meaning mine holds a larger number thus letting the overflow become larger? Do like 5! and you will see they are the same.

From: Blumblebee
I'm in Canada, so this would be Math 30, equivlent to the last math class you will take in Highschool (aside from pre calculous and AP courses)

:p I did this last year of middle school.. That seems a little odd to me. but oh well =X

@Freddy in SCAR can't you make your own type of numbers? And If so, whats the max amount you can have it so like (I know this wont work :p):

Type GrtInt = [-999999999999999999..99999999999999999999999];

From: Blumblebee
because they overflowed and his is only an integer while mine is a int64 meaning mine holds a larger number thus letting the overflow become larger? Do like 5! and you will see they are the same.

When I did that with 24 they both showed the same output in the debug box dude. I am not saying that they are not the same, I'm saying they are the same…chill dude.

From: 99_
:p I did this last year of middle school.. That seems a little odd to me. but oh well =X

hmmm you did like n!/(n-r)!r! and stuff? wow thats rediculous I didnt even know it existed until this year lol :p

From: Da 0wner
When I did that with 24 they both showed the same output in the debug box dude. I am not saying that they are not the same, I'm saying they are the same…chill dude.

no sorry didnt mean to sound disrespectful, they came out different for me haha, sorry :o

From: Blumblebee
hmmm you did like n!/(n-r)!r! and stuff? wow thats rediculous I didnt even know it existed until this year lol :p

Well, it was an outside class, but nonetheless I did it in 8th grade (last year). There were a few 7th graders too.

wow I'm impressed, I totally just failed my final on this shit :p shoulda got you to help me haha

:p if you get another chance, I'd love to help! ^^ I love math. <3 haha

From: NaumanAkhlaQ
@Freddy in SCAR can't you make your own type of numbers? And If so, whats the max amount you can have it so like (I know this wont work :p):

Type GrtInt = [-999999999999999999..99999999999999999999999];

No I can't, if I could I would add unsigned Int64, but even Delphi won't let me define that.

From: Freddy1990
No I can't, if I could I would add unsigned Int64, but even Delphi won't let me define that.

Okay, just another question, couldn't you make Abs for Int64s?

It's so much easier doing the Factorial of a number using Recursion, it's a shame SCAR doesn't support Recursion though.