Date: Mon, 11 May 92 06:47:03 PDT From: "Peter Jorgensen" Subject: Word Counter Stack Received: from COLGATEU.BITNET by COLGATEU.BITNET (PMDF #12539) id <01GJVQ6WGNDG8ZGZAN@COLGATEU.BITNET>; Mon, 11 May 1992 09:51 EDT Date: Mon, 11 May 1992 09:51 EDT From: Peter Jorgensen Subject: Word Counter Stack To: infomac: ; Message-id: <01GJVQ6WGNDG8ZGZAN@COLGATEU.BITNET> X-Envelope-to: info-mac@sumex-aim.stanford.edu X-VMS-To: IN%"infomac" Here's a very simple stack that counts the unique words in text files. It creates a list of words and their frequencies for each file. It can process files in "batch" mode. It ignores stop words as defined by a list on the first card. It's not too fast, especially on older Macs, but it does the job and can be customized. This is freeware, copyright 1992 - Interactive Publishing, all rights reserved. You may distribute this stack for free. You may not include it in any commercial offering without prior written consent of the copyright owner, Interactive Publishing, PO Box 325, Hamilton, NY 13346. Peter Jorgensen: User Services/VAX/Mac/DOS Consultant, PostMaster, PMDF guru PJORGENSEN@COLGATEU.BITNET Colgate University - 315-824-7742 (This file must be converted with BinHex 4.0) :$9G[FQ4$Eh9ZG#jcDA3!8dP8)90*9#%!!!!!%AX!!!!!KX06593K!!%!!"&lFNa KG3&!!!!!&J"!!J)+9fpbC#"$Eh9ZG'jKE#"eER0d!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8e4"5eG*6%3"!+B'8jbQ-r#a!!! #9J!!+X!!!!&,!!!2UQZ,@rS!!!!!!!"qp3!!"!J)3!##J!%1"R6LKJ@0"QRFN!" *BbF0Q6TKf,#3!!&4BTdjG16NB6'M)jdb#j!!j)&64Jk9-QhJJ)JKJ1!8+N'@A%R #K!M"RcCakZ6T%kM4Sd"0cB#R+U!+B!%&@'N5CJb40fibNMNaKd@-"Qh#C$h6-Sa AX',$N!#9dj9MQc*RhEbjFrE0Q$&ef0CYb*(P'cKXi(jP+HFXi+TPZJk@mdC-i$D ''Cq4%`Eb(64Pk'!Z[2K0QcFRbCbPI()M38")8b-G!"A!!A!"'F#)24Z!E0S%Dhr !&h"hEcbr!hS!$X!$lq,(M3Gm(C!!YHVRd)qLMNiGJ(2AX'hA[UdG0`$Ihipr)$j H1((Pb)8ICfkpGIAh4JG'9CL3!+!6!&ZX8&'!LL!(!$i%P-336p`hN!!#+5`3%!K (J6!2!!N`#!!K2b&3K4Y-f,9''@3BN!$K'"Z5!3!!)!!`K8U3!#Ar%[i,b$#JJS! UJ!8Ff,"L`!!1hc%8%($"MB!*JPJFfE"!3!JN8`B8!!%3!*BZBEjX#H#EK((8+U) !!#-!P!$3'JD``P'PdD0)NbTGbV5TdkG3SdUG5V9T!fN"'GJ*J#)!U+TJ`iSG5lD XfE)Z*c*%"%!%!,CZ%5%5)8)ZA85U4+M#UjHCUKQUr!*fTfUA+X+'hHhDj8iaihq lrVQ$,*Pb`XMr!%%3!#)!!L!%&)Vq0lGdA4%44"""P(Se-8!-d!`4!-0%,"J$0Q! $aU#4+J#rJlm98H9dF86&Ub!RIUGEmqIGdPC89B@kp5S$##'"`8"!J!##L13J)ZK l!%384!4"&%3%"8#!J[K!J)$#1"%%'0%4F3%6"&q!)),!1JJJ!NJ*b-L3!!JC*$! KL5LF"1',#XP3X!i3A`&!`%-!!!)%##m4-0"[,V(P8QE`T3J)!Kb)%!`J!3J3@SV rd)F!2[XGmFJ&)X6a#`#rr!,,N!#`r21(,ef)%S4,qY66*#K33(R@P&4@DH@9@'D TjCCFGZRPPf#'+HDBC*CTjTPIFY4%%!@*"P8!,S35%"3L!8#*4J'!m*&2GJ!3`"4 B984&-@J@DZLKL#DUU*@!-*&%35$9@4&'!MA%%3X[!I$3!&m&S-p'&Me!D&','M8 3R8F8%C!!U"D&a)qI3(4d!aJ(2#4!V%DJJB%1Q3JJ`!`m`3-"&4d+!NF13%K"!d3 J3)!!#UP!`J!('N`8#LJZ+%2')0J!mSmE[1b5c4*bh!!,(GV%dd8e+*Lc4crQH21 $!Ai`d-B0b25#65pX'&RU[`!(,2$!""GXm-%)*kc``J`hl2$$%%FXmF389fbaP4% !)X354a#4N9*&+D#4TKS0a'%"4Sa%L*m#Q(3!!#B!F%%!I'4Ud3!!*-!3!dQiB83 DE*34d"YZJ0$''hA-88B9F$33K"Ych&''(##B!A3C))J`44P"Md%(#'&8I68)G,` "!Kab[$&''A2-iB))),aK"YPj`)'e#&38J389)M3!4aeITa'i'f8EA8B$CEK"KY& )+mhd46)!-%$,!0J!F`!MH!A!bcF$`!"$%&caKKaNc$&dd8FR[A665Rp0"aTBXk( f'R58JFIAFKY1YYPQK-''dJf-`8BDBk`"YZZ`Jb!mm@[)2NB$DFcp1YCM[0&''f% S[NBCHB#3!-BF)*!!mFBG48r[4J0NF&e'l@3RVh6AYC-a["Z(Sj&'qZeMhFBFCb$ qqq&R@*rhDYF'%-3JER1cJqrU8!B86!m%lbZ$emSJ[c63,`9q!a`)j,#q1XLKD#B B)0M-8$ZUQB%0La1"k%Jh"lMPEJb,L`(L&1Fp-c5JGIN$JI0SCc[FcDd0@#XF(H6 !`"NZVJQ0@ae$BNB!'3(J!`!i!3"L%)"&f+`L100C9UC!Kc$3`A3-%33!#N#TPa% !!"aS#b"`*T5GJHi)EcJGie6(Y"X+m)(f'allFJI%hC'0L)G$QpVB0SHI"@d1GN3 He[)S1+ca-BLmmah`%VHie$N1$KGCQ3%SK3-r!F!*!#$"'LIPaT0-BA4dN!#M*9H Ab"`bFSmrK13ILiM$"qj`$Q2JB1,m1-3L2LeU8m[D+HA`Y5#`!3jS#)-BeNFmhl' KHk-$J4LkC`B1aS'"EKK$(Ri!YcX)$JeC'd,feXB'&e*02FG-TMQcCJ4VpLek)[a H1-I*0ELC$`5f%p`F,`QpZHP6RZK%CKMX#EZLc3'9980KePCBZRIk-h$J%d%lba! (JLDZ!9)SJafQTV3N%"#4"b9Q3P2)d"D'MfeV8j`&qjI41C50JaiY`rk-@--',,- -V,YMmPlTb&MkXAIrSqNU(`F!*Qb1FTXFK-`#i!Q,*%4bRJ2G%-MJK$Ud3C9*V+2 iQT!!Z$TN,D-ThBp3X`U&J#"")*5#)Xk@43*3X*%KP)VU5C!!`$9-!S"Sqf3P(*@ A3VSHXfq8c#Y4Jj)!5PN"!!X!!"X!d)''J'!HRX`+k*J`1kc5X@R`I#$am2T)li% 2"c5B33hbCe#GBQfc4HYXi@)!JaV!i!Eq8aS%6HZpkUA@Ti8$V@KEDF[CeHjf#"a TeZi`ZSEb-RQS$@iIjDRE'SceXR,Ni%EPd0'20S#$G[-L#,cj1Zq"S!F'2#l@h'$ 9C9)YGr0MQrH+GN+5&VH&[%hH'$`B8Mq+)@Pjb1$Af"!'P`j3TX&0VhGcepk&[KG Z)43"#q#f6$1-lV3%$#pk,AMDi"CBK3HQ+AE,i%80Dj5MCBMT6"Z!9`kkp-%L4Z5 'YFYGF+EKZq%9B[,)f`Ec"TM#i,1JF$(-`Vl98VldM@EKlMZ(r+B[D1aVC!%21'( k$AKZ&biTB'QiBMTiq-3`Y5k*LdB&ChB[$!be)rb8PdbU(E"`FM0$ke!!jZ+D3-% +M[+"8f"KKBU!Z$eZ3!!9#3)DflM*kYAa!b2SY633V3&K)%--rFKIrbVjaNl@*i( Y,'@DGTN0cfc!PXq@YV@ec@U(G"V8T'E#XBPJ#'Ki`aYN'cC3bc*l[XZ$(XV`YZ$ 5S@jhbp[Hq[Dh`!e1aQ8`*0X`LP-1Ikd1K!0D2-%R8cMF@Y6!,(A3`TRU9@-YHfq BRV4IlBCBcjS&FD2DmSUR2(Ub`EjP1)-&Djfl@pXYDlVQ@cqAhHGXVcGr`JEI2AZ p`3jq%!3Ke'FB5"M-kH8lYPMl*DQc*Jd4Q%"`Ejl'G[X,0MC`-0(G)h6mUKC03AT k$LYpQiHcDq8UErHEhJA[QFhf3$m(%p!j,KrX$Xj[%8#Kdi4FUGLQM@$[*MLi2@p jH9mqYr6'(0pA3q3Cc0CS+fqeUePc3KRZ!!*aNSlA'K6`LpXpmk5[Yh!AlTQ`qhE c3EC0f#-h0Ndp6NKA)h,6CImifRmFZpRK8TIPBcNJpEYM+3Gh$'%JAAJY@$JZ[J% 19bMG[-2ZXk["6Cl0[M9TCdY$%3`9$[ENRCh&lRLq-hlXAcFEji0'BVZaGfbM2ea QNfIL1V!"S[KXJl1lCllVFRKaeE6HcV'@HK!JQ`l+jL!G2(JqIX-!i2dHrVm*VhR hjTRIXdjEk%&3dVJ6NS+f*lR[NhhZIc*EpXp1p1+%AQ1LErHpppCRiDU2mlCKhq3 Y6RQ-@6lMSCphERJZAIUY6(IP"CPU3iCII1G5FT!!"R!!"FMQ05L3!(p20N"daRc j%fE`*(c%Khc6`e$)4i(,Gh5'KhMk9hY"S'McTd-8*Q&34QNC4Mr!9@8)9d2*9i% KG)(&KAa`jPRe0MKpGf#NaAFb+(J*aJ)ad(-D@$3$9d)jQ'GF!cbApN`4@&`d&6e Tef'VTcp*0'l'Fdrjp$8XH('iPcB&j'SJd(Zr&hcqGMk"aB,#Bffl&iD04hSZj8A J`hjQTc4NB&0PJ&-)ahH4ecd3q(QGCheRGc92D%1""BL&*)J0B!B*#(ai034)3cJ P&9r8mhpqG!GH0!CS`(I("i&Pdd9XN!"paRCbhI9L+LGHI@CrN!!@D1b&JRNQIMV 8Ali'B)$@J(,@Bhj%"GRQ1e&BFQ@i1jj)8iliHj'iD9`%Kp6hASD)II!NKap(36D iKj2(Em%)LHq&!Jp)1'E$M0GAKrbQMHkh1#D3!'$j"cjXpidlJ'!Q)!`03(jr9R3 iGQqeD&`Y%&lKQ$A)PJEAK$AMH)i!Pii0)'"-GS,1Cece+!)R"JIRad+eeSGf9Sa Ie$G(YMka8i)"HB30G8-)C69F-j!!m"9B$[PfLTK0M'K33f5!##L5B"0Q,!K268G QJ4F'%h4r+6Q$mU4M#ZB#,C!!!LLJ!LEJ"59!!L-!"#(`!cZJ!bH`"9f`"hh!"Ac `!Ji(!YH8E9J63PA9"VL)DS'(!M*J!h4@Ha(*2Lf*L5mCNm(9CU66J["N0G6e0@) TNfDj1$9C0$HCNc[CNcmCP%0CP%HCP%[CP%mCPHa$P9CeP@@QP9bjJeq*0@VTAfd *NdDB1frCJN-iNfGjKXA@BB&&J#DjL*V'@DCRGGbS3HaSIUmM6c!%![-S!p0hB90 9PEc@Aq"cH)N$QM6e"*mCH(@iD8p(AY4R2jJSBLa`"Ek*"Pa&A[-QR-5$"L*QJb, J9jJhH8[(9eRMR)$e2fF$Qq(c"X9C"c5eQh8J&3%!$%-3"&,J-BMe%5-4+dI"+L5 6+@F8%&kJ)3cK$J$!!bm49jI6&C!!-"*ap6NRB9RmG&00%eLA&a"Z-3#83NC@K!' DJjq4*9F!J")0J60M!!#)KQLrm`D)eJD)GMlC8iICNeq"GcMpK@K@GP2RFemRQPq !GciYHJ*1Tk&*d!"*F!)F@U-E"6f)*$FN*JIV#$Xr1M@(8jU)4!@T"M`A!3#4Bk4 XFfdFP%-(QC!!T30ZiZ-'-(T55"C%pJ-qJ%Fk,V!j808#-4!3Cc3%!)#,rABd'b@ Pi&Bper1K,@#&F9-dJZ-#))#QL90#E6Smj)CA`q05,C!!Iepk9kPeQfFC8Pm6Mr! &"pJTQfj!Qi(PU+"*%J3!"10CRYC#%QHeRS65RKa"+[(jRJ0!#[AT*`l+&3'`RaE 4Rk!$S+`NS-pe53CkR`&"4Sm!!"R3S+3N@IrC%#r$%6$J5C%c"(aU2)+fT@+cNAk d0@2QDLJ`"eeT0ZAS0[*T!34K9GJM"em'"pP&A5!!1acdT3-`!%S!#*Cc%3%`TYk a,0m4"IFCRpra#IGj#L`$)T-6-c&##C)M!*M!-YL`VpcJ*dBU6fp)EYk%DFVcL(c QFM*jMrNST8FA0Vq9U&GMT`d!!Q()PKGA1q!60SMUM(rU3qfMKZ-SLZ!d2@PJ3YD %6@13!!DUf$lbT*%SC,%Bke%*qhYc!'iUQThUj3Ef&V,J&UAMD+FG#,&Jmk3Kkic ('V-ZUe"ieD8aj!)AHkGQiiSH@cB)QAp"Q`Dbai4bLPIr*(0-Ukai&D,P*RJl#l8 '*,8BLkBFT+EAaUB*qkD+%kI&1UFj*+KhLU`(HfjiCMa2Lj[K4A&5JfPX#`*CJ$6 P9PTMeJDZ"ha`-'eZjdI6ZV9GfchEJe1c"6mk0lR(LM9[U$L##iCNN!!'[[-'Cb" 0Ei!(GLUFZj3(LMZLfHPN'YHj5EHRc&0ejQDR4E"4G$ShX1Y9'JFfDhJd6rSkf61 RDb0#I6ZR6,K-R$D(cNJdDm1l-!P1B,KR1IC&F8-qCdX'KmZN)$"-Ak1LC9-dcBZ S155cC!"ZY(B'GPU%`45m*l#Q&04)F%N(iCXmP%9Zb@@qH0@m1a4ZfcI!4*UX#Z9 J9(1r`1F'm1ZF)`%'"5%%4Z8jIG)jC!TA'X`3Sl%3*%%Uq*N3'2&8*2&@)I`2(%( #k@N%9%$"!A%9)d%U!6%!4j!!1"S9"J!`#3'"DXfdG!'K#CUc#Am#!%*-,%,m&8) X*`&aTd'3!!4-i#B-m3"9"3++3$ATmc9c`!D!N`b8h3!!: