From owner-FreeBSD-users-jp@jp.freebsd.org  Fri Apr 13 03:37:39 2001
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id DAA18453;
	Fri, 13 Apr 2001 03:37:39 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from serio.al.rim.or.jp (serio.al.rim.or.jp [202.247.191.123])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id DAA18448
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 13 Apr 2001 03:37:39 +0900 (JST)
	(envelope-from yoshiaki@kt.rim.or.jp)
From: yoshiaki@kt.rim.or.jp
Received: from mail2.rim.or.jp
	by serio.al.rim.or.jp (3.7W/HMX-13) id DAA21117
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 13 Apr 2001 03:37:38 +0900 (JST)
Received: from yoshiaki_kt.rim.or.jp (ip43-197.fli.psinet.ne.jp [210.158.43.197]) by mail2.rim.or.jp (8.9.3/3.7W)
	id DAA26961 for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 13 Apr 2001 03:37:37 +0900 (JST)
Received: from localhost (localhost [127.0.0.1])
	by yoshiaki_kt.rim.or.jp (8.11.3/3.7W-ppp-010112) with ESMTP id f3CEfeG01002
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 12 Apr 2001 23:41:40 +0900 (JST)
Date: Thu, 12 Apr 2001 23:41:40 +0900 (JST)
Message-Id: <20010412.234140.74756581.yoshiaki@kt.rim.or.jp>
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: <20010412.204912.72852186.iwao@sci.toyama-u.ac.jp>
References: <200104120307.AA02607@aquamarineN.nifty.ne.jp>
	<20010412.204912.72852186.iwao@sci.toyama-u.ac.jp>
X-Mailer: Mew version 1.95b118 on Emacs 20.7 / Mule 4.0 (HANANOEN)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+010328
X-Sequence: FreeBSD-users-jp 60788
Subject: [FreeBSD-users-jp 60788] Re: =?ISO-2022-JP?B?GyRCJDUkaRsoQg==?=
 =?ISO-2022-JP?B?GyRCJEtCZyQtJEpAMD90Nz8kLE1fJDckJBsoQg==?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: yoshiaki@kt.rim.or.jp

>>>>> From: $BLZB<(B $B4`(B <iwao@sci.toyama-u.ac.jp>
>>>>> Date: Thu, 12 Apr 2001 20:49:12 +0900 (JST)


 > From: endo_t@nifty.com ($B1sF#(B $B=SM5(B)
 > Subject: [FreeBSD-users-jp 60773] $B$5$i$KBg$-$J@0?t7?$,M_$7$$(B 
 > Date: Thu, 12 Apr 2001 12:07:06 +0900
 > 
 > > $B$3$N>l9g!"3N$+$K%i%$%V%i%j$H$+$r;H$($P$$$$$N$+$b(B
 > > $B$7$l$^$;$s$,!"%^%k%A%W%i%C%H%[!<%`$K$7$h$&$H;W$C(B
 > > $B$?$i$=$&$b$$$-$^$;$s!#(B
 > 
 > GMP$B$O0\?"@-$b$"$k$H$*$b$$$^$9!J(BCygwin$B$G$b;H$($k$O$:!K!%(B
 > 
 > > $B$=$l$b$H$C$F$b4JC1$K$+$k$%$/:n$j$?$$$H;W$$$^$9!#(B
 > > $B$I$3$+$K$=$N$h$&$J%5%s%W%k$O$J$$$G$7$g$&$+!)(B
 > > $B;MB'1i;;$H>jM>!"CM$O(B unsigned $B7?$G$$$$$N$G$9!#(B
 > 
 > C$B$d(BC++$B$G$J$$$H%@%a$H$$$&$7$P$j$,$"$k$N$G$7$g$&$+!)(B
 > $B$b$78@8l$,2?$G$bNI$$$J$i!"7e?t@)8B$N$J$$1i;;$N=PMh$k%9%/%j%W%H8@8l$G$b(B
 > $BNI$$$N$G$O$J$$$G$7$g$&$+!)(BRuby$B$H$+!"(BScheme$B!J$N<BAu!"(Bscm$B$H$+(Bstk$B$H$+!K!%(B
 > 
$B$*<j7Z7O$J$i(B pari/GP $B$N(BGP$B$bA*Br;^$KF~$k$+$b!#(B
Windows/Mac$BHG$b$"$j$^$9!#(B

10000$B$N3,>h$0$i$$$J$i0l=V$G5a$^$j$^$9$7!#(B
 ? 10000!
%1 =284625968091705451890641321211986889014805140170279....

$B$3$s$J46$8$G4X?tDj5A$b$G$-$^$9!#(B($B%5%s%W%k$N(Bcontfrac.gp )

period(D) =
{
  local(u,v,j,r,s);

  if (type(D) != "t_INT" || D < 2, return(-1));
  u = sqrtint(D); v = D-u^2;
  if (!v, return(0));
  s = v;
  r = u; j = 0;
  until (u==r && v==s,
    u = (r+u)\v * v - u;
    v = (D-u^2)\v; j++;
  ); j
}
--
  yoshiaki@kt.rim.or.jp
 ($B$&(B)  
