P-Adic numbers, basic: Difference between revisions
Content added Content deleted
mNo edit summary |
mNo edit summary |
||
Line 278: | Line 278: | ||
sub padic.add (byref a as padic, byref b as padic) |
sub padic.add (byref a as padic, byref b as padic) |
||
dim i as integer, r as padic |
dim i as integer, r as padic |
||
dim as long |
dim as long c = 0 |
||
with r |
with r |
||
.v = min(a.v, b.v) |
.v = min(a.v, b.v) |
||
Line 293: | Line 293: | ||
sub padic.cmpt (byref a as padic) |
sub padic.cmpt (byref a as padic) |
||
dim i as integer, r as padic |
dim i as integer, r as padic |
||
dim as long |
dim as long c = 1 |
||
with r |
with r |
||
.v = a.v |
.v = a.v |