@@ -9,19 +9,22 @@
99 (~(has in words) word)
1010++ norm
1111 |= corpus=@t
12+ ^- @t
1213 ?: =(corpus '') ''
13− (crip (cass (trimall (crip (expunge corpus)))))
14+ (crip (cass (expunge (crip (trimall corpus)))))
1415++ split
1516 |= corpus=@t
1617 ^- (list @t)
1718 ?: =(corpus '') ~
18− %+ rash (norm corpus)
19− (more ace (cook crip (plus ;~(pose aln hep))))
19+ =/ test (norm corpus)
20+ %+ rash test
21+ (more (plus ws) (cook crip (plus ;~(pose aln hep))))
2022++ allowed ;~(pose aln hep ace)
21−++ banned ;~(less allowed prn)
23+++ banned ;~(less allowed next)
24+++ ws (mask " \0a\0d\09")
2225++ expunge
2326 |= corpus=@t
24− ^- (list @t)
27+ ^- tape
2528 ?: =(corpus '') ~
2629 %- zing
2730 %+ rash corpus
@@ -33,7 +36,7 @@
3336 ==
3437++ trimall
3538 |= corpus=@t
36− |^ ^- tape
39+ ^- tape
3740 ?: =(corpus '') ~
3841 %+ rash corpus
3942 %+ ifix [(star ws) (star ws)]
@@ -42,8 +45,6 @@
4245 ;~(plug (plus ws) ;~(less next (easy ~)))
4346 ;~(pose (cold ' ' (plus ws)) next)
4447 ==
45− ++ ws (mask " \0a\0d\09")
46− --
4748++ words
4849 %- silt
4950 :~ 'a'