Select Code to Download

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

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