Functions as values (no closures yet, and no tests)

This commit is contained in:
Dmitry Boulytchev 2019-09-22 20:15:15 +03:00
parent f5b802ebed
commit d69cb3d49d
12 changed files with 194 additions and 160 deletions

View file

@ -1,12 +1,12 @@
global s, n, p, c, f;
global s, n, p;
s := 0;
n := read ();
p := 2;
while n > 0 do
c := 2;
f := 1;
local c = 2;
local f = 1;
for c := 2, c*c <= p && f, c := c+1
do