home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / number2.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  310 b   |  11 lines
  1. (multiple-value-list (xgcd 77874422 32223899))
  2. (1 23017069 -55624583)
  3.  
  4. (let ((a 974507656412513757857315037382926980395082974811562770185617915360)
  5.       (b -1539496810360685510909469177732386446833404488164283))
  6.   (multiple-value-bind (g u v) (xgcd a b)
  7.     (and (eql g 1) (eql g (+ (* a u) (* b v))))
  8. ) )
  9. T
  10.  
  11.