34 lines
286 B
Text
34 lines
286 B
Text
let e = 42
|
|
let t = 2017
|
|
|
|
gosub modularinverse
|
|
|
|
end
|
|
|
|
sub modularinverse
|
|
|
|
let d = 0
|
|
|
|
if e < t then
|
|
|
|
let b = e
|
|
let c = 1
|
|
|
|
do
|
|
|
|
let s = int(((t - b) / e) + 1)
|
|
let b = b + s * e
|
|
let c = c + s
|
|
let b = b - t
|
|
|
|
loop b <> 1
|
|
|
|
let d = c
|
|
|
|
endif
|
|
|
|
let m = d
|
|
|
|
print m
|
|
|
|
return
|