File src/boolean.txt artifact 62850ba20a part of check-in c1ddb4c814


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


olli-scripts
English Homepage | German Homepage | DL2MIE | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]