Advertisement
Guest User

bowl.pl

a guest
Aug 1st, 2015
240
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. / /;for$h(1..$`){for$w(1..$`){if($h*($w+$h)==$`){for$l(1..$h){if($l*($w+$l)==$'){for(0..$h-1){print$"x$_."\\".($_<$h-1?$_==$h-$l-1?"~":$":"_")x($w+($h-$_-1)*2)."/
  2. "}exit}}}}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement