daily pastebin goal
44%
SHARE
TWEET

Untitled

a guest May 17th, 2018 91 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. $_='
  3.          $q ="\                   47"; wh
  4.         ile                           ($ ;=
  5.       $z                +=              .5 ){
  6.     %c=           $r=0;$/ ="";whi         le(2
  7.    0+          $z>($;+=.05)){$c{int$       _+ 2
  8.   6+         2*($              r+= .0       2) *
  9.  s          in$                   ;}{1       -$_
  10. +1         0+           int        $r*c       o s
  11. $         ;}         =1for(0.       .1)        }$
  12. t        =r         ever se;$        /.        =`
  13. c        le        ar     `.         "         #!
  14. /        usr       /bi             n/         pe
  15. rl       \n\       $_ =$q        \n"          ;
  16. fo        r$y        (1..20){$c{$_}          {
  17. $ y       }? $         /.=chop$t            :
  18.  ($/        . ="                          \4
  19.  0")         for(0.                    .53)          ;
  20.    $/.        ="\n"}pri            nt"$/$          q;
  21.    s; ".         chr(9 2)."s;;g;eval\n           "}
  22.  
  23. ';s;\s;;g;eval
RAW Paste Data
Top