factor/extra/math/algebra/algebra.factor

! Copyright (c) 2007 Samuel Tardieu
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.functions sequences ;
IN: math.algebra

: chinese-remainder ( aseq nseq -- x )
  dup product
  [ [ over / [ swap gcd drop ] keep * * ] curry 2map sum ] keep rem ; foldable
Add math.algebra module with some useful words. - ext-euclidian implements the extended Euclidian algorithm - ring-inverse computes an inverse in a Z/nZ ring - chinese-remainder solves a multi-constraints modular equation 2007-12-26 16:42:33 -05:00			`! Copyright (c) 2007 Samuel Tardieu`
			`! See http://factorcode.org/license.txt for BSD license.`
Remove some words in math.algebra and change implementation 2007-12-28 07:44:00 -05:00			`USING: kernel math math.functions sequences ;`
Add math.algebra module with some useful words. - ext-euclidian implements the extended Euclidian algorithm - ring-inverse computes an inverse in a Z/nZ ring - chinese-remainder solves a multi-constraints modular equation 2007-12-26 16:42:33 -05:00			`IN: math.algebra`

			`: chinese-remainder ( aseq nseq -- x )`
			`dup product`
Remove some words in math.algebra and change implementation 2007-12-28 07:44:00 -05:00			`[ [ over / [ swap gcd drop ] keep * * ] curry 2map sum ] keep rem ; foldable`