Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ perl -MMath::Trig -le'$r=.5*shift;print" "x($r-($w=abs$r*cos asin$_/$r)),"*"x($w*2)for-$r..$r' 15
- *****
- ********
- ***********
- ************
- *************
- **************
- **************
- ***************
- **************
- **************
- *************
- ************
- ***********
- ********
- *****
Add Comment
Please, Sign In to add comment