5ce5316a33 2021-03-01 jeff@gridfini: n:=3;
5ce5316a33 2021-03-01 jeff@gridfini: if (evenp(n)) then write n," is even" else write n, " is odd";
5ce5316a33 2021-03-01 jeff@gridfini: if (fixp(n)) then write n," is Integer" else write n, " is not Integer";
5ce5316a33 2021-03-01 jeff@gridfini: n:=pi;
5ce5316a33 2021-03-01 jeff@gridfini: if (fixp(n)) then write n," is Integer" else write n, " is not Integer";
5ce5316a33 2021-03-01 jeff@gridfini: n:=3.1;
5ce5316a33 2021-03-01 jeff@gridfini: if (fixp(n)) then write n," is Integer" else write n, " is not Integer";
5ce5316a33 2021-03-01 jeff@gridfini: %
5ce5316a33 2021-03-01 jeff@gridfini: a:=(b+c)^2;
5ce5316a33 2021-03-01 jeff@gridfini: if (freeof(a,b)) then write b," not in ",a else write b," is in ",a;
5ce5316a33 2021-03-01 jeff@gridfini: a:=(c+d)^2;
5ce5316a33 2021-03-01 jeff@gridfini: if (freeof(a,b)) then write b," not in ",a else write b," is in ",a;
5ce5316a33 2021-03-01 jeff@gridfini: %
5ce5316a33 2021-03-01 jeff@gridfini: n:=pi;
5ce5316a33 2021-03-01 jeff@gridfini: if (numberp(n)) then write n," is a number" else write n, " is not a number";
5ce5316a33 2021-03-01 jeff@gridfini: n:=3.1;
5ce5316a33 2021-03-01 jeff@gridfini: if (numberp(n)) then write n," is a number" else write n, " is not a number";
5ce5316a33 2021-03-01 jeff@gridfini: %
5ce5316a33 2021-03-01 jeff@gridfini: if (ordp(n,c)) then write n," before ",c else write n, " after ",c;
5ce5316a33 2021-03-01 jeff@gridfini: n:=z;
5ce5316a33 2021-03-01 jeff@gridfini: if (ordp(n,c)) then write n," before ",c else write n, " after ",c;
5ce5316a33 2021-03-01 jeff@gridfini: %
5ce5316a33 2021-03-01 jeff@gridfini: n:=10;
5ce5316a33 2021-03-01 jeff@gridfini: if (primep(n)) then write n," is prime" else write n, " is not prime";
5ce5316a33 2021-03-01 jeff@gridfini: n:=11;
5ce5316a33 2021-03-01 jeff@gridfini: if (primep(n)) then write n," is prime" else write n, " is not prime";