| <Xe0n> | Â Â Â Â Â Â Â $l=3,141592;sub _ |
|
<Xe0n> | Â Â Â Â Â {print@_}sub o{_++$O[0 |
|
<Xe0n> | Â Â Â Â ];_ 0for 1..$#O}sub O{$;=int |
|
<Xe0n> | Â Â Â $=/10,'0/^ Â Â Â Â Â ^';if($;<9) |
|
<Xe0n> |    {_$_ for         @O;;@O=() |
|
<Xe0n> |   ;0}push           @O,$;;0 |
|
<Xe0n> | Â Â ,;push@ Â Â Â Â Â Â Â Â Â Â Â O,'.'if |
|
<Xe0n> | Â Â $^==1; Â Â Â Â Â Â Â Â Â Â Â Â 0;if($; |
|
<Xe0n> |   ==10){      print      ,o,@O=( |
|
<Xe0n> | Â Â )}}$~= Â Â Â Â 1000000 Â Â Â Â ;$-=10* |
|
<Xe0n> |   (q/@O=    digits of pi    =10/,1) |
|
<Xe0n> | Â Â *int($~ Â Â Â Â Â Â Â Â Â Â Â /3)+1;$ |
|
<Xe0n> | Â Â _=2for@ Â Â Â Â Â Â Â Â Â Â ,[0..$-] |
|
<Xe0n> | Â Â Â ,;for$^ Â Â Â Â Â Â Â Â Â (1..$~){ |
|
<Xe0n> | Â Â Â $:=$-;$O Â Â Â Â Â Â Â Â =0;until |
|
<Xe0n> | Â Â Â Â ($:<0){$/= Â Â Â Â Â 2*$:+1;$/= |
|
<Xe0n> | Â Â Â Â 10if$/==1;$==10*$,[$:]+$O;$, |
|
<Xe0n> | Â Â Â Â Â [$:]=$=%$/;$O=int($=/$/ |
|
<Xe0n> | Â Â Â Â Â Â Â Â )*$:--,10}O}o |
|
<Xe0n> | run it |
|
<Xe0n> | see how long it takes for your compy to finish it |
|
<Xe0n> | it's perl |
|
<DerpDerp> | No, it's gay |
|
<DerpDerp> | and it probably makes my CD trap open every 30 seconds |
|
<DerpDerp> | probably |
|
<DerpDerp> | tray |
|
<phantomcircuit> | actually it looks like it calculates pi |
|
<Xe0n> | ^ |
|
<Xe0n> | Because it does |
|
<phantomcircuit> | but being perl it could just as well launch some nuclear missiles |