23. april 2004 - 10:08Der er
2 kommentarer og 1 løsning
oversættelse af funktion
jeg har denne cool modulus funktion fra et eller andet sted på nettet...
men da jeg er spasser til at lave asp functions... kunne jeg godt tænke mig at få den oversat til ASP'sprog
endten som Function eller som SUB... alt efter hvad der virker bedst...
funktionen bruges til at regne på MEGA KÆMPE MOFO STORE MODULUS regnestykker...
her er den:
long bigmod(long b,long p,long m) { if (p==0) return 1; else if (p%2==0) return square(bigmod(b,p/2,m)%m)%m; else return ((b%m)*(bigmod(b,p-1,m)%m))%m; }
Function Bigmod(b,p,m) if p = 0 then Function = 1 elseif P mod 2 = 0 then Funktion = Sqr(Bigmod(b,p/2,m) mod m) mod m else Funktion = ((b mod m)*(Bigmod(b,p-1,m) mod m)) mod m end if end Function
<html> <head> <% Function Bigmod(b,p,m) if p = 0 then Bigmod = 1 elseif P mod 2 = 0 then Bigmod = Sqr(Bigmod(b,p/2,m) mod m) mod m else Bigmod = ((b mod m)*(Bigmod(b,p-1,m) mod m)) mod m end if end Function %> </head> <body> <%=Bigmod(2,136,117)%> </body> </html>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
