Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- $_='
- $q ="\ 47"; wh
- ile ($ ;=
- $z += .5 ){
- %c= $r=0;$/ ="";whi le(2
- 0+ $z>($;+=.05)){$c{int$ _+ 2
- 6+ 2*($ r+= .0 2) *
- s in$ ;}{1 -$_
- +1 0+ int $r*c o s
- $ ;} =1for(0. .1) }$
- t =r ever se;$ /. =`
- c le ar `. " #!
- / usr /bi n/ pe
- rl \n\ $_ =$q \n" ;
- fo r$y (1..20){$c{$_} {
- $ y }? $ /.=chop$t :
- ($/ . =" \4
- 0") for(0. .53) ;
- $/. ="\n"}pri nt"$/$ q;
- s; ". chr(9 2)."s;;g;eval\n "}
- ';s;\s;;g;eval
Add Comment
Please, Sign In to add comment