perl -le 'while (++$x) { print $x and exit if (($ARGV[0] * $x) % $ARGV[1] == 1) }' -- -215 26
|
Jordan Sissel
|
|
|
Jordan Sissel
|
Sun, 26 Mar 2006Finding multiplicative inverses using perl
perl -le 'while (++$x) { print $x and exit if (($ARGV[0] * $x) % $ARGV[1] == 1) }' -- -215 26
Comments: 0 (view comments)
|
Search this siteNavigationMetadataHome About Resume My Code (SVN)ArticlesARP Security Dynamic DNS with DHCP OpenLDAP+Kerberos+SASL PPP over SSH SSH Security: /bin/false Week of Unix Tools Work EfficiencyProjectsfex firefox tabsearch firefox urledit grok keynav liboverride newpsm (FreeBSD) nis2ldap pam_captcha poor man's backup Solaris audio utility xboxproxy xdotool xmlpresenter xpathtool misc scriptsPresentationsYahoo! Hack Day '06 Unix Essentials Vi/Vim EssentialsTag CloudCalendar
FriendsBarCamp Kent Brewster Tantek Çelik John Resig Wesley Shields Tyler ShieldsTechnorati |
|||||||||||||||||||||||||||||||||||||||||||||||||