builtup4/std/binary/arithmetic/mul.bu4
2023-03-25 13:02:10 +03:00

41 lines
1.2 KiB
Plaintext

{
/(b_mul)
(bA)(bB)
/(zqA)(lbA)(hb!A)
/
/(zqB)(lbB)(hb!B)
/
/
/
/
/[b0]/[hb!A] <[lbB]>
/
/[b0]/[hb!B] <[lbA]>
[b_add]
/
/
/
[hb!A]
/
[hb!B]
[b_mul]
[b_double]
[b_add]
/
</[lbB]/[lbA][and]>
[b!]
/
[b0]
[zqB]
[bB]
/
[b0]
[zqA]
[bA]
[YC]
|
b_mul
}
{ (b) /[b]/[b][b_mul] | b_square }