lib/exercises-in-programming-style
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #1 from rvdheij/rvdheij-cms

Browse Source 
Solution with REXX filter in CMS Pipelines
This commit is contained in:
rvdheij
2019-04-26 16:55:53 +02:00
committed by GitHub
parent ed8c3cabaa c23828777f
commit 0f826ee6bc
1 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
05-pipeline/tf-05.rexx Normal file
View File

@@ -0,0 +1,26 @@
/* WORDFREQ REXX Exercises in Programming - CMS Pipelines style */
/* Author: Rob van der Heij, 26 Apr 2019 */
/* Use: */
/* PIPE (end \) < pridenp txt | w: wordfreq | cons */
/* \ < stop_wor txt | w: */
alpha = 'A-I a-i J-R j-r S-Z s-z a-i a-i j-r j-r s-z s-z'
'callpipe (end \ name WORDFREQ.REXX:6)',
'\ *: ',
'| xlate *-* 00-FF blank' alpha , /* Keep words in lower case */
'| split ', /* .. on separate records */
'| locate 2', /* At least 2 letters long */
'| l: not lookup', /* Drop all stop words */
'| sort count', /* Count the remaining words */
'| sort 1.10 d ', /* Sort on number of hits */
'| take 25', /* Take top-25 */
'| spec 11-* 1 , - , nw 1.10 strip nw ', /* Make pretty layout */
'| *:',
'\ *.input.1: ', /* Read stop words */
'| split ,', /* .. as one word per line */
'| l:' /* into lookup table */
return rc * ( rc <> 12 )