![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ndbf.rr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-contrib / testing / noro|
Return to ndbf.rr CVS log | Up to [local] / OpenXM / src / asir-contrib / testing / noro |
| 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++ ) |