By the way, to see the beneficial effects of tolerance,
try doing without:
gcd0=: {: @ (|!.0/\@|.^:(0~:{.)^:_) @ , " 0
0.03 gcd0 0.07
2.77556e_17
----- Original Message -----
From: "Roger Hui" <[EMAIL PROTECTED]>
To: "Beta forum" <[email protected]>
Sent: Tuesday, March 28, 2006 4:07 PM
Subject: Re: [Jbeta] x: 4 * !19
...
+. is defined in terms of | , which is tolerant. It can be
modelled as follows:
gcd=: {: @ (|/\@|.^:(0~:{.)^:_) @ , " 0
36 gcd 48
12
7 gcd 0.07
0.07
0.03 gcd 0.07
0.01
(2^30x) gcd !20x
262144
3j4 gcd 5j6
2j2
gcd/~ 0 1
0 1
1 1
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
