素数フェチ

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

//わりと鈍くさく素数を数えさせて、表示される素数を酒のつまみにするflash
//ここを見てつくりたくなった
//http://itpro.nikkeibp.co.jp/article/Watcher/20100519/348242/
package  {
	
	import flash.display.Sprite;
	import flash.events.Event;
	import flash.text.*;
	
	public class sosu extends Sprite {
		
		var count:uint = 11;
		var _a:Array
		var i:uint
		var _tf:TextField
		var _tfm:TextFormat;
		public function sosu() {
			_a = [2, 3, 5, 7]
			trace(2)
			trace(3)
			trace(5)
			trace(7)
			addEventListener(Event.ENTER_FRAME, function() {
				for (var i:Number = 0 ; i < 1 ;i++ ) {
					counting();
				}
			});
			_tf = new TextField();
			_tf.autoSize = TextFieldAutoSize.LEFT;
			_tfm = new TextFormat()
			_tfm.letterSpacing = 10
			_tfm.size = 72
		}
		
		private function counting() {
			count++;
			var _flag:Boolean = true;
			var alen:uint = _a.length
			for ( i = 0 ; i <alen  ; i++ ) {
				if (count % _a[i] == 0) {
					_flag = false
					break;
				}
				if (_a[i] > count * 2) break;
			}
			if (_flag) {
				_tf.text ="素数\n"+ String(count);
				_tf.setTextFormat(_tfm)
				addChild(_tf);
				_a.push(count);
			}
			
		}
		
	}
	
}