File psl-1983/tests/mini-others-sl.red artifact 34ea1acd25 part of check-in 46c747b52c


% 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 ]