Home
last modified time | relevance | path

Searched +refs:method +refs:lambda +refs:list (Results 1 – 25 of 7594) sorted by relevance

12345678910>>...304

/dports/games/nazghul/nazghul-0.7.1/worlds/haxima-1.002/
H A Djim.scm48 (list
76 (method 'default (lambda (knpc kpc) (say knpc "I know not.")))
77 (method 'hail (lambda (knpc kpc) (say knpc "Well met.")))
78 (method 'bye (lambda (knpc kpc) (say knpc "Fare well.")))
79 (method 'job
85 (method 'name (lambda (knpc kpc) (say knpc "Folks call me Jim.")))
86 (method 'buy (lambda (knpc kpc) (conv-trade knpc kpc "buy" jim-merch-msgs jim-catalog)))
87 (method 'sell (lambda (knpc kpc) (conv-trade knpc kpc "sell" jim-merch-msgs jim-catalog)))
89 (method 'join (lambda (knpc kpc)
93 (method 'chan (lambda (knpc kpc)
[all …]
H A Dearl.scm74 (method 'default (lambda (knpc kpc) (say knpc "I forgot.")))
75 (method 'hail (lambda (knpc kpc) (say knpc "Welcome, stranger.")))
76 (method 'bye (lambda (knpc kpc) (say knpc "Oh, were we talking? Bye.")))
77 (method 'job (lambda (knpc kpc) (say knpc "I keep the store. Need something?")
81 (method 'name (lambda (knpc kpc) (say knpc "[He thinks for a minute] Earl! That's it!")))
82 (method 'buy (lambda (knpc kpc) (conv-trade knpc kpc "buy" earl-merch-msgs earl-catalog)))
83 (method 'sell (lambda (knpc kpc) (conv-trade knpc kpc "sell" earl-merch-msgs earl-catalog)))
85 (method 'join (lambda (knpc kpc) (say knpc "You're too late! I forgot all my spells.")))
87 (method 'batt
91 (method 'calv
[all …]
H A Dbill.scm37 (list
104 (method 'default (lambda (knpc kpc) (say knpc "[He shrugs]")))
105 (method 'hail (lambda (knpc kpc) (say knpc "Hi-dee.")))
106 (method 'bye (lambda (knpc kpc) (say knpc "Fare thee well.")))
107 (method 'job (lambda (knpc kpc)
109 (method 'name (lambda (knpc kpc) (say knpc "Called Bill.")))
110 (method 'join (lambda (knpc kpc)
117 (lambda (knpc kpc)
122 (lambda (knpc kpc)
125 (lambda (knpc kpc)
[all …]
H A Dilya.scm41 (method 'get (lambda (kobj getter)
174 (method 'default (lambda (knpc kpc) (say knpc "I don't know.")))
175 (method 'hail (lambda (knpc kpc) (say knpc "Hi.")))
176 (method 'bye (lambda (knpc kpc) (say knpc "Bye-bye.")))
177 (method 'job (lambda (knpc kpc) (say knpc "I help Grandpa with chores.")))
178 (method 'name (lambda (knpc kpc) (say knpc "I'm Ilya.")))
179 (method 'age (lambda (knpc kpc) (say knpc "I'm eight.")))
183 (method 'died (lambda (knpc kpc) (say knpc "Trolls attacked our farm! "
190 (method 'afra (lambda (knpc kpc) (say knpc "I was afraid in the cellar. "
200 (method 'wood (lambda (knpc kpc) (say knpc "Grandpa says to stay out of the woods.")))
[all …]
H A Dgwen.scm11 (list 0 0 trigrave-gwens-bed "sleeping")
12 (list 8 0 trigrave-tavern-table-1a "eating")
13 (list 9 0 trigrave-inn-counter "working")
14 (list 13 0 trigrave-tavern-table-1d "eating")
15 (list 14 0 trigrave-inn-counter "working")
16 (list 20 0 trigrave-tavern-table-1a "eating")
17 (list 21 0 trigrave-inn-counter "working")
85 (method 'default (lambda (knpc kpc)
93 (method 'bye (lambda (knpc kpc) (say knpc "Goodbye.")))
98 (method 'name (lambda (knpc kpc) (say knpc "I am Gwen.")))
[all …]
H A Dgregor.scm23 (define (gregor-mk) (list (mk-quest)))
186 (method 'default (lambda (knpc kpc) (say knpc "Can't help you there.")))
191 (method 'join (lambda (knpc kpc) (say knpc "Nope. Already got a job.")))
192 (method 'name (lambda (knpc kpc) (say knpc "Gregor's my name.")))
228 (method 'fore (lambda (knpc kpc) (say knpc "Stay out of the deep woods. "
244 (method 'ilya (lambda (knpc kpc) (say knpc "Yep. She lives at my place now "
276 (method 'angr (lambda (knpc kpc) (say knpc "Just a legend. "
281 (method 'town (lambda (knpc kpc) (say knpc "Trigrave is the closest town. "
284 (method 'trol (lambda (knpc kpc) (say knpc "Trolls eat folks. "
297 (method 'accu (lambda (knpc kpc)
[all …]
H A Dzane.scm93 (method 'default (lambda (knpc kpc) (say knpc "Ask somebody else.")))
94 (method 'hail (lambda (knpc kpc) (say knpc "[He nods]")))
95 (method 'bye (lambda (knpc kpc) (say knpc "Be seeing ya, buddy")))
96 (method 'job (lambda (knpc kpc)
98 (method 'name (lambda (knpc kpc) (say knpc "Zane.")))
99 (method 'join (lambda (knpc kpc)
104 (lambda (knpc kpc)
120 (lambda (knpc kpc)
124 (lambda (knpc kpc)
127 (lambda (knpc kpc)
[all …]
H A Dshroom.scm155 (method 'default (lambda (knpc kpc) (say knpc "Long ago I might have "
158 (method 'bye (lambda (knpc kpc) (say knpc "Toodaloo!")))
159 (method 'job (lambda (knpc kpc) (say knpc "I sell potions, reagents "
161 (method 'name (lambda (knpc kpc) (say knpc "I'm known as Shroom. At "
165 (method 'shro (lambda (knpc kpc) (say knpc "Mushrooms are my "
168 (method 'maid (lambda (knpc) (say knpc "[she grins with crooked "
178 (method 'join (lambda (knpc) (say knpc "You're too young for me, "
180 (method 'gen (lambda (knpc) (say knpc "Aye, a handsome young man he "
185 (method 'stra (lambda (knpc) (say knpc "He meets them in the forest "
191 (method 'gobl (lambda (knpc) (say knpc "I trade with them now and "
[all …]
H A Denchanters-tower-mech.scm53 (method 'on
59 (method 'off
69 (method 'exec
85 (bind kmirror (list background-tag target-loc-a target-loc-i (list active) handler))
141 (method 'on
145 (method 'off
170 (method 'off
185 (list terrain-on terrain-off target)))
217 (list #f loc-open loc-closed trigger)))
259 (method 'step
[all …]
H A Dtools.scm198 (method 'step
208 (method 'init
271 (define (get-char-from list)
272 (cond ((null? list) nil)
273 ((kern-obj-is-char? (car list)) (car list))
288 (method 'step
301 (method 'init
322 (method 'step
325 (method 'init
345 (method 'step
[all …]
H A Dchanticleer.scm11 (list 0 0 trigrave-east-west-road "drunk")
12 (list 2 0 trigrave-chants-bed "sleeping")
13 (list 12 0 trigrave-tavern-hall "working")
14 (list 23 0 trigrave-east-west-road "drunk")
22 (define (chant-mk) (list 0))
177 (lambda (knpc kpc)
194 (lambda (knpc kpc)
208 (lambda (knpc kpc)
219 (lambda (knpc kpc)
233 (lambda (knpc kpc)
[all …]
/dports/lang/mit-scheme/mit-scheme-9.2/src/sos/
H A Dmethod.scm36 (lambda (method)
57 (list method)
102 (for-each (lambda (method) (add-method generic method)) methods))
173 (lambda (method)
187 (lambda (method)
200 (lambda (method)
205 (lambda (method)
317 (list s))
354 (map (lambda (class) (list class)) classes)
361 (list method))))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/eopl/tests/chapter9/typed-oo/
H A Dclasses.rkt24 (fields (list-of reference?))))
39 (vars (list-of symbol?))
42 (field-names (list-of symbol?))))
49 (list-of
91 (list method-name
100 (field-names (list-of symbol?))
117 (list class-name class)
138 (list
139 (list 'object (a-class #f '() '()))))
145 (list
[all …]
H A Dstatic-classes.rkt18 (list-of
19 (lambda (p)
28 (interface-names (list-of identifier?))
29 (field-names (list-of identifier?))
30 (field-types (list-of type?))
60 (lambda (name)
72 (lambda ()
79 (list name sc)
147 (list m-name (proc-type arg-types result-type)))))
157 (list m-name (proc-type arg-types result-type)))))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/eopl/tests/chapter9/classes/
H A Dclasses.rkt17 ;; an object consists of a symbol denoting its class, and a list of
25 (fields (list-of reference?))))
35 (newref (list 'uninitialized-field field-name)))
42 (vars (list-of symbol?))
45 (field-names (list-of symbol?))))
52 (list-of
94 (list method-name
103 (field-names (list-of symbol?))
120 (list class-name class)
143 (list
[all …]
/dports/lang/mosh/mosh-0.2.7/lib/clos/bootstrap/
H A Dgeneric-functions.ss30 compute-precedence-list
39 (import (only (rnrs) define quote list lambda car cdr begin let cond eq? else error)
110 (lambda (entity method)
121 'specializers (list <class>)
128 'specializers (list <class>)
145 'specializers (list <class>)
164 'specializers (list <method>)
165 'procedure (lambda (%generic %next-methods method-inst init-args)
170 (bootstrap-add-method compute-precedence-list
172 'specializers (list <class>)
[all …]
/dports/lang/gauche/Gauche-0.9.10/ext/sxml/src/
H A Dserializer.scm319 (list node-or-seq))
345 (adj-strs (list (car src))))
634 (list " " prefix-string ":" local-part "=\""
649 (list " xmlns:" prefix-string "=\""
683 (list "<!--" (cadr comment-node) "-->")
720 (list "<?" (symbol->string (cadr pi-node))
876 (list "</" elem-name ">"))
994 (list
1128 (list "<?xml version='" version "'?>")
1129 (list "<?xml version='" version "' standalone='"
[all …]
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/text/sxml/
H A Dserializer.scm336 (list node-or-seq))
362 (adj-strs (list (car src))))
651 (list " " prefix-string ":" local-part "=\""
658 (list " " local-part)
668 (list " xmlns:" prefix-string "=\""
702 (list "<!--" (cadr comment-node) "-->")
739 (list "<?" (symbol->string (cadr pi-node))
893 (list "</" elem-name ">"))
1011 (list
1145 (list "<?xml version='" version "'?>")
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/
H A Dtrait.rkt3 racket/list)
4 (require (for-syntax racket/list racket/base
21 ;; A trait is a list of supplied methods.
128 #'(make-trait (list method ...)
136 (syntax->list
152 (for/list ([id (in-list ids)])
186 (syntax->list
357 (lambda (this-method-arg to-inherit-arg ...
410 [(_ method-lambda (new-body ...))
475 [else (let ([method (list-ref (car indirections) 2)])
[all …]
/dports/lang/racket/racket-8.3/collects/racket/
H A Dtrait.rkt3 racket/list)
4 (require (for-syntax racket/list racket/base
21 ;; A trait is a list of supplied methods.
128 #'(make-trait (list method ...)
136 (syntax->list
152 (for/list ([id (in-list ids)])
186 (syntax->list
357 (lambda (this-method-arg to-inherit-arg ...
410 [(_ method-lambda (new-body ...))
475 [else (let ([method (list-ref (car indirections) 2)])
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/dispatch/
H A Dsyntax.rkt27 (map (lambda (s) (make-path/param s empty))
32 (check-equal? (string-list->url (list))
36 (check-equal? (string-list->url (list ""))
66 (map (lambda (pp/is)
67 (map (lambda (bs)
70 (filter (lambda (pp/i)
77 (lambda (the-req)
109 (map (lambda (pp/is-pre)
123 (map (lambda (pp/is)
136 (match-lambda*
[all …]
/dports/devel/R-cran-caret/caret/R/
H A DexpoTrans.R7 expoTrans.default <- function(y, na.rm = TRUE, init = 0, lim = c(-4, 4), method = "Brent", numUniq… argument
15 results <- optim(init, manlyLik, x = y[!is.na(y)], neg = TRUE, method = method,
17 out <- list(lambda = results$par, est = manly(y, results$par)) nameattr
19 out <- list(lambda = NA, est = y) globalVar
20 } else out <- list(lambda = NA, est = y) globalVar
31 expoTrans.numeric <- function(y, na.rm = TRUE, init = 0, lim = c(-4, 4), method = "Brent", numUniq… argument
39 results <- optim(init, manlyLik, x = y[!is.na(y)], neg = TRUE, method = method,
41 out <- list(lambda = results$par, est = manly(y, results$par)) nameattr
43 out <- list(lambda = NA, est = y) globalVar
44 } else out <- list(lambda = NA, est = y) globalVar
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mred/private/
H A Dmritem.rkt80 [hidden-child? (lambda () #f)] ; module-local method
368 (lambda (method n false-ok?)
648 (lambda (method n)
649 (check-non-negative-integer `(method list-control<%> ,method) n)
652 (raise-range-error (who->name `(method list-control<%> ,method))
789 (check-label-string '(method list-control<%> append) i)
872 (let ([cwho '(method list-box% set)])
892 (let ([cwho '(method list-box% set-string)])
921 (lambda (method n)
922 (check-non-negative-integer `(method list-box% ,method) n)
[all …]
/dports/graphics/R-cran-ggplot2/ggplot2/R/
H A Dstat-quantile.r19 method.args = list(),
31 params = list(
34 method = method, nameattr
52 method.args = list(), lambda = 1, na.rm = FALSE) { argument
58 substitute(y ~ qss(x, lambda = lambda)),
59 list(lambda = lambda) nameattr
78 grid <- new_data_frame(list(x = xseq))
83 method <- quantreg::rq
87 method <- match.fun(method) # allow users to supply their own methods
90 rbind_dfs(lapply(quantiles, quant_pred, data = data, method = method,
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/private/
H A Dcontract-arr-obj-helpers.rkt59 (case->/h method-proc? stx (syntax->list (syntax (cases ...))) select/h)])
139 (lambda (x) (car (syntax->list (syntax (res-vs ...)))))
165 [(arg-list body) (syntax arg-list)]))
226 ;; together and combines the cases of the case-lambda into a single list.
303 ;; method-name->contract-method-name : syntax[identifier] -> syntax[identifier]
304 ;; given the syntax for a method name, constructs the name of a method
306 (define (method-name->contract-method-name stx)
341 ;; the argument list (to be used as the first arg to lambda,
848 (define (->pp/h method-proc? stx) (->r-pp/h method-proc? '->pp stx))
880 [kind-of-thing (if method-proc? 'method 'procedure)])
[all …]

12345678910>>...304