on 492ae2f help sign in
41 lines 519 B history raw
1### `++trip`
3Cord to tape
5Produce a `++tape` from `++cord`.
7Accepts
8-------
10`a` is an atom.
12Produces
13--------
15A `++tape`.
17Source
18------
20 ++ trip :: cord to tape
21 ~/ %trip
22 |= a/@ ^- tape
23 ?: =(0 (met 3 a))
24 ~
25 [^-(@ta (end 3 1 a)) $(a (rsh 3 1 a))]
26 ::
29Examples
30--------
32 /~zod/try=> (trip 'john doe')
33 "john doe"
34 /~zod/try=> (trip 'abc 123 !@#')
35 "abc 123 !@#"
36 /~zod/try=> (trip 'abc')
37 "abc"
41***