Select Code to Download

#!/usr/bin/perl -w

...

# Usage: NUMBER = FMOD(DIVIDEND, DIVISOR)
sub FMOD { return $_[0] - int($_[0] / $_[1]) * $_[1]; }

4       32      79      6       8       27      42      29      79    
+  76
65      45      37      8       28      54      2       77      55    
+  66
...
22      54      50      44      34      63      56      60      66    
+  57
77      52      56      41      37      24      73      26      58    
+  71
57      20      1       14      6       21      62      30      63    
+  0