Yet another unknown language

In danish we would call that slamkode... I won't even bother to translate it for ya.

In ghetto canadian french you could say: De la tabarnac de crisse d'asti de sainte marde de calice. I am not sure that english has enough curses to translate that.

I am not sure that english has enough curses to translate that.

Which is why we have french... probably the single rudest language on the face of the earth.

I stopped Perl after 12 hours.

[Feztaa]

Can you post your perl code?

#!/usr/bin/env perl

use Math::BigInt;

sub fact
{
 $total = new Math::BigInt 1;
 for($i=1; $i<=$_[0]; $i++)
 {
  $total *= $i;
 }
 return $total;
}

die "Usage: $0 <Integer>\n" if (@ARGV < 1);
print fact($ARGV[0])."\n";

And while we're at it:

#!/usr/bin/env python

import sys

def fact(n):
 total = 1
 for i in xrange(1, n+1):
  total *= i

 return total


def main():

 if len(sys.argv) < 2:
  print "Usage: %s <Integer>" % sys.argv[0]
  sys.exit(1)

 try:
  target = abs(int(sys.argv[1]))
 except:
  print "Illegal number"
  sys.exit(1)
 

 print fact(target)

if __name__ == '__main__':
 main()

[Feztaa]

What was the number you used?

65536

[Feztaa]

It's hella faster if you don't use the BigInt package, but then again the results aren't as good

$ time ./test.pl 65535
inf

real  0m0.750s
user  0m0.290s
sys   0m0.020s

;D

:

Edit: You couldn't make it faster, could you?