data test;
         i = 0; t = 1000; output;
         do i = 1 to 100;
                 x = rand('bernoulli', 0.7);
                if x = 1 then t = t + 1;
                else t = t - 4;
                output;
         end;
run;

不正之风，都自称学妹，记得以前台湾东南亚的华侨才这么称呼的