flash on 2010-8-11

/**
 * Copyright enecre ( http://wonderfl.net/user/enecre )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/fK6r
 */

package {
    import flash.text.TextField;
    import flash.display.Sprite;
    public class FlashTest extends Sprite {
        private var r:Number;
        private var tf:TextField;
        private var p:Vector.<int> = new Vector.<int>(1000);
        
        public function FlashTest() {
            // write as3 code here..
            addChild(this.tf = new TextField());
            tf.width = stage.stageWidth;
            tf.height = stage.stageHeight;
            this.r = 1/5;
            tr(R(10));
        }
        
        private function P(n:int):Number{
            if(n == 2)return (1-r);
            else if(n == 3)return (1-r) * (1-r) * (1+r);
            else if(p[n] != 0)return p[n];
            else{
                p[n] = (1-r) * P(n-1) + r * P(n-2);
                tr("a")
                return p[n];
            }
            return 1;
        }
        
        private function R(n:int):Number{
            return P(n-1) + r * P(n-2);
        }


        
        
        private function tr(...o:Array):void{
            tf.appendText(o + "\n");
            tf.scrollV = tf.maxScrollV;
        }

    }
}