on bfaa358 help sign in
39 lines 549 B history raw
1### `++met`
3Measure
5Computes the number of blocks of size `a` in `b`, producing an atom.
7`a` is a block size (see `++bloq`).
9`b` is an atom.
11Source
12------
14 ++ met :: measure
15 ~/ %met
16 |= {a/bloq b/@}
17 ^- @
18 =+ c=0
19 |-
20 ?: =(0 b) c
21 $(b (rsh a 1 b), c +(c))
23Examples
24--------
26 ~zod/try=> (met 0 1)
27 1
28 ~zod/try=> (met 0 2)
29 2
30 ~zod/try=> (met 3 255)
31 1
32 ~zod/try=> (met 3 256)
33 2
34 ~zod/try=> (met 3 'abcde')
35 5
39***