Select Code to Download

sub checker
{
...
9900102030405060708091121314151617181922324252627282933435363738394454
+6474849556575859667686977879889
Checking   ...
Ok

#0         1         2         3         4         5         6        
+ 7         8
#012345678901234567890123456789012345678901234567890123456789012345678
+901234567890
 for$x(0..9){for$y(0..9){/$x$y/||(/^$y/?$_=$x.$_:(/$x$/?$_.=$y:($_.=$x
+.$y)))}}$_

#0         1         2         3         4         5         6        
+ 7
#012345678901234567890123456789012345678901234567890123456789012345678
+9012345
 for$x(0..9){for$y(0..9){/$x$y/||($_=/^$y/?$x.$_:/$x$/?$_.$y:$_.$x.$y)
+}}$_
 for$x(0..9){for$y(0..9){$_=/$x$y/?$_:/^$y/?$x.$_:/$x$/?$_.$y:$_.$x.$y
+}}$_