红豆冰山

sys@TEST_LUNAR> set heading on
sys@TEST_LUNAR> set feedback on
sys@TEST_LUNAR> set heading off
sys@TEST_LUNAR> set feedback off
sys@TEST_LUNAR> set pagesize 2000
sys@TEST_LUNAR>
sys@TEST_LUNAR> select decode
  2         ( sign(floor(maxwidth/2)-rownum)
  3         , 1, lpad( ' ', floor(maxwidth/2)-(rownum-1))
  4           || rpad( '*', 2*(rownum-1)+1, ' *')
  5         )
  6  from all_objects
  7     , (select 10 as maxwidth from dual)
  8  where rownum < floor(maxwidth/2) +1;

     *
    * *
   * * *
  * * * *

sys@TEST_LUNAR>
sys@TEST_LUNAR> set heading on
sys@TEST_LUNAR> set feedback on
sys@TEST_LUNAR>