($h,$f)=@_;for(1..$h){print' 'x($h-$_).($_==1?'*':join'',map{rand>$f?'=':qw(* 0 @ +)[rand 4]}1..$_*2-1)."\n"}

##</code><code>##

($h,$f)=@_;for(1..$h){print' 'x($h-$_).($_==1?'*':join'',map{rand>$f?'=':0}1..$_*2-1)."\n"}