📄 m.pl
字号:
#!/usr/local/bin/perlfor ($i=0; $i<256; $i++) { for ($j=0; $j<256; $j++) { $a0=$i&0x0f; $a1=($i>>4)&0x0f; $b0=$j&0x0f; $b1=($j>>4)&0x0f; $a0b0=$a0*$b0; $a1b1=$a1*$b1; $a01=$a0-$a1; $b10=$b1-$b0; $a01b10=$a01*$b10; if ($a01b10 < 0) { $neg=1; $a01b10= -$a01b10; } $t=($a0b0>>4)+($a0b0&0x0f)+($a1b1&0x0f); if ($neg) { $t-=($a01b10&0x0f); } else { $t+=($a01b10&0x0f); } printf("%02X %s%02X %02X\n",$a1b1,($neg)?"-":" ",$a01b10,$a0b0) if ($t < 0) } }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -