![]() ![]() | ![]() |
version 1.10, 2010/04/28 05:58:43 | version 1.11, 2010/04/28 15:27:40 | ||
---|---|---|---|
|
|
||
B = car(S); | B = car(S); | ||
for ( R = []; B != []; B = cdr(B) ) | for ( R = []; B != []; B = cdr(B) ) | ||
if ( H = car(car(B)) ) | if ( H = car(car(B)) ) | ||
R = cons(H,R); | R = cons(ptozp(H),R); | ||
} else { | } else { | ||
/* colon method */ | /* colon method */ | ||
for ( I = 0; I < D; I++ ) | for ( I = 0; I < D; I++ ) |