home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_05 / 8n05131b < prev    next >
Text File  |  1990-04-18  |  2KB  |  39 lines
  1.  
  2. ----------------listing 7-----------------
  3.                                                                         char
  4.                                                             _3141592654[3141
  5.           ],__3141[3141];_314159[31415],_3141[31415];main(){register char*
  6.       _3_141,*_3_1415, *_3__1415; register int _314,_31415,__31415,*_31,
  7.     _3_14159,__3_1415;*_3141592654=__31415=2,_3141592654[0][_3141592654
  8.    -1]=1[__3141]=5;__3_1415=1;do{_3_14159=_314=0,__31415++;for( _31415
  9.   =0;_31415<(3,14-4)*__31415;_31415++)_31415[_3141]=_314159[_31415]= -
  10. 1;_3141[*_314159=_3_14159]=_314;_3_141=_3141592654+__3_1415;_3_1415=
  11. __3_1415    +__3141;for                 (_31415 = 3141-
  12.            __3_1415  ;                  _31415;_31415--
  13.            ,_3_141 ++,                  _3_1415++){_314
  14.            +=_314<<2 ;                  _314<<=1;_314+=
  15.           *_3_1415;_31                   =_314159+_314;
  16.           if(!(*_31+1)                   )* _31 =_314 /
  17.           __31415,_314                   [_3141]=_314 %
  18.           __31415 ;* (                   _3__1415=_3_141
  19.          )+= *_3_1415                     = *_31;while(*
  20.          _3__1415 >=                      31415/3141 ) *
  21.          _3__1415+= -                     10,(*--_3__1415
  22.         )++;_314=_314                     [_3141]; if ( !
  23.         _3_14159 && *                     _3_1415)_3_14159
  24.         =1,__3_1415 =                     3141-_31415;}if(
  25.         _314+(__31415                      >>1)>=__31415 )
  26.         while ( ++ *                       _3_141==3141/314
  27.        )*_3_141--=0                        ;}while(_3_14159
  28.        ) ; { char *                        __3_14= "3.1415";
  29.        write((3,1),                        (--*__3_14,__3_14
  30.        ),(_3_14159                          ++,++_3_14159))+
  31.       3.1415926; }                          for ( _31415 = 1;
  32.      _31415<3141-                           1;_31415++)write(
  33.     31415% 314-(                            3,14),_3141592654[
  34.   _31415    ] +                            "0123456789","314"
  35.   [ 3]+1)-_314;                            puts((*_3141592654=0
  36. ,_3141592654))                              ;_314= *"3.141592";}
  37. --------------------end of listing 7----------------
  38.  
  39.