Generalised floating point multiplication: Difference between revisions
Content added Content deleted
m (converted list to a table, removed Kudos.) |
m (→[[Generalised_floating_point_multiplication#ALGOL 68]]: removed # Kudos: use http://en.wikipedia.org/wiki/Karatsuba_algorithm #) |
||
Line 35: | Line 35: | ||
{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of '''format'''[ted] ''transput''.}} |
{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of '''format'''[ted] ''transput''.}} |
||
'''File: Mixin_Big_float_multiplication.a68''' |
'''File: Mixin_Big_float_multiplication.a68''' |
||
⚫ | |||
<lang algol68># Kudos: use http://en.wikipedia.org/wiki/Karatsuba_algorithm # |
|||
⚫ | |||
OP * = (DIGITS a, DIGIT b)DIGITS: a * INITDIGITS b; |
OP * = (DIGITS a, DIGIT b)DIGITS: a * INITDIGITS b; |
||
Line 83: | Line 82: | ||
INT digit width := 1; # define how decimal digits each "big" DIGIT is # |
INT digit width := 1; # define how decimal digits each "big" DIGIT is # |
||
COMMENT |
|||
Source code for Big_float_BCD_base, Mixin_Big_float_addition & subtraction |
|||
located at: http://rosettacode.org/wiki/Generalised_floating_point_additio#ALGOL_68 |
|||
END COMMENT |
|||
# include the basic axioms of the digits being used # |
# include the basic axioms of the digits being used # |
||
PR READ "Big_float_BCD_base.a68" PR |
PR READ "Big_float_BCD_base.a68" PR |
||
PR READ "Mixin_Big_float_addition.a68" PR |
PR READ "Mixin_Big_float_addition.a68" PR |
||
PR READ "Mixin_Big_float_subtraction.a68" PR |
PR READ "Mixin_Big_float_subtraction.a68" PR |
||
# Generalised multiplication # |
|||
PR READ "Mixin_Big_float_multiplication.a68" PR |
PR READ "Mixin_Big_float_multiplication.a68" PR |
||