extra/math/algebra/algebra.factor

   1 ! Copyright (c) 2007 Samuel Tardieu.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: kernel math sequences ;
   4 IN: math.algebra
   5
   6 : chinese-remainder ( aseq nseq -- x )
   7     dup product [
   8         '[ _ over / [ swap gcd drop ] keep * * ] 2map sum
   9     ] keep rem ; foldable