【问题】

圣诞时候，应个景，Stata送出圣诞树。

【方法】

capture program drop MerryChristmas
program define MerryChristmas
 di "{break}"
 forval i=0(4)16 {
  forval j=1(2)9 {
   local n=`i'+`j'
   local tree=" "
   forval k=1/`n' {
    if `n'==1 {
     local tree="`tree'"+"{res}*"
    }
    else if uniform()>0.8 {
     local tree="`tree'"+"{error}*"
    }
    else {
     local tree="`tree'"+"{text}*"
    } 
   }
   di "{center:`tree'}"
  }
 }
 di "{center:{input}==圣诞快乐==}"
 di "{center:{input}==Merry Christmas==}"
 di "{hline}"
end

MerryChristmas
exit

【例子】

MerryChristmas

http://s11/mw690/629bb758td1a60de80a6a&690124：Merry Christmas" TITLE="Tips 124：Merry Christmas" />