root/as3/HaskellHackathon/src/HaskellHackathon.as

package
{
        import flash.display.Sprite;
        
        import org.libspark.haskell.parser.IParser;
        import org.libspark.haskell.parser.kmyacc.KmyaccParser;
        import org.libspark.haskell.parser.nodes.EvaluteContext;
        import org.libspark.haskell.parser.nodes.INode;

        public class HaskellHackathon extends Sprite
        {
                public function HaskellHackathon()
                {
                        var parser:IParser = new KmyaccParser();
                        
                        var source:String = 
                        /**
                        'foo x y = x + y;' +
                        'trace = foo 3 4'
                        /**/
                        'foo x y = x + y;' +
                        'hoge z = foo 4 z;' +
                        'fuga i k = i + hoge k;' +
                        'trace = fuga 1 2'
                        /**
                        'main = trace (1 + 2 * 3 + 4 * 5 * 6);' +
                        'foo x y = x + y;' +
                        'hoge    = 2'
                        /**
                        'factA 0 = 1;' +
                        'factA n = n * factA (n-1);'
                        /**
                        'factB n | n==0      = 1' +
                        '         | otherwise = n * factB (n-1);'
                        /**
                        ' factC n = if n==0' +
                        '               then 1' +
                        '               else n * factC (n-1);' +
                        ' factD n = case n of' +
                        '              0 -> 1' +
                        '              _ -> n * factD (n-1);'
                        /**/
                        
                        var node:INode = parser.parse(source);
                        
                        node.evalute(new EvaluteContext());
                }
        }
}