/dports/math/R-cran-sm/sm/R/ |
H A D | ps-normal.r | 87 btb <- t(B) %*% weights %*% B 102 lambda <- 1 105 while (lambda.df(lambda, btb, bty, P) <= df) lambda <- lambda / 10 106 lower <- lambda 107 lambda <- 1 108 while (lambda.df(lambda, btb, bty, P) >= df) lambda <- lambda * 10 109 upper <- lambda 153 B1 %*% t(A) %*% solve(A %*% B1 %*% t(A)) %*% (fixed[ , ndim + 1] - A %*% beta) 229 lambda = lambda, eval.points = eval.points, estimate = est, nameattr 239 tpower <- function(x, t, p) argument [all …]
|
/dports/lang/racket/racket-8.3/src/expander/read/ |
H A D | demo.rkt | 13 (case-lambda 43 (parameterize ([read-cdot #t]) 46 (parameterize ([read-cdot #t]) 59 (test-read (s->p "(#t)") 60 '(#t)) 64 '(#t)) 125 (test-read (s->p "(1 #t 2)") 135 (test-read (s->p "(#1=(a) #t #1# #t#t)") 136 '((a) (a) #t))) 137 (parameterize ([read-accept-reader #t]) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/read/ |
H A D | demo.rkt | 13 (case-lambda 43 (parameterize ([read-cdot #t]) 46 (parameterize ([read-cdot #t]) 59 (test-read (s->p "(#t)") 60 '(#t)) 64 '(#t)) 125 (test-read (s->p "(1 #t 2)") 135 (test-read (s->p "(#1=(a) #t #1# #t#t)") 136 '((a) (a) #t))) 137 (parameterize ([read-accept-reader #t]) [all …]
|
/dports/lang/guile/guile-3.0.7/test-suite/tests/ |
H A D | compiler.test | 137 (pass-if "lambda" 141 (pass-if "lambda*" 146 (pass-if "case-lambda" 148 (compile '(case-lambda (() #t) 153 (with-test-prefix "case-lambda" 156 (lambda () 262 (map (compile '(lambda (x) 274 (map (compile '(lambda (x) 286 (map (compile '(lambda (x) 341 '(lambda (arg) [all …]
|
H A D | fluids.test | 60 (eq? #t (fluid-ref (make-fluid #t)))) 63 (eq? #t (fluid-ref (make-thread-local-fluid #t)))) 80 (with-fluids ((c #t)) 86 (with-fluids ((a #t) 180 (catch #t 182 (lambda (key . args) #t))) 194 (catch #t 196 (lambda (key . args) #t))))) 276 (let ((state (catch #t (lambda () (current-dynamic-state)) error))) 277 (catch #t [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/redex-doc/redex/scribblings/long-tut/code/ |
H A D | delivered-tue-aft.rkt | 10 (lambda ((x_!_ t) ...) e) 13 (t ::= 15 (t ... -> t)) 21 (term (lambda ((x int) (f (int -> int))) (+ (f (f x)) (f x))))) 23 (term (lambda ((x int) (f ((int -> int) -> int))) (f x)))) 26 (term (lambda ((x int) (x (int -> int))) x))) 41 (test-equal (judgment-holds (⊢ () ,e1 t) t) 62 (⊢ Γ (lambda ((x_1 t_1) ...) e) (t_1 ... -> t))] 113 (--> e (lambda ((x int)) x)))) 123 (term (((lambda ((x (int -> int))) x) (lambda ((x int)) x)) 1)) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/lang/private/ |
H A D | teachprims.rkt | 695 (lambda (s t) 701 (lambda (s t) 711 (lambda (s t) 715 (lambda (s t) 719 (lambda (s t) 723 (lambda (s t) 727 (lambda (s t) 731 (lambda (s t) 735 (lambda (s t) 739 (lambda (s t) [all …]
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/18/ |
H A D | test.sld | 11 (let ((t (make-thread (lambda () (error "oops"))))) 'ok)) 14 (let ((t (make-thread (lambda () 'oops)))) (thread-start! t) 'ok)) 17 (let ((t (make-thread (lambda () (let lp () (lp)))))) 22 (let ((t (make-thread (lambda () 'oops)))) 28 (let ((t (make-thread (lambda () (let lp () (lp)))))) 53 (t (make-thread (lambda () (mutex-lock! m))))) 60 (t (make-thread (lambda () (mutex-unlock! m))))) 74 (lambda () 87 (lambda () 98 (lambda () [all …]
|
/dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
H A D | np-languages.ss | 36 uvar-info-lambda uvar-info-lambda-set! 75 preinfo-src preinfo-sexpr preinfo-lambda-name preinfo-lambda-flags preinfo-lambda-libspec 83 (define datum? (lambda (x) #t)) 88 (protocol (lambda (new) (lambda () (new #f #f #f))))) 188 (lambda (x) 198 (case-lambda 209 (lambda () 292 (lambda (x) 296 (lambda (x) 336 ; (uvar-info-lambda x) must be equal to le's info-lambda [all …]
|
/dports/lang/guile1/guile-1.8.8/test-suite/tests/ |
H A D | eval.test | 44 (pass-if "(#t . #(#t))" 45 (let* ((foo (cons #t (vector #t))) 48 (equal? bar '(#t . #(#t))))) 91 (f and #t #t))) 97 (f and #t #t) 184 #t) 288 #t)))) 314 #t)))) 389 (q 'q) (r 'r) (s 's) (t 't) 393 n o p q r s t u v w x y z)) [all …]
|
H A D | syntax.test | 71 (eval '(let ((foo (lambda (x y) #t))) 77 (eval '(let ((foo (lambda (x y) #t))) 96 #t) 566 (eq? 'ok (cond (#t identity => (lambda (x) 'ok)) (else #f)))) 569 (eq? 'ok (cond (#t not => (lambda (x) #f)) (else 'ok)))) 573 (cond ((values 1 2) => (lambda (x y) #t)))) 589 (eq? 'ok (cond ((values) (lambda () #t) => (lambda () 'ok)) 620 (let ((foo (lambda () (cond (#t => identity))))) 623 '(lambda () (cond (#t => identity))))))) 674 (pass-if-exception "=> (lambda (x y) #t)" [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
H A D | np-info.ss | 5 (sealed #t) 14 (sealed #t) 20 (sealed #t) 38 (sealed #t) 51 (sealed #t) 87 (sealed #t) 190 (sealed #t) 196 (sealed #t) 206 (sealed #t) 212 (sealed #t) [all …]
|
/dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
H A D | np-info.ss | 5 (sealed #t) 14 (sealed #t) 20 (sealed #t) 38 (sealed #t) 51 (sealed #t) 87 (sealed #t) 190 (sealed #t) 196 (sealed #t) 206 (sealed #t) 212 (sealed #t) [all …]
|
H A D | front.ss | 95 (define case-sensitive ($make-thread-parameter #t (lambda (x) (and x #t)))) 97 (define compile-interpret-simple ($make-thread-parameter #t (lambda (x) (and x #t)))) 99 (define generate-interrupt-trap ($make-thread-parameter #t (lambda (x) (and x #t)))) 101 (define generate-allocation-counts ($make-thread-parameter #f (lambda (x) (and x #t)))) 103 (define generate-instruction-counts ($make-thread-parameter #f (lambda (x) (and x #t)))) 105 (define enable-cross-library-optimization ($make-thread-parameter #t (lambda (x) (and x #t)))) 107 (define enable-arithmetic-left-associative ($make-thread-parameter #f (lambda (x) (and x #t)))) 109 (define enable-unsafe-application ($make-thread-parameter #f (lambda (x) (and x #t)))) 111 (define enable-unsafe-variable-reference ($make-thread-parameter #f (lambda (x) (and x #t)))) 122 (define enable-type-recovery ($make-thread-parameter #t (lambda (x) (and x #t)))) [all …]
|
/dports/comms/gnuradio/gnuradio-3.8.4.0/gr-fec/lib/reed-solomon/ |
H A D | decode_rs.c | 44 DTYPE b[MAX_ARRAY], t[MAX_ARRAY], omega[MAX_ARRAY]; in DECODE_RS() local 50 DTYPE b[NROOTS + 1], t[NROOTS + 1], omega[NROOTS + 1]; in DECODE_RS() local 83 memset(&lambda[1], 0, NROOTS * sizeof(lambda[0])); in DECODE_RS() 84 lambda[0] = 1; in DECODE_RS() 158 t[0] = lambda[0]; in DECODE_RS() 161 t[i + 1] = lambda[i + 1] ^ ALPHA_TO[MODNN(discr_r + b[i])]; in DECODE_RS() 163 t[i + 1] = lambda[i + 1]; in DECODE_RS() 173 (lambda[i] == 0) ? A0 : MODNN(INDEX_OF[lambda[i]] - discr_r + NN); in DECODE_RS() 179 memcpy(lambda, t, (NROOTS + 1) * sizeof(t[0])); in DECODE_RS() 186 lambda[i] = INDEX_OF[lambda[i]]; in DECODE_RS() [all …]
|
/dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
H A D | ftw.test | 174 (and (any (match-lambda (('down (= basename "test-suite")) #t) (_ #f)) 176 (any (match-lambda (('down (= basename "tests")) #t) (_ #f)) 178 (any (match-lambda (('leaf (= basename "alist.test")) #t) (_ #f)) 180 (any (match-lambda (('up (= basename "tests")) #t) (_ #f)) 182 (any (match-lambda (('skip (= basename "vm")) #t) (_ #f)) 198 (let ((enter? (lambda (n s r) #t)) 207 (let ((enter? (lambda (n s r) #t)) 226 (let ((enter? (lambda (n s r) #t)) 237 (let ((enter? (lambda (n s r) #t)) 254 (let ((enter? (lambda (n s r) #t)) [all …]
|
H A D | fluids.test | 60 (eq? #t (fluid-ref (make-fluid #t)))) 63 (eq? #t (fluid-ref (make-thread-local-fluid #t)))) 80 (with-fluids ((c #t)) 86 (with-fluids ((a #t) 180 (catch #t 182 (lambda (key . args) #t))) 194 (catch #t 196 (lambda (key . args) #t))))) 276 (let ((state (catch #t (lambda () (current-dynamic-state)) error))) 277 (catch #t [all …]
|
/dports/lang/chez-scheme/ChezScheme-9.5.4/nanopass/nanopass/ |
H A D | helpers.ss | 104 (if (memp (lambda (t) (bound-identifier=? t #'x)) t*) 109 (if (memp (lambda (t) (bound-identifier=? t #'x)) t*) 113 (with-syntax ([(t) (generate-temporaries '(t))]) 114 (values #'(unquote t) (cons #'t t*) (cons #'e e*)))] 116 (with-syntax ([(t) (generate-temporaries '(t))]) 117 (values #'(unquote-splicing t) (cons #'t t*) (cons #'e e*)))] 119 (let-values ([(tmpl0 t* e*) (f #'tmpl0 t* e*)]) 120 (let-values ([(tmpl1 t* e*) (f #'tmpl1 t* e*)]) 154 [e #`(map (lambda #,t* 228 #t [all …]
|
/dports/print/texlive-base/texlive-20150521-source/utils/asymptote/examples/ |
H A D | spring.asy | 1 pair coilpoint(real lambda, real r, real t) 3 return (2.0*lambda*t+r*cos(t),r*sin(t)); 6 guide coil(guide g=nullpath, real lambda, real r, real a, real b, int n) 10 real t=a+width*i; 11 g=g..coilpoint(lambda,r,t); 20 real lambda=(t2-t1+x)/(t2-t1); 21 pair b=coilpoint(lambda,r,t1); 22 pair c=coilpoint(lambda,r,t2); 28 draw(coil(lambda,r,t1,t2,100));
|
/dports/math/asymptote/asymptote-2.67/examples/ |
H A D | spring.asy | 1 pair coilpoint(real lambda, real r, real t) 3 return (2.0*lambda*t+r*cos(t),r*sin(t)); 6 guide coil(guide g=nullpath, real lambda, real r, real a, real b, int n) 10 real t=a+width*i; 11 g=g..coilpoint(lambda,r,t); 20 real lambda=(t2-t1+x)/(t2-t1); 21 pair b=coilpoint(lambda,r,t1); 22 pair c=coilpoint(lambda,r,t2); 28 draw(coil(lambda,r,t1,t2,100));
|
/dports/lang/racket/racket-8.3/share/pkgs/games/mines/ |
H A D | mines.rkt | 192 (for-each-tile (lambda (t x y) 205 (lambda () 255 (lambda () 260 (lambda () 284 (lambda () (end-of-game #t))] 286 (lambda () 299 (lambda () 300 (for-each-tile (lambda (t x y) 319 (lambda (t old-state new-state update-count?) 359 (lambda (t x y) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/mats/ |
H A D | profile.ms | 127 #t) 134 #t) 152 #t) 171 #t) 183 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 0 42)) 184 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 43 102)) 188 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 103 127)) 195 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 0 42)) 197 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 43 102)) 201 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 103 127)) [all …]
|
/dports/lang/racket/racket-8.3/src/ChezScheme/mats/ |
H A D | profile.ms | 127 #t) 134 #t) 152 #t) 171 #t) 183 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 0 42)) 184 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 43 102)) 188 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 103 127)) 195 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 0 42)) 197 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 43 102)) 201 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 103 127)) [all …]
|
/dports/lang/chez-scheme/ChezScheme-9.5.4/mats/ |
H A D | profile.ms | 127 #t) 134 #t) 152 #t) 171 #t) 182 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 0 42)) 183 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 43 102)) 187 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0))) #t)) ($qw 103 127)) 194 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 0 42)) 196 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 43 102)) 200 ((lambda (x) (and (memv x (list 0.0 (/ 1.0 11.0) (fl/ (/ 1.0 11.0) 2.0))) #t)) ($qw 103 127)) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/redex-doc/redex/scribblings/long-tut/ |
H A D | tue-aft.scrbl | 27 (lambda ((x_!_ t) ...) e) 29 (t ::= 31 (t ... -> t)) 34 (define lambda? (redex-match? TLambda e)) 41 (term (lambda ((x int) (x (int -> int))) x))) 44 (test-equal (lambda? e1) #true) 45 (test-equal (lambda? e2) #true) 86 (⊢ Γ (lambda ((x_1 t_1) ...) e) (t_1 ... -> t))] 116 t 135 (--> e (lambda ((x int)) x)))) [all …]
|