Anonymous user
Generalised floating point multiplication: Difference between revisions
Generalised floating point multiplication (view source)
Revision as of 10:31, 30 October 2011
, 12 years ago→[[Generalised_floating_point_multiplication#ALGOL 68]]: removed # Kudos: use http://en.wikipedia.org/wiki/Karatsuba_algorithm #
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:
{{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'''
<lang algol68>OP * = (DIGIT a, DIGITS b)DIGITS: INITDIGITS a * b;▼
▲OP * = (DIGIT a, DIGITS b)DIGITS: INITDIGITS a * b;
OP * = (DIGITS a, DIGIT b)DIGITS: a * INITDIGITS b;
Line 83 ⟶ 82:
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 #
PR READ "Big_float_BCD_base.a68" PR
PR READ "Mixin_Big_float_addition.a68" PR
PR READ "Mixin_Big_float_subtraction.a68" PR
# Generalised multiplication #
PR READ "Mixin_Big_float_multiplication.a68" PR
| |||