Artifact a200588768d59e6e5d4b6d30ae9f6e07d84d6fae85c0c2068de6d1785d096384:

• File psl-1983/3-1/tests/mini-comp-support.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 308) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/tests/mini-comp-support.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 308) [annotate] [blame] [check-ins using]

% MINI-COMP-SUPPORT.RED - Support for LIST etc
%/ Identical to PK:COMP-SUPPORT?

procedure List2(A1,A2);
 Cons(A1,Ncons A2);

procedure List3(A1,A2,A3);
  Cons(A1,List2(A2,A3));

procedure List4(A1,A2,A3,A4);
  Cons(A1,List3(A2,A3,A4));

procedure List5(A1,A2,A3,A4,A5);
  Cons(A1,List4(A2,A3,A4,A5));

end;