Re: Re: Estimating Vocabulary

my(@lines, $line);
open(FILE, shift) || die;
1 while <FILE>;
$line=$.;
seek(FILE, 0, $. = 0);
rand($line-$.) < $ARGV[0]-@lines && push(@lines,$_) while <FILE>;
print @lines, "wc -l could have told you this is $. words\n";

[download]

Replies are listed 'Best First'.
Re: Re: Re: Estimating Vocabulary by belg4mit (Prior) on Mar 28, 2002 at 01:00 UTC
UPDATE:Excellent! WAS: That does not appear to work, I ask for one line and get 13-18 lines... It is also heavily weighted towards the Zs `-- perl -pe "s/\b;([st])/'\1/mg"`	[reply]
Re: Re: Re: Re: Estimating Vocabulary by I0 (Priest) on Mar 28, 2002 at 01:39 UTC
Are you sure? It's working for me with only a small bias towards the Zs Update: Apparently, the observed bias was mostly an artifact of small sample size	[reply]
Re5: Estimating Vocabulary by belg4mit (Prior) on Mar 28, 2002 at 01:43 UTC
On a linux 2.4.9 box running perl 5.6.0 `perl /tmp/a /usr/share/dict/words 1` yields such things as: `databases fritter Saracens stammerer when Whitmanize willing writes Wuhan youthfully zigzag Zoroaster Zulu Zulus Zurich wc -l could have told you this is 45424 words` [download] `shrivel topologies wetter Wilkins wristwatch Yeager yellowed zoom zooms Zoroastrian Zulu Zulus Zurich wc -l could have told you this is 45424 words` [download] `valuably wins wriggles Zennist zoning Zoroaster Zulu Zulus Zurich wc -l could have told you this is 45424 words` [download] `knave requisitioning seismology sentimentally tail Telnet Welles Whipple winner workbooks workmen Yates yeas Yokohama zodiac zonally zone Zoroaster Zoroastrian Zulu Zulus Zurich wc -l could have told you this is 45424 words` [download] `-- perl -pe "s/\b;([st])/'\1/mg"`	[reply] [d/l] [select]
Re: Re5: Estimating Vocabulary by I0 (Priest) on Mar 28, 2002 at 02:12 UTC
Re7: Estimating Vocabulary by belg4mit (Prior) on Mar 28, 2002 at 02:16 UTC


Welcome to the Monastery
	PerlMonks