System Speed

Okay, this isn't really an obfuscation, but it is better here than anywhere else I believe. What does it do? Pass it any number and it will see how many seconds it takes for your computer to count that high. Granted, your computer is actually faster: it would run faster without the print statements :)

#!/usr/bin/perl
#Usage: "script.pl INT" [INT = any # (5000+ to see anything)]
${_}=time;print$.++."\r"while($.<$ARGV[0]);$_=abs(time-$_);print$_." s
+econds.";
[download]

No, it doesn't break Deparse. I am still working on figuring out a destruction method for that...

Comment on System Speed Download Code

Replies are listed 'Best First'.
Re: System Speed by jynx (Priest) on May 20, 2002 at 17:00 UTC
The load time of Perl is small enough that you can use the esoteric `$^T` here and not lose any accuracy (at least, not enough to matter; if you were using Time::HiRes it would :) `#!/usr/bin/perl #Usage: "script.pl INT" [INT = any # (5000+ to see anything)] print++$_,"\r"while$_<$ARGV[0];print$/,abs($^T-time),"s$/"` [download] jynx	[reply] [d/l] [select]