#299964 (366/538) ↑Funny ↓Awful ⚐Flag
<Xe0n> $|=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 |