Select Code to Download

$j=-1;print" "x(--$h),map({$_==1?"*":rand()<$f?(qw(0 @ * +))[rand 4]:"
+="}1..($j+=2)),$/for 1..$h

$j=1;print$"x--$h,($_-1?map rand>$f?"=":qw(0 @ * +)[rand 4],1..($j+=2)
+:"*"),$/for 1..$h