/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/compatibility/ |
H A D | mlist.rkt | 37 [else (mcons (f (mcar l1) (mcar l2)) 66 [else (mcons (car l) (list->mlist (cdr l)))])) 81 [(_ a) #'(mcons a null)] 82 [(_ a b) #'(mcons a (mcons b null))] 83 [(_ a b c) #'(mcons a (mcons b (mcons c null)))] 91 [(a) (mcons a null)] 92 [(a b) (mcons a (mcons b null))] 93 [(a b c) (mcons a (mcons b (mcons c null)))] 94 [(a b c d) (mcons a (mcons b (mcons c (mcons d null))))] 130 (mcons (mcar a) (loop (mcdr a)))))] [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | add_bfield.f90 | 34 USE noncollin_module, ONLY : bfield, lambda, i_cons, mcons, & 76 m2(1:npol,na) = m_loc(1:npol,na) - mcons(1:npol,nt) 96 xx=(m_loc(3,na)/ma - mcons(3,nt)) 102 etcon = etcon + lambda * (m_loc(3,na)/ma - mcons(3,nt))**2 146 bfield(1) = -fact*(m1(1) - mcons(1,1)) 154 bfield(ipol) = -fact*(m1(ipol) - mcons(ipol,1)) 179 xx = fact - mcons(3,1)/180.D0*pi 185 IF (mcons(3,1) > 0.D0) fact1(1) = 1.D-14 208 ACOS(m1(3)/ma)*180.d0/pi, mcons(3,1)
|
H A D | report_mag.f90 | 21 USE noncollin_module, ONLY: noncolin, mcons, i_cons 38 WRITE(stdout,1020) iat, r1_loc(iat), m1_loc(1,iat), mcons(1,ityp(iat)) 79 WRITE( stdout,1015) (mcons(ipol,ityp(iat)),ipol=1,3) 81 WRITE( stdout,1017) 180.d0 * ACOS(mcons(3,ityp(iat)))/pi
|
H A D | input.f90 | 188 USE noncollin_module, ONLY : i_cons, mcons, bfield, & 747 mcons(1,nt) = starting_magnetization(nt) * sin( theta ) * cos( phi ) 748 mcons(2,nt) = starting_magnetization(nt) * sin( theta ) * sin( phi ) 749 mcons(3,nt) = starting_magnetization(nt) * cos( theta ) 756 mcons(1,nt) = starting_magnetization(nt) 775 mcons(3,nt) = cos(theta) 785 mcons(1,1) = fixed_magnetization(1) 786 mcons(2,1) = fixed_magnetization(2) 787 mcons(3,1) = fixed_magnetization(3) 798 mcons(3,1) = fixed_magnetization(3) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racklog/ |
H A D | unify.rkt | 119 [(mcons mcl mcr) mcons-expr ...] 129 [(mcons mcl mcr) mcons-expr ...] 138 [(mcons mcl mcr) mcons-expr ...] 149 [(mcons mcl mcr) mcons-expr ...] 166 [(mcons l r) 207 [(mcons l r) #f] 222 [(mcons l r) #t] 259 [(mcons l r) 279 [(mcons l r) 301 [(mcons l r) [all …]
|
/dports/lang/racket/racket-8.3/collects/file/ |
H A D | md5.rkt | 95 (mcons (quotient n 65536) (remainder n 65536)) 99 #'(let ([n c]) (mcons (quotient n 65536) (remainder n 65536)))] 106 #`(mcons #,(quotient n 65536) #,(remainder n 65536))) 266 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) 267 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) 268 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0))) 273 (define AA (mcons 0 0)) 274 (define BB (mcons 0 0)) 275 (define CC (mcons 0 0)) 276 (define DD (mcons 0 0)) [all …]
|
/dports/misc/cloc/cloc-1.90/tests/inputs/ |
H A D | md5.rkt | 95 (mcons (quotient n 65536) (remainder n 65536)) 99 #'(let ([n c]) (mcons (quotient n 65536) (remainder n 65536)))] 106 #`(mcons #,(quotient n 65536) #,(remainder n 65536))) 266 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) 267 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) 268 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0))) 273 (define AA (mcons 0 0)) 274 (define BB (mcons 0 0)) 275 (define CC (mcons 0 0)) 276 (define DD (mcons 0 0)) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/file/ |
H A D | md5.rkt | 95 (mcons (quotient n 65536) (remainder n 65536)) 99 #'(let ([n c]) (mcons (quotient n 65536) (remainder n 65536)))] 106 #`(mcons #,(quotient n 65536) #,(remainder n 65536))) 266 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) 267 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) 268 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0))) 273 (define AA (mcons 0 0)) 274 (define BB (mcons 0 0)) 275 (define CC (mcons 0 0)) 276 (define DD (mcons 0 0)) [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/private/ |
H A D | shared-body.rkt | 121 …(syntax-case* (disarm expr) (the-cons mcons append box box-immutable vector vector-immutable) same… 128 [(mcons a d) 129 (syntax (mcons undefined undefined))] 130 [(mcons . _) 131 (bad "mcons")] 197 …(syntax-case* expr (the-cons mcons list list* append box box-immutable vector vector-immutable) sa… 200 [(mcons . _) temp-id] 234 …(syntax-case* (disarm expr) (the-cons mcons list list* append box box-immutable vector vector-immu… 239 [(mcons a d)
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
H A D | shared-body.rkt | 121 …(syntax-case* (disarm expr) (the-cons mcons append box box-immutable vector vector-immutable) same… 128 [(mcons a d) 129 (syntax (mcons undefined undefined))] 130 [(mcons . _) 131 (bad "mcons")] 197 …(syntax-case* expr (the-cons mcons list list* append box box-immutable vector vector-immutable) sa… 200 [(mcons . _) temp-id] 234 …(syntax-case* (disarm expr) (the-cons mcons list list* append box box-immutable vector vector-immu… 239 [(mcons a d)
|
/dports/lang/racket-minimal/racket-8.3/src/io/ |
H A D | demo.rkt | 681 (print-test (cons 1 (mcons 3 4)) "(cons 1 (mcons 3 4))") 682 (print-test (cons 1 (cons 2 (mcons 3 4))) "(list* 1 2 (mcons 3 4))") 683 (print-test (cons 1 (cons (mcons 3 4) null)) "(list 1 (mcons 3 4))") 725 (define p1 (mcons 1 2)) 726 (define p2 (mcons p1 p1)) 727 (print-test p2 "(mcons (mcons 1 2) (mcons 1 2))") 730 (print-test p2 "(mcons #0=(mcons 1 2) #0#)")) 731 (print-test (mcons 1 null) "(mcons 1 '())") 732 (print-test (mcons 1 (mcons 2 null)) "(mcons 1 (mcons 2 '()))") 733 (print-test (mcons 1 null) "{1}" #:print write) [all …]
|
/dports/lang/racket/racket-8.3/src/io/ |
H A D | demo.rkt | 681 (print-test (cons 1 (mcons 3 4)) "(cons 1 (mcons 3 4))") 682 (print-test (cons 1 (cons 2 (mcons 3 4))) "(list* 1 2 (mcons 3 4))") 683 (print-test (cons 1 (cons (mcons 3 4) null)) "(list 1 (mcons 3 4))") 725 (define p1 (mcons 1 2)) 726 (define p2 (mcons p1 p1)) 727 (print-test p2 "(mcons (mcons 1 2) (mcons 1 2))") 730 (print-test p2 "(mcons #0=(mcons 1 2) #0#)")) 731 (print-test (mcons 1 null) "(mcons 1 '())") 732 (print-test (mcons 1 (mcons 2 null)) "(mcons 1 (mcons 2 '()))") 733 (print-test (mcons 1 null) "{1}" #:print write) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/tests/unit/ |
H A D | unit_Constraints.cpp | 87 SetOfConstraints mcons = buildConstraints(msecs); in unit_Constraints() local 88 out<<mcons; in unit_Constraints()
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
H A D | equality.scrbl | 31 (let ([v (mcons 1 2)]) (equal? v v)) 32 (equal? (mcons 1 2) (mcons 1 2)) 63 (let ([v (mcons 1 2)]) (eqv? v v)) 64 (eqv? (mcons 1 2) (mcons 1 2)) 83 (let ([v (mcons 1 2)]) (eq? v v)) 84 (eq? (mcons 1 2) (mcons 1 2))
|
H A D | shared.scrbl | 38 #:literals (cons list list* append vector-immutable box-immutable mcons vector box) 47 (mcons patchable-expr patchable-expr) 97 @item{A @racket[_shell-expr] of the form @racket[(mcons 133 (shared ([a (mcons 1 b)] (code:comment @#,t{@racket[b] is patchable...})
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/guide/ |
H A D | pairs.scrbl | 100 @racket[mcons] procedure creates a @deftech{mutable pair}, which works 103 @racketresult[mcons], while @racket[write] and @racket[display] print 107 (define p (mcons 1 2))
|
/dports/math/hs-Agda/Agda-2.6.2/src/full/Agda/Interaction/Highlighting/ |
H A D | Vim.hs | 70 toVim ns = unlines $ matches mcons micons mdefs midefs mflds miflds 76 mcons = map prettyShow cons function
|
/dports/lang/racket/racket-8.3/share/pkgs/racklog/tests/ |
H A D | unit.rkt | 106 (once (mcons 1 1) (mcons 1 1)) 107 (never (mcons 1 2) (mcons 1 1)) 108 (never (mcons 2 1) (mcons 1 1)) 109 (compound (mcons 1 1)) 235 (uni x 1 (mcons x 2) (mcons 1 2)) 236 (uni x 2 (mcons 1 x) (mcons 1 2))
|
/dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/ |
H A D | programs-6.rkt | 8 (mcons (path->string (find-system-path 'run-file))
|
/dports/lang/racket/racket-8.3/share/pkgs/srfi-lib/srfi/ |
H A D | %3a98.rkt | 11 (mcons (car pair) (cdr pair)))
|
/dports/lang/racket/racket-8.3/share/pkgs/r5rs-lib/r5rs/ |
H A D | main.rkt | 13 [mcons cons] 143 [(pair? v) (mcons (loop (car v)) (loop (cdr v)))] 164 [(pair? v) (mcons (to-mutable (car v)) 205 #`(mcons 'unquote 219 #`(mcons (mcons 'unquote-splicing 230 #`(mcons 'quasiquote #,(loop #'e (add1 depth)))] 232 #`(mcons #,(loop #'a depth) #,(loop #'b depth))]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | noncol.f90 | 41 mcons(3,ntypx)=0.d0, &! constrained values for local variables variable
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/1/ |
H A D | immutable.sld | 26 (cons mcons) 35 (let ((res (mcons a b)))
|
/dports/cad/gerbv/gerbv-2.7.0/src/ |
H A D | init.scm | 259 (define (mcons f l r) 287 (mcons form ''quasiquote (foo (+ level 1) (cdr form)))) 297 (#t (mcons form (foo level (car form)) 300 (mcons form ''unquote (foo (- level 1) 303 (mcons form ''unquote-splicing 305 (#t (mcons form (foo level (car form))
|
/dports/games/nazghul/nazghul-0.7.1/worlds/haxima-1.002/ |
H A D | init.scm | 255 (define (mcons f l r) 283 (mcons form ''quasiquote (foo (+ level 1) (cdr form)))) 293 (#t (mcons form (foo level (car form)) 296 (mcons form ''unquote (foo (- level 1) 299 (mcons form ''unquote-splicing 301 (#t (mcons form (foo level (car form))
|