File psl-1983/3-1/tests/mini-others-sl.red artifact 34ea1acd25 part of check-in d9e362f11e


% MINI-OTHERS-SL.RED
on syslisp;

procedure Length U;
% Length of list U, fast version
    Length1(U, 0);

procedure Length1(U, N);
    if PairP U then Length1(cdr U, N+1) else N;

off syslisp;
end;


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]