Download code

Jump to: navigation, search

Back to Word_count_(Rexx)

Download for Windows: zip

Download for UNIX: zip, tar.gz, tar.bz2

wc.rexx

 1 /* The authors of this work have released all rights to it and placed it
 2 in the public domain under the Creative Commons CC0 1.0 waiver
 3 (http://creativecommons.org/publicdomain/zero/1.0/).
 4 
 5 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 6 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 7 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 8 IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 9 CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
10 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
11 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
12 
13 Retrieved from: http://en.literateprograms.org/Word_count_(Rexx)?oldid=18672
14 */
15 
16 /* Word counter in Rexx.  Writes counts of lines, words and characters to standard output */
17 LineCount = 0
18 WordCount = 0
19 CharCount = 0@ text
20 
21 
22 Signal on NotReady label EndOfFile
23 Do Forever
24    Parse pull Line
25       LineCount = LineCount + 1
26       WordCount = WordCount + Words(Line)
27       CharCount = CharCount + Length(Line)@ text
28 
29 End
30 EndOfFile:
31 
32 Say LineCount WordCount CharCount@ text
33 


hijacker
hijacker
hijacker
hijacker

Words

Words: Procedure
Line = Arg(1)
Do N = 0 by 1 While Line <> ""
   Parse var Line . Line
End@ text

Return N@ text