"coded in workspace of VisualWorks® NonCommercial, 7.2 of November 3, 2003" "I previously manually downloaded links.txt to my computer" cut := 100. ignore := OrderedCollection with: 'CategoryHomePage'. filename := Filename named: 'c:\Documents and Settings\Owner\My Documents\My Downloads\links.txt'. lineStrings := filename readStream contents tokensBasedOn: Character cr. pages := lineStrings collect: [:each | each trimSeparators tokensBasedOn: Character space]. homepages := pages select: [ :each | each includes: 'CategoryHomePage']. pageCountBag := Bag new. homepages do: [ :each | pageCountBag addAll: each ]. pageCountDictionary := pageCountBag instVarAt: 1. pageCountCollection := pageCountDictionary associations. pageCountFilteredCollection := pageCountCollection reject: [ :each | ignore includes: each key ]. pageCountSortedCollection := (pageCountFilteredCollection asSortedCollection: [ :a :b | a value > b value ]) asOrderedCollection. topPageCounts := pageCountSortedCollection copyFrom: 1 to: cut. topPageCounts addFirst: (Core.Association key: 'Number of Wiki home pages' value: homepages size). topPageCounts addFirst: (Core.Association key: 'Number of Wiki pages' value: pages size). stream := WriteStream on: String new. stream cr. topPageCounts do: [ :each | stream space. each printOn: stream. stream cr. ]. stream contents.
Number of Wiki pages->27339 Number of Wiki home pages->3589 ExtremeProgramming->300 AreYouThere->252 NewUserPages->131 WikiWikiWeb->124 OrphanPage->122 RecentChanges->106 WardCunningham->99 WikiWiki->99 JavaLanguage->94 TourBusStop->92 DesignPatterns->85 PythonLanguage->82 JustaProgrammer->79 KentBeck->73 CeePlusPlus->60 WikiGnome->57 OpenSource->56 PairProgramming->52 SmalltalkLanguage->47 RubyLanguage->46 UnitTest->44 RealNamesPlease->44 PerlLanguage->44 HomePage->43 WardsWiki->40 ThoughtWorks->40 UserName->37 TextFormattingRules->36 RecentVisitors->34 RonJeffries->34 FrontPage->34 JavaScript->33 CeeLanguage->33 WikiName->32 TestDrivenDevelopment->31 JimCoplien->31 MyersBriggs->31 VisualBasic->30 CategoryAuthor->29 SoftwareEngineer->28 ThankYou->28 SunirShah->28 DougMerritt->28 StartingPoints->28 WelcomeVisitors->27 MyMyersBriggsTypeIs->27 ComputerScience->26 JavaUnit->26 RichardDrake->26 EddiesWiki->25 OpenAuthor->24 OffTopic->24 JohannesGijsbers->24 RecentChangesJunkie->23 DavidCary->23 VickiKerr->23 PhpLanguage->23 GangOfFour->23 LaurentBossavit->23 FrancisHwang->22 FindPage->22 SchemeLanguage->22 PersonalWiki->22 RandomPages->22 WikiEngines->21 RecentEdits->21 CategoryCategory->21 MoinMoin->21 GoodStyle->21 FreeSoftware->21 QuickChanges->21 LispLanguage->21 AlistairCockburn->21 WhyWikiWorks->20 GemStone->20 MeatballWiki->20 WikiFarms->20 JeffGrigg->20 MarkIrons->20 OnceAndOnlyOnce->20 AntiPattern->19 MartinFowler->19 WikiWeb->19 MathQuizOne->19 ExtremeProgrammingRoadmap->19 UseModWiki->19 StevenNewton->19 ShaeErisson->19 SemanticWeb->18 WilliamUnderwood->18 EarleMartin->18 HelmutLeitner->18 VisualWorks->18 WalledGarden->18 RalphJohnson->18 WikiHistory->18 BrokenLink->18[Note: last hand-corrected 01 Oct 04]