Re: Re: Estimating Vocabulary

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

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]

Comment on Re: Re: Estimating Vocabulary Download Code

Replies are listed 'Best First'.
Re: Re: Re: Estimating Vocabulary by belg4mit (Prior) on Mar 27, 2002 at 20: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 27, 2002 at 20: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 27, 2002 at 20: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 27, 2002 at 21:12 UTC
Re7: Estimating Vocabulary by belg4mit (Prior) on Mar 27, 2002 at 21:16 UTC

• hippo

‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!

• erzuuli

‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.


Clear questions and runnable code get the best and fastest answer
	PerlMonks