langs a-z
This commit is contained in:
parent
db842d013d
commit
d066446780
11389 changed files with 98361 additions and 1020 deletions
|
|
@ -0,0 +1,9 @@
|
|||
ex(a, b)={
|
||||
my(c = 1);
|
||||
while(b > 1,
|
||||
if(b % 2, c *= a);
|
||||
a = a^2;
|
||||
b >>= 1
|
||||
);
|
||||
a * c
|
||||
};
|
||||
|
|
@ -0,0 +1 @@
|
|||
ex2(a, b) = a ^ b;
|
||||
Loading…
Add table
Add a link
Reference in a new issue