| /dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
| H A D | assoc.lisp | 70 (assoc-guts (funcall test item (funcall key (cdar alist))))
71 (assoc-guts (funcall test item (cdar alist)))))
75 (funcall key (cdar alist)))))
76 (assoc-guts (not (funcall test-not item (cdar alist))))))
79 (assoc-guts (eql item (funcall key (cdar alist))))
80 (assoc-guts (eql item (cdar alist)))))))
84 (assoc-guts (funcall predicate (funcall key (cdar alist))))
85 (assoc-guts (funcall predicate (cdar alist)))))
90 (assoc-guts (not (funcall predicate (cdar alist))))))
111 (cons (caar alist) (cdar alist)))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/regexp/common/ |
| H A D | range.rkt | 34 (loop (cdr r) (add1 (cdar r)))]
37 (loop (cdr r) (add1 (cdar r))))])))
56 [((add1 (cdar r1)) . >= . (caar r2))
59 [((cdar r1) . <= . (cdar r2))
61 (range-union (cons (cons (caar r1) (cdar r2))
81 (= (caar range) (cdar range))
87 [(low . > . (cdar range)) (range-includes? (cdr range) low hi)]
90 (hi . <= . (cdar range)))]))
96 [((cdar range) . > . hi) #f]
105 (low . <= . (cdar range)))
[all …]
|
| /dports/lang/racket/racket-8.3/src/regexp/common/ |
| H A D | range.rkt | 34 (loop (cdr r) (add1 (cdar r)))]
37 (loop (cdr r) (add1 (cdar r))))])))
56 [((add1 (cdar r1)) . >= . (caar r2))
59 [((cdar r1) . <= . (cdar r2))
61 (range-union (cons (cons (caar r1) (cdar r2))
81 (= (caar range) (cdar range))
87 [(low . > . (cdar range)) (range-includes? (cdr range) low hi)]
90 (hi . <= . (cdar range)))]))
96 [((cdar range) . > . hi) #f]
105 (low . <= . (cdar range)))
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/algebra/ |
| H A D | grob1.lisp | 229 (setq e2 (cdar q))
245 (cdar q))
253 (let ((a (mapcar '- (cdar p) (cdar pol2)))) ;resultat dans pol1
263 (do ((a (cdar p) (cdar p))
361 (cdar q))
370 (let ((a (mapcar '- (cdar pol1) (cdar pol2))) ;resultat dans pol1
389 (setq a (mapcar '- (cdar pp) (cdar q))))))
465 #'(lambda (u v) (ordexp (cdar v) (cdar u))))))
561 (expq (cdar q))
581 ef (cdar f) eg (cdar g))
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/gnu/kawa/slib/ |
| H A D | srfi14.scm | 1001 (l1b ::int (cdar l1))
1003 (l2b ::int (cdar l2)))
1019 ((or (> (cdar l2) (cdar l1)) ; swap arguments if
1020 (and (= (cdar l2) (cdar l1)) ; necessary to ensure
1046 ((> (caar l1) (+ 1 (cdar l2)))
1049 ((> (caar l2) (+ 1 (cdar l1)))
1052 ((= (caar l1) (+ 1 (cdar l2)))
1061 ((> (cdar l1) (cdar l2)) ; (car l1) extends beyond l2
1062 `((,(+ 1 (cdar l2)) . ,(cdar l1))
1065 ((> (cdar l2) (cdar l1)) ; (car l2) extends beyond l1
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/ |
| H A D | data.jl | 82 (defun cdar (x) (cdr (car x)))
88 (defun cadar (x) (car (cdar x)))
89 (defun cddar (x) (cdr (cdar x)))
97 (defun caadar (x) (caar (cdar x)))
98 (defun caddar (x) (cadr (cdar x)))
103 (defun cdaaar (x) (cdar (caar x)))
105 (defun cdadar (x) (cdar (cdar x)))
106 (defun cdddar (x) (cddr (cdar x)))
107 (defun cdaadr (x) (cdar (cadr x)))
109 (defun cdaddr (x) (cdar (cddr x)))
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/packages/atensor/ |
| H A D | basis.red | 62 while b and cdaar b > cdar v do b:=cdr b$
85 while w and q and (cdar w > cdar q)
87 if w and q and (cdar q = cdar w) then <<
113 else if cdaar bl > cdar pv
129 while cdr b1 and cdaar b1 > cdar v do << % reduce car b1.
133 if cdaar b1 > cdar v then <<
155 w:=member(cdar v,cdr b)$
157 else rplacd(b,cdar v . cdr b)$
|
| H A D | pvector.red | 169 if v1 and v2 and cdar v1 = cdar v2 then <<
171 if null(h = 0) then r:=(h . cdar v1) . r$
175 else if (v1 and null v2) or (v1 and v2 and cdar v1 > cdar v2)
186 r:= ((-caar v1) . cdar v1) . r$
197 if null(caar v = 0) then r:=((c*caar v) . cdar v) . r$
211 else if cdar v < cdar v1 then pv_sort1(cdr v,car v . v1)
219 then if cdr x > cdar v1 then rplacd(v1,list x)
221 else if cdr x > cdar v1 then pv_sort2a(x,cdr v1)
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | nforma.lisp | 55 ((let ((foo (cdar form)))
71 (setq trunc (member 'trunc (cdar form) :test #'eq))
72 (setq simplified (member 'simp (cdar form) :test #'eq))
74 (cond ((and (member 'ratsimp (cdar form) :test #'eq)
75 (not (member 'simp (cdar form) :test #'eq)))
77 ((and trunc (not (member 'simp (cdar form) :test #'eq))) (nreverse args))
78 ((or $powerdisp trunc (member 'cf (cdar form) :test #'eq)) args)
123 (let ((trunc (member 'trunc (cdar form) :test #'eq)) exact)
136 ((null (cdar form)) (rplaca form (list (caar form) 'ratsimp)))
|
| H A D | lesfac.lisp | 79 ((zerop (cdar l))
82 (ptimes (cexpt (caar l) (cdar l)) (pmake (cdr l))))
84 (ptimes (list (caar l) (cdar l) 1) (pmake (cdr l))))))
127 (and (zerop (cdar b)) (go nextb))
154 (min (setq d1 (* d1 (cdar a)))
155 (setq d2 (* d2 (cdar b)))))
157 (cond ((> d1 (cdar g))
159 (ncons (cons (caar g) (- d1 (cdar g)))))
161 (cond ((> d2 (cdar g))
163 (ncons (cons (caar g) (- d2 (cdar g)))))))
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/ |
| H A D | modules.scm | 30 (if (eq? mod (cdar ls))
59 (lp (cdr ls) (append (reverse (cdar ls)) res)))
114 (cdar ls))
117 (lp (append (map include-source (cdar ls)) (cdr ls)) res))
119 (lp (append (append-map file->sexp-list (map resolve-file (cdar ls))) (cdr ls)) res))
125 (cdar ls)))
127 (let lp2 ((ls2 (cdar ls)) (res res))
170 (let ((env (module-env (cdar ls))))
177 (module-defines? (caar ls) (cdar ls) (car cell))))
259 ((and (memq name (module-exports (cdar ls)))
|
| /dports/lang/chicken5/chicken-5.3.0/ |
| H A D | egg-information.scm | 59 (or (and (not host) (find-prop (cdar exp)))
62 (or (and host (find-prop (cdar exp)))
71 (or (and (not host) (walk (cdar p)))
74 (or (and host (walk (cdar p)))
|
| /dports/java/openjdk8/jdk8u-jdk8u312-b07.1/jdk/test/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 57 Calendar cdar = sdf.getCalendar(); in TestBC() local
58 cdar.set(-2000, 1, 1); in TestBC()
59 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk8-jre/jdk8u-jdk8u312-b07.1/jdk/test/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 57 Calendar cdar = sdf.getCalendar(); in TestBC() local
58 cdar.set(-2000, 1, 1); in TestBC()
59 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk11/jdk11u-jdk-11.0.13-8-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk12/openjdk-jdk12u-jdk-12.0.2-10-4/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk11-jre/jdk11u-jdk-11.0.13-8-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk15/jdk15u-jdk-15.0.6-1-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk16/jdk16u-jdk-16.0.2-7-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk14/jdk14u-jdk-14.0.2-12-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk13/jdk13u-jdk-13.0.10-1-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/java/openjdk17/jdk17u-jdk-17.0.1-12-1/test/jdk/sun/text/resources/Format/ |
| H A D | Bug4442855.java | 59 Calendar cdar = sdf.getCalendar(); in TestBC() local
60 cdar.set(-2000, 1, 1); in TestBC()
61 return Test(sdf.format(cdar.getTime()), "\u897f\u5143\u524d", "BC"); in TestBC()
|
| /dports/lang/slib/slib-3b6/ |
| H A D | cring.scm | 140 ((is-term-op? (car args) '*) (loop (append (cdar args) (cdr args))
145 (set! arg_exps (loop (cdar args) pow (number- nums) arg_exps))
152 (set! arg_exps (loop (cdar args) (number- pow) nums arg_exps))
193 ((is-term-op? (car args) '+) (loop (append (cdar args) (cdr args))
208 ((and (is-term-op? (car args) '*) (some number? (cdar args)))
211 (loop (list (cons '* (remove-if number? (cdar args))))
212 (apply number* cof (remove-if-not number? (cdar args)))
249 (cons higher-op (cons cof (cdar fct_cof)))))
384 pow (number-op multiplicity (cdar tmp_pows))))
392 (number* multiplicity (cdar tmp_pows))))
[all …]
|
| /dports/lang/guile2/guile-2.2.7/module/srfi/ |
| H A D | srfi-17.scm | 49 car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar
85 (define cdar unknown
86 (getter-with-setter (@ (guile) cdar)
100 (compose-setter set-car! (@ (guile) cdar))))
112 (compose-setter set-cdr! (@ (guile) cdar))))
|
| /dports/lang/guile1/guile-1.8.8/srfi/ |
| H A D | srfi-17.scm | 49 car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar
85 (define cdar unknown
86 (getter-with-setter (@ (guile) cdar)
100 (compose-setter set-car! (@ (guile) cdar))))
112 (compose-setter set-cdr! (@ (guile) cdar))))
|