Finding multiplicative inverses using perl
Posted Sun, 26 Mar 2006
perl -le 'while (++$x) { print $x and exit if (($ARGV[0] * $x) % $ARGV[1] == 1) }' -- -215 26
0 responses to 'Finding multiplicative inverses using perl'
Showing last 0 comments... (Click here to view all comments)
Leave a reply
You need javascript enabled to use this form. Anti-spam efforts ongoing. Also,
if the comment doesn't show up, it's because the form expired. Go back and copy
your comment, reload the form, and resubmit. Apologies if this is a hassle, I'm
just playing with antispam methods right now. If this insists on not working,
please email me about it.