git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/library/src/4b/gate/cuss.md
41 lines 729 B history raw
1### `++cuss`
3To uppercase
5Turn all occurances of lowercase letters in any `++tape` into uppercase
6letters, as a `++cord`.
8Accepts
9-------
11`vib` is a `++tape`.
13Produces
14--------
16A `++cord`.
18Source
19------
21 ++ cuss :: uppercase
22 |= vib=tape
23 ^- @t
24 %+ rap 3
25 (turn vib |=(a=@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32))))
26 ::
28Examples
29--------
31 ~zod/try=> (cuss "john doe")
32 'JOHN DOE'
33 ~zod/try=> (cuss "abc ABC 123 !@#")
34 'ABC ABC 123 !@#'
35 ~zod/try=> `@ud`(cuss "abc")
36 4.407.873
37 ~zod/try=> (cuss "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsQqRrVvWwXxYyZz")
38 'AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSQQRRVVWWXXYYZZ'
41***