| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/121/ |
| H A D | test.sld | 16 (test '(8 9 10) (generator->list (make-iota-generator 3 8)))
17 (test '(8 10 12) (generator->list (make-iota-generator 3 8 2)))
18 (test '(3 4 5 6 7) (generator->list (make-range-generator 3 8)))
19 (test '(3 4 5 6) (generator->list (make-range-generator 3) 4))
20 (test '(3 5 7) (generator->list (make-range-generator 3 8 2)))
23 (make-coroutine-generator
51 (generator->list (gappend (make-range-generator 0 3)
66 (let ((g (make-range-generator 1 5)))
111 (test 2 (generator-count odd? (make-range-generator 1 5)))
112 (let ((g (make-range-generator 2 5)))
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/ |
| H A D | 121.sld | 2 (export generator
3 make-iota-generator
4 make-range-generator
5 make-coroutine-generator
6 list->generator
7 vector->generator
9 string->generator
11 make-for-each-generator
12 make-unfold-generator
31 generator-fold
[all …]
|
| H A D | 158.sld | 4 (export generator circular-generator make-iota-generator make-range-generator
5 make-coroutine-generator list->generator vector->generator
6 reverse-vector->generator string->generator
7 bytevector->generator
8 make-for-each-generator make-unfold-generator)
13 (export generator->list generator->reverse-list
14 generator->vector generator->vector! generator->string
15 generator-fold generator-map->list generator-for-each generator-find
16 generator-count generator-any generator-every generator-unfold)
17 (export make-accumulator count-accumulator list-accumulator
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/158/ |
| H A D | test.sld | 13 (make-coroutine-generator
32 (test '(8 9 10) (generator->list (make-iota-generator 3 8)))
33 (test '(8 10 12) (generator->list (make-iota-generator 3 8 2)))
34 (test '(3 4 5 6) (generator->list (make-range-generator 3) 4))
36 (test '(3 5 7) (generator->list (make-range-generator 3 8 2)))
71 (set! g (make-range-generator 1 5))
77 (set! g (make-range-generator 1 5))
79 (set! g (make-range-generator 1 5))
164 (test 2 (generator-count odd? (make-range-generator 1 5)))
165 (set! g (make-range-generator 2 5))
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/ext/mt-random/ |
| H A D | test.scm | 21 (define (make-random-sequence class size generator)
24 (add! (generator)))))
26 (define m (make <mersenne-twister>))
49 (^[] (let ([m0 (make <mersenne-twister> :seed 1)]
57 (^[] (let ([m0 (make <mersenne-twister> :seed 1)]
70 (^[] (let ([m0 (make <mersenne-twister>)]
71 [m1 (make <mersenne-twister>)])
80 (^[] (let ([m0 (make <mersenne-twister>)]
81 [m1 (make <mersenne-twister>)])
129 (iota 10))))
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/ |
| H A D | red.sld | 215 generator generator->ideque
216 generator->list generator->lseq
219 generator-any generator-count
220 generator-every generator-find
281 interaction-environment iota
342 make-comparator make-coroutine-generator
345 make-eqv-comparator make-for-each-generator
348 make-iota-generator make-list
352 make-range-generator make-rectangular
353 make-rlist make-string
[all …]
|
| /dports/net-im/dendrite/dendrite-0.5.1/vendor/golang.org/x/mobile/example/ivy/android/app/src/main/assets/ |
| H A D | demo.ivy | 57 # iota is an "index generator": It counts from 1.
58 iota 10
59 2 ** iota 5
60 (1 << iota 100) == 2 ** iota 100
70 iota 15
74 +/iota 15
77 */iota 10
78 */iota 100
112 (iota 5) o.* -1 + iota 5
114 # Any operator works; here is how to make an identity matrix.
[all …]
|
| /dports/security/keybase/client-v5.7.1/go/vendor/golang.org/x/mobile/example/ivy/android/app/src/main/assets/ |
| H A D | demo.ivy | 57 # iota is an "index generator": It counts from 1.
58 iota 10
59 2 ** iota 5
60 (1 << iota 100) == 2 ** iota 100
70 iota 15
74 +/iota 15
77 */iota 10
78 */iota 100
112 (iota 5) o.* -1 + iota 5
114 # Any operator works; here is how to make an identity matrix.
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/net/ |
| H A D | rss.scm | 175 (only (srfi :1) filter-map split-at iota drop)
194 (make (make-make #'k #'tag))
213 ((_ (@ attr) item) (make attr item))
214 ((_ item) (make '() item)))))))
236 generator
275 (make (make-make #'name #'name))
278 (iota (count #'(attrs ...))))))
295 #'(make item ordered (... ...))))
297 #'(make item))))))))))
514 generator
[all …]
|
| /dports/math/latte-integrale/latte-version_1_7_6/code/latte/testingSLandTopEhrhart/TopEhrhart/ |
| H A D | TopEhrhart_lib.mpl | 300 v[j]:=add(S[iota[i]]*W[iota[i]][j],i=1..nops(iota));
313 # decompose V in lin(iota)+lin(iota_c);
323 k:=nops(iota);
346 P:=projectedlattice(W,iota);
349 for i from 1 to nops(iota) do
369 iotac:=GeneralComplementList(iota,DD);
389 functionIzero:=proc(W,iota,x)
393 if nops(iota)=nops(W) then
411 # Math: Our cone has generator w1,w2,...,wd.
445 H:=projectedlattice(W,iota);
[all …]
|
| /dports/math/latte-integrale/latte-version_1_7_6/code/latte/top-ehrhart/ |
| H A D | TopEhrhart_lib.mpl | 300 v[j]:=add(S[iota[i]]*W[iota[i]][j],i=1..nops(iota));
313 # decompose V in lin(iota)+lin(iota_c);
323 k:=nops(iota);
346 P:=projectedlattice(W,iota);
349 for i from 1 to nops(iota) do
369 iotac:=GeneralComplementList(iota,DD);
389 functionIzero:=proc(W,iota,x)
393 if nops(iota)=nops(W) then
411 # Math: Our cone has generator w1,w2,...,wd.
445 H:=projectedlattice(W,iota);
[all …]
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | srfi-171.test | 28 (define numeric-list (iota 5))
38 (define rnrs-hashtable (rnrs:make-eq-hashtable))
251 (pass-if "generator-transduce"
255 (generator-transduce (tmap (lambda (x) x)) rcons read))))
257 (pass-if "generator-transduce with identity"
261 (generator-transduce (tmap (lambda (x) x)) rcons '() read))))
|
| /dports/lang/racket/racket-8.3/share/pkgs/srfi-doc/srfi/scribblings/ |
| H A D | srfi.scrbl | 53 (make-list #f "make-list")
57 (iota #f "iota")
255 (make-string #f "make-string")
453 (make-time #f "make-time")
473 (make-date #f "make-date")
568 (make-array #f "make-array")
665 (make-parameter #f "make-parameter")
760 (generator #t "generator")
777 (:generator-proc #t ":generator-proc")
794 (make-vector #f "make-vector")
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/mats/ |
| H A D | misc.ms | 2127 ($cc-sum-2 (iota 10))
2137 ($cc-sum-2 (iota 100))
2386 (let f ([eng (make-engine (lambda () ($cc-reverse-3 (iota 10))))])
2512 ($cc-sum-2 (iota 10))
2522 ($cc-sum-2 (iota 100))
3807 (letrec ([iota-fill!
3815 (iota-fill! v 0 n)
4994 (define (make-x-generator)
5003 (and (parameterize ([current-generate-id (make-x-generator)])
5022 (parameterize ([current-generate-id (make-x-generator)])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/mats/ |
| H A D | misc.ms | 2127 ($cc-sum-2 (iota 10))
2137 ($cc-sum-2 (iota 100))
2386 (let f ([eng (make-engine (lambda () ($cc-reverse-3 (iota 10))))])
2512 ($cc-sum-2 (iota 10))
2522 ($cc-sum-2 (iota 100))
3807 (letrec ([iota-fill!
3815 (iota-fill! v 0 n)
4994 (define (make-x-generator)
5003 (and (parameterize ([current-generate-id (make-x-generator)])
5022 (parameterize ([current-generate-id (make-x-generator)])
[all …]
|
| /dports/math/curv/curv-0.5/ideas/language/effects/ |
| H A D | Procedures | 13 * An action value is an unevaluated generator or debug action.
14 * `!<action>` is a generator/statement that invokes an action.
123 action <generator>
129 it is a generator. See below.
137 to the generator values of [[abstraction/Generators]].
171 in any context requiring a generator argument.
359 iota n = 1..n;
368 the two protocols, either '...iota n' or '[gen_iota n]'.
414 but now it can make that distinction.
498 * A statement is an action, value generator, or field generator.
[all …]
|
| H A D | README | 92 A 'value generator' effect can be modelled as a function that maps
100 The value E generated by the generator is processed by executing
137 The purpose is to encapsulate value and field generator effects.
170 Does it compose with 'match'? Not really, no. It doesn't make a lot of sense
387 iota n = 1..n;
396 the two protocols, either '...iota n' or '[gen_iota n]'.
402 There is no way to directly iterate over a generator. You have to
404 by deterring the use of generator procedures in libraries?
442 but now it can make that distinction.
526 * A statement is an action, value generator, or field generator.
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | scheme-lang.rkt | 119 (rename-out [make-parameter $make-thread-parameter]
120 [make-parameter make-thread-parameter]
169 [make-bytes make-bytevector]
222 iota
326 $make-read
519 (define (rcdi->generator rcdi)
535 (#,(rcdi->generator base-rcdi)
542 (cons #`[id (#,(rcdi->generator rcdi) #,c)]
721 (define (iota n) function
976 (make-hash)]
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | scheme-lang.rkt | 119 (rename-out [make-parameter $make-thread-parameter]
120 [make-parameter make-thread-parameter]
169 [make-bytes make-bytevector]
222 iota
326 $make-read
519 (define (rcdi->generator rcdi)
535 (#,(rcdi->generator base-rcdi)
542 (cons #`[id (#,(rcdi->generator rcdi) #,c)]
721 (define (iota n) function
976 (make-hash)]
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | 5_3.ss | 3087 (define-record pseudo-random-generator
3098 (set! pseudo-random-generator?
3102 (set! make-pseudo-random-generator
3109 (set-who! pseudo-random-generator-seed!
3111 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3117 (set-who! pseudo-random-generator-next!
3124 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3141 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3160 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3199 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | 5_3.ss | 3087 (define-record pseudo-random-generator
3098 (set! pseudo-random-generator?
3102 (set! make-pseudo-random-generator
3109 (set-who! pseudo-random-generator-seed!
3111 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3117 (set-who! pseudo-random-generator-next!
3124 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3141 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3160 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
3199 (unless (is-pseudo-random-generator? s) ($oops who "not a pseudo-random generator ~s" s))
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/doc/ |
| H A D | modgauche.texi | 7482 Like @code{iota} (@pxref{List constructors}), creates a generator
7486 @code{iota} (@pxref{List constructors})のような、@var{start}で始まり
7708 註: SRFI-151の@code{make-bitwise-generator}は
7905 @defun make-iota-generator count :optional start step
7916 @defun make-range-generator start :optional end stop
7926 @defun make-coroutine-generator proc
7936 @defun make-for-each-generator for-each obj
7950 (define (make-for-each-generator for-each coll)
22652 @defun make-word-breaker generator
22653 @defunx make-grapheme-cluster-breaker generator
[all …]
|
| /dports/math/dieharder/dieharder-3.31.1/libdieharder/ |
| H A D | NOTES | 46 implemented when enough tests to make it worthwhile are already
84 generator as being a good one just because a test run of the generator
91 result of a run isn't inconsistent with the generator producing "real"
93 >>never<< be explained or believed for a true random number generator.
96 that the tested generator is random, acceptable p-values, even a fair
124 The monobit statistic checks to make sure that the raw number of 1's and
255 obvious, but if we make the very weak presumption that our test
257 systematically at bit 0 or bit 1 (so that if we have a bad generator
270 value in the same direction. If we only make the extremely weak
315 enough counts in each pattern histogram to make aggregate statistics
[all …]
|
| /dports/math/dieharder/dieharder-3.31.1/dieharder/ |
| H A D | NOTES | 46 implemented when enough tests to make it worthwhile are already
84 generator as being a good one just because a test run of the generator
124 The monobit statistic checks to make sure that the raw number of 1's and
255 obvious, but if we make the very weak presumption that our test
270 value in the same direction. If we only make the extremely weak
315 enough counts in each pattern histogram to make aggregate statistics
584 I also don't think that this really counts 1's. How is this one iota
627 I clean up the UI itself while I'm at it to make it even more modular
748 make the 8-tuple 01111000, test stream of 8-tuples created with this
802 program. If I make int *pattern a global variable that can be
[all …]
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/runtime/ |
| H A D | runtime.pkg | 2594 iota ;SRFI-1
4718 make-name-generator
5207 generic-procedure-generator
5208 set-generic-procedure-generator!))
5214 add-generic-procedure-generator
5217 generic-procedure-default-generator
5218 generic-procedure-generator-list
5219 remove-generic-procedure-generator
5247 %record-accessor-generator
5249 %record-initpred-generator
[all …]
|