Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re: How fast do I type?

by foogod (Friar)
on Sep 10, 2001 at 23:37 UTC ( #111545=note: print w/replies, xml ) Need Help??


in reply to Re: How fast do I type?
in thread How fast do I type?

golfed .... with line breaks and prefix
perl -e'$x=time;print "WPM:".(scalar(split//,<>)/6)/(time-$x)*60."\n"'

Replies are listed 'Best First'.
(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'

      for efficiency:

      perl -le'$x=time;print "WPM:",(scalar(split//,<>)/6)/(time-$x)*60'

      :)

      nice! ... forgot about the results of a -e modifier ...

      thanks,

      - f o o g o d

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://111545]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2023-02-06 06:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (33 votes). Check out past polls.

    Notices?