Re: How fast do I type?

The standard method for calculating words for the purpose of finding WPM is counting all the characters and dividing by six. Why six? Because the average word is 5 characters long, plus a space.

I'm really no good at one-liners or golfing, but I quickly modified your code. It obtains the accuracy you're looking for. Tested on ActivePerl Build 629 (Perl v5.6.1).

#!perl
$x=time;
$letters=scalar(split//,<>)/6;
print $letters/(time-$x)*60;
[download]

Sarah
If Bill Gates can name a company after his "bedroom" problems, I can have a stupid sig that points it out.

Comment on Re: How fast do I type? Download Code

Replies are listed 'Best First'.
Re: Re: How fast do I type? by foogod (Friar) on Sep 10, 2001 at 23:37 UTC
golfed .... with line breaks and prefix `perl -e'$x=time;print "WPM:".(scalar(split//,<>)/6)/(time-$x)*60."\n"'` [download]	[reply] [d/l]
(jeffa) 3Re: How fast do I type? by jeffa (Bishop) on Sep 11, 2001 at 04:16 UTC
subtract ."\n" and add e (thanks once again to chipmunk) `perl -le'$x=time;print "WPM:".(scalar(split//,<>)/6)/(time-$x)*60'` [download]	[reply] [d/l]
Re: (jeffa) 3Re: How fast do I type? by mischief (Hermit) on Sep 12, 2001 at 15:33 UTC
for efficiency: `perl -le'$x=time;print "WPM:",(scalar(split//,<>)/6)/(time-$x)*60'` :)	[reply] [d/l]
Re: (jeffa) 3Re: How fast do I type? by foogod (Friar) on Sep 11, 2001 at 05:54 UTC
nice! ... forgot about the results of a `-e` modifier ... thanks, - f o o g o d	[reply] [d/l]