Help for this page

Select Code to Download

Select or download this
```
s/(.)/$hash{$1}/eg
```

Select or download this

#!/usr/local/bin/perl
use strict;
...
#   schange: 21 wallclock secs (21.39 usr +  0.01 sys = 21.40 CPU) @ 4
+6728.97/s (n=1000000)
#  trchange:  7 wallclock secs ( 6.41 usr +  0.01 sys =  6.42 CPU) @ 1
+55763.24/s (n=1000000)