Unnamed

s är boolean, dvs s=1 är true, s=0 är false

r=1

Så länge x är icketom{

subtrahera x med r
öka r

if r=x så s=1
if x=0 så s=0
}