| /dports/math/reduce/Reduce-svn5758-src/packages/sparse/ |
| H A D | spludcmp.red | 178 << val2:=atsoc(j,rowb);
299 x := atsoc(pp,col);
302 y := atsoc(p,col);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/rlisp/ |
| H A D | xmodule.red | 108 nolist!* := append('(atsoc exports imports neq),nolist!*)$
|
| H A D | proc.red | 231 if (y := atsoc(car u,v)) then <<
303 % Of course use of assoc/atsoc here is not good for performance if you
305 table := (if car table = 0 then atsoc(key, cdr table)
314 w := (if car table = 0 then atsoc(key, cdr table)
|
| /dports/math/reduce/Reduce-svn5758-src/jslisp/lib/build_scripts/ |
| H A D | lispfile.lsp | 508 symbolic procedure atsoc(u,v);
511 else atsoc(u,cdr v);
2191 if atsoc(u,vars) or flagp(u,'share) then u else mkquote u;
2197 return if (x := atsoc(u,vars))
2214 else if idp exprn and (x := atsoc(exprn,vars))
2240 % or atsoc(u,vars) % means it was already evaluated
2405 else if atom u then if atsoc(u,vars) then u else mkquote u
2485 else if (y := atsoc(car u,v))
2637 and not atsoc(var,vars)
2903 else if atom u then if atsoc(u,vars)
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/packages/redlog/ofsf/ |
| H A D | ofsfmisc.red | 52 cdr atsoc(r,'((equal . equal) (neq . neq) (leq . geq) (geq . leq)
531 prin2(if w := atsoc(op,opal) then cdr w else op);
590 prin2(if w := atsoc(op,opal) then cdr w else op);
636 w := atsoc(op, '((!>!= . geq) (!<!= . leq) (!< . lessp) (!> . greaterp)
654 w := atsoc(op, '((!+ . plus) (!- . minus) (!* . times) (!/ . quotient)));
|
| H A D | ofsfvseset.red | 155 w := atsoc('ip, cdr cs);
164 w := atsoc('ep, cdr cs);
173 w := atsoc('slb, cdr cs);
182 w := atsoc('wlb, cdr cs);
191 w := atsoc('sub, cdr cs);
200 w := atsoc('wub, cdr cs);
239 w1 := atsoc(k, cdr c1);
240 w2 := atsoc(k, cdr c2);
|
| H A D | ofsfcad.red | 417 atsoc('root, tl) or atsoc('between, tl) or atsoc('below, tl) or
418 atsoc('above, tl) or atsoc('arbitrary, tl) where tl=acell_gettl c;
664 % for each a in cdr atsoc('answers, acell_gettl atree_rootcell tt) collect
707 tag . cdr atsoc(tag, rnl);
1571 cdr atsoc('answers, acell_gettl atree_rootcell dd)};
1582 {atsoc('answers, acell_gettl cell)};
|
| /dports/math/reduce/Reduce-svn5758-src/packages/alg/ |
| H A D | sub.red | 112 % if (z := get(x,'nssubfn)) and (z := atsoc(y,z))
156 and (atsoc('expt,kernels numr u) or atsoc('expt,kernels denr u))
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/nonkernel/ |
| H A D | easy-non-sl.sl | 293 ((atom v) (if (setq x (atsoc v u))
318 ((atom v) (if (setq x (atsoc v u))
505 ((idp x)(atsoc x l))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/cgb/ |
| H A D | gbsc.red | 246 w := atsoc(v,betaline);
258 w := atsoc(v,cdr w);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/utf8/ |
| H A D | utf8.red | 191 cdr atsoc(d,'((!1 . (226 130 129)) (!2 . (226 130 130)) (!3 . (226 130 131))
224 cdr atsoc(d,'((!1 . (194 185)) (!2 . (194 178)) (!3 . (194 179))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/rd/ |
| H A D | rd.red | 71 w := atsoc(y,packagemap!*);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/support/ |
| H A D | pslprolo.red | 71 flag('(aconc atsoc copy delasc eqcar geq lastpair leq mkquote neq
|
| /dports/math/reduce/Reduce-svn5758-src/packages/int/ |
| H A D | simpsqrt.red | 109 u:=atsoc(listofnewsqrts,knowntobeindep);
145 v:=atsoc(listofnewsqrts,knowntobeindep);
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/kernel/win32/ |
| H A D | mkkern.lst | 87 cons interrogate modify put unchecked-put atsoc unchecked-setprop
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/kernel/ibmrs/ |
| H A D | pslkernel.tmp | 67 #define atsoc 378
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/kernel/macg4/ |
| H A D | pslkernel.tmp | 67 #define atsoc 378
|
| /dports/math/reduce/Reduce-svn5758-src/packages/rlisp88/ |
| H A D | records.red | 78 constructor := cdr atsoc('constructor,
|
| /dports/math/reduce/Reduce-svn5758-src/packages/redlog/rltools/ |
| H A D | sftoresultant.red | 124 cdr atsoc(x, degal));
204 w := atsoc(mvar poly, degal);
234 w := atsoc(mvar poly, degal);
|
| H A D | lto.red | 136 w := atsoc(key, al);
167 % List tools conditional atsoc. [key] is an identifier; [al] is an
170 (if x then cdr x) where x=atsoc(key,al);
173 % List tools conditional number atsoc. [key] is an identifier; [al]
176 (if w then cdr w else 0) where w=atsoc(key,al);
606 c := atsoc(base, rlgensymcountal!*);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/redlog/qqe_ofsf/ |
| H A D | qqe_ofsf.red | 288 cdr atsoc(r,'((qequal . qequal) (qneq . qneq))) or ofsf_anegrl r;
454 w := atsoc(car ir,oldknowl);
496 w := atsoc(car ir,oldknowl);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/algint/ |
| H A D | hidden.red | 143 x:=atsoc(mvar val,indexmap); % Process leading term first
320 % w:=atsoc(mvar fm,l);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/matrix/ |
| H A D | bareiss.red | 64 coeffrow(negf numr q,vrhs,denr q) where q = cdr atsoc(j,v);
244 <<if (c := atsoc(mvar x,z)) then % back-substitute
|
| /dports/math/reduce/Reduce-svn5758-src/packages/groebner/ |
| H A D | groebsea.red | 117 (if y then cdr y else x)where y=atsoc(x,rep);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/reduce4/ |
| H A D | ranks.red | 120 % else if y := atsoc(car coarity,x)
|