@@ -3,42 +3,57 @@
3 |= corpus=@t
3 |= corpus=@t
4 ^- (list @t)
4 ^- (list @t)
5 ?: =(corpus '') ~
5 ?: =(corpus '') ~
6+ =/ parts (split corpus)
7− (split corpus)
9+ (need parts)
8 |= word=@t
10 |= word=@t
9 (~(has in words) word)
11 (~(has in words) word)
11 |= corpus=@t
13 |= corpus=@t
13 ?: =(corpus '') ''
15 ?: =(corpus '') ''
16+ =/ cleaned (trimall (weave (expunge (weave (trimall `corpus)))))
18+ (crip (cass (need cleaned)))
20+ |= corpus=(unit tape)
14− (crip (cass (expunge (crip (trimall corpus)))))
23+ (some (crip (need corpus)))
16 |= corpus=@t
25 |= corpus=@t
17− ^- (list @t)
26+ ^- (unit (list @t))
18 ?: =(corpus '') ~
27 ?: =(corpus '') ~
19 =/ test (norm corpus)
28 =/ test (norm corpus)
20− %+ rash test
29+ %+ rush test
21 (more (plus ws) (cook crip (plus ;~(pose aln hep))))
30 (more (plus ws) (cook crip (plus ;~(pose aln hep))))
22++ allowed ;~(pose aln hep ace)
31++ allowed ;~(pose aln hep ace)
23++ banned ;~(less allowed next)
32++ banned ;~(less allowed next)
24++ ws (mask " \0a\0d\09")
33++ ws (mask " \0a\0d\09")
26− |= corpus=@t
35+ |= corpus=(unit @t)
27− ^- tape
36+ ^- (unit tape)
28− ?: =(corpus '') ~
37+ ?~ corpus ~
29− %- zing
38+ =/ text (need corpus)
30− %+ rash corpus
39+ ?: =(text '') ~
33− ;~(pfix (plus banned) (star allowed))
44+ ;~(pfix (plus banned) (star allowed))
34− ;~(sfix (star allowed) (plus banned))
45+ ;~(sfix (star allowed) (plus banned))
35− (plus allowed)
46+ (plus allowed)
49+ `(zing (need parsed))
38− |= corpus=@t
51+ |= corpus=(unit @t)
39− ^- tape
52+ ^- (unit tape)
40− ?: =(corpus '') ~
53+ ?~ corpus ~
41− %+ rash corpus
54+ =/ text (need corpus)
42 %+ ifix [(star ws) (star ws)]
57 %+ ifix [(star ws) (star ws)]