flash on 2010-5-25

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

package {
	import flash.display.Sprite;
	import flash.text.TextField;
	import flash.utils.getTimer;
	// @see http://projecteuler.net/index.php?section=problems&id=
	public class Euler extends Sprite {
		private var _tf : TextField;
  
		public function Euler() {
			_tf = new TextField();
			_tf.width = 465;
			_tf.height = 465;
			addChild(_tf);
			
			var s : int = getTimer();
			tr(solve(100*100));
			var g : int = getTimer();
			tr((g - s) + " ms");
		}

		private function solve(N : uint) : Number
		{
			var ct : uint = 0;
			var lim : uint = Math.sqrt(N);
			for(var a : uint = 1;a <= N / 3;a++){
				var m : uint = (a - 1) * (a + 1);
				for(var q : uint = 1;q < m;q++){ // q = c - b
					if(m % q == 0){
						var r : uint = m / q;
						if(((q^r)&1) == 1){
							var c : uint = (r + q) / 2;
							var b : uint = (r - q) / 2;
							if(a <= b && a + b + c <= N){
								tr(a, b, c);
								ct++;
							}	
						}
					}
				}
			}
			return ct;
		}

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