Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
    1 unless $seen{$_}++;   # Perform a no-op the first time we see a 
+given number
}
print "Elapsed time: ", tv_interval($t0, [gettimeofday]), " seconds\n"
+;

Select or download this
```
Elapsed time: 1.466658 seconds
```