on 492ae2f help sign in
37 lines 538 B history raw
1### `++tufa`
3UTF32 to UTF8 tape
5Wrap a `++list` of utf32 codepoints into a utf8 `++tape`.
7Accepts
8-------
10`a` is a `++list` of `@c`.
12Produces
13--------
15A `++tape`.
17Source
18------
20 ++ tufa :: utf32 to utf8 tape
21 |= a=(list @c)
22 ^- tape
23 ?~ a ""
24 (weld (rip 3 (tuft i.a)) $(a t.a))
25 ::
27Examples
28--------
30 /~zod/try=> (tufa ~[~-~44f. ~-. ~-~442. ~-~443. ~-~442.])
31 "я тут"
32 /~zod/try=> (tufa ((list @c) ~[%a %b 0xb1 %c]))
33 "ab±c"
37***