on master help sign in
update cass and cuss
commit56b2cccfd8a2778b00754712d52fb1bcb3497e6e authorChristopher King <chris@cking.me> dateFri 16 Aug 2019, 17:50 (7 years ago) parente05934e
1 file changed+19−25
reference/library/4b.md+19−25
reference/library/4b.md+19−25
@@ -185,7 +185,8 @@ XX document
185185
186186To lowercase
187187
188−Produce the case insensitive (all lowercase) `++cord` of a `++tape`.
188+Turn all occurences of uppercase letters in any `++tape` into lowercase
189+letters. Returns a `++tape`.
189190
190191#### Accepts
191192
@@ -193,31 +194,28 @@ Produce the case insensitive (all lowercase) `++cord` of a `++tape`.
193194
194195#### Produces
195196
196−A `++cord`.
197+A `++tape`.
197198
198199#### Source
199200
200201```
201202 ++ cass :: lowercase
202203 |= vib/tape
203− %+ rap 3
204+ ^- tape
204205 (turn vib |=(a/@ ?.(&((gte a 'A') (lte a 'Z')) a (add 32 a))))
205206```
206207
207208#### Examples
208209
209210```
210− > (cass "john doe")
211− 7.309.170.810.699.673.450
212−
213− > `cord`(cass "john doe")
214− 'john doe'
211+ > (cass "JOHN DOE")
212+ "john doe"
215213
216− > (cass "abc, 123, !@#")
217− 2.792.832.775.110.938.439.066.079.945.313
214+ > (cass "abc ABC 123 !@#")
215+ "abc abc 123 !@#"
218216
219− > `cord`(cass "abc, 123, !@#")
220− 'abc, 123, !@#'
217+ > (cass "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsQqRrVvWwXxYyZz")
218+ "aabbccddeeffgghhiijjkkllmmnnooppqqrrssqqrrvvwwxxyyzz"
221219```
222220
223221---
@@ -259,8 +257,8 @@ A `++cord`.
259257
260258To uppercase
261259
262−Turn all occurances of lowercase letters in any `++tape` into uppercase
263−letters, as a `++cord`.
260+Turn all occurences of lowercase letters in any `++tape` into uppercase
261+letters. Returns a `++tape`.
264262
265263#### Accepts
266264
@@ -268,32 +266,28 @@ letters, as a `++cord`.
268266
269267#### Produces
270268
271−A `++cord`.
269+A `++tape`.
272270
273271#### Source
274272
275273```
276274 ++ cuss :: uppercase
277− |= vib=tape
278− ^- @t
279− %+ rap 3
280− (turn vib |=(a=@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32))))
275+ |= vib/tape
276+ ^- tape
277+ (turn vib |=(a/@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32))))
281278```
282279
283280#### Examples
284281
285282```
286283 > (cuss "john doe")
287− 'JOHN DOE'
284+ "JOHN DOE"
288285
289286 > (cuss "abc ABC 123 !@#")
290− 'ABC ABC 123 !@#'
291−
292− > `@ud`(cuss "abc")
293− 4.407.873
287+ "ABC ABC 123 !@#"
294288
295289 > (cuss "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsQqRrVvWwXxYyZz")
296− 'AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSQQRRVVWWXXYYZZ'
290+ "AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSQQRRVVWWXXYYZZ"
297291```
298292
299293---