http://qs321.pair.com?node_id=111545


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