Board logo

標題: program 的藝術..看怎樣把 PI 印出來… [打印本頁]
作者: 閒魂    時間: 2009-1-4 23:52     標題: program 的藝術..看怎樣把 PI 印出來…

  1.               $|=3,141592;sub _
  2.           {print@_}sub o{_++$O[0
  3.         ];_ 0for 1..$#O}sub O{$;=int
  4.       $=/10,'0/^           ^';if($;<9)
  5.      {_$_ for                 @O;;@O=()
  6.     ;0}push                     @O,$;;0
  7.    ,;push@                       O,'.'if
  8.    $^==1;                         0;if($;
  9.    ==10){          print          ,o,@O=(
  10.    )}}$?=         1000000         ;$-=10*
  11.    (q/@O=       digits of pi      =10/,1)
  12.    *int($?                       /3)+1;$
  13.     _=2for@                     ,[0..$-]
  14.      ,;for$^                   (1..$?){
  15.      $"=$-;$O                 =0;until
  16.        ($"<0){$/=          2*$"+1;$/=
  17.         10if$/==1;$==10*$,[$"]+$O;$,
  18.           [$"]=$=%$/;$O=int($=/$/
  19.                )*$"--,10}O}o
複製代碼
zodiac ~ # perl pi.pl
3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949129833673362440656643086021394946395224737190702179860943702770539217176293176752384674818467669405132000568127145263560827785771342757789609173637178721468440901224953430146549585371050792279689258923542019956112129021960864034418159813629774771309960518707211349999998372978049951059731732816096318595024459455346908302642522308253344685035261931188171010003137838752886587533208381420617177669147303598253490428755468731159562863882353787593751957781857780532171226806613001927876611195909216420199..
作者: 馬高仔    時間: 2009-1-5 01:03

圓



歡迎光臨 PC Infinity (http://pcinhk.com/discuz/) Powered by Discuz! 7.0.0