Problem Statement

Assume functions   a   and   b   return boolean values,   and further, the execution of function   b   takes considerable resources without side effects, and is to be minimized. If we needed to compute the conjunction   (and): Then it would be best to not compute the value of   b()   if the value of   a()   is computed as   false,   as the value of   x   can then only ever be   false. Similarly, if we needed to compute the disjunction (or): Then it would be best to not compute the value of   b()   if the value of   a()   is computed as   true,   as the value of   y   can then only ever be   true. Some languages will stop further computation of boolean equations as soon as the result is known, so-called   short-circuit evaluation   of boolean expressions

Create two functions named   a   and   b,   that take and return the same boolean value. The functions should also print their name whenever they are called. Calculate and assign the values of the following equations to a variable in such a way that function   b   is only called when necessary: If the language does not have short-circuit evaluation, this might be achieved with nested     if     statements.

Let's start with the solution:

$ include "seed7_05.s7i";
 
const func boolean: a (in boolean: aBool) is func
  result
    var boolean: result is FALSE;
  begin
    writeln("a");
    result := aBool;
  end func;
 
const func boolean: b (in boolean: aBool) is func
  result
    var boolean: result is FALSE;
  begin
    writeln("b");
    result := aBool;
  end func;
 
const proc: test (in boolean: param1, in boolean: param2) is func
  begin
    writeln(param1 <& " and " <& param2 <& " = " <& a(param1) and b(param2));
    writeln(param1 <& " or " <& param2 <& " = " <& a(param1) or b(param2));
  end func;
 
const proc: main is func
  begin
    test(FALSE, FALSE);
    test(FALSE, TRUE);
    test(TRUE, FALSE);
    test(TRUE, TRUE);
  end func;