変換のサンプル

(define (fib n)
  (if (= n 0)
      1
      (if (= n 1)
	  1 
	  (+ (fib (- n 1)) (fib (- n - 2))))))

(fib 4)
    

import scheme.*;
class Env {
    class ProcFib extends ScmObj implements ScmProc{
	public ScmObj app(ScmObj [] aryobj){
	    ScmObj n = aryobj[0];
	    if(((ScmInt)n).evalInt() == 0){
		return new ScmInt(1);
	    }else if(((ScmInt)n).evalInt() == 1){
		return new ScmInt(1);
	    }else{
		ScmObj [] arg1 = new ScmObj[1];
		ScmObj [] arg2 = new ScmObj[1];
		arg1[0] = new ScmInt(((ScmInt)n).evalInt() -1);
		arg2[0] = new ScmInt(((ScmInt)n).evalInt() -2);
		return new ScmInt(
				  ((ScmInt)((ScmProc)procFib).app(arg1)).evalInt()
				  + ((ScmInt)((ScmProc)procFib).app(arg2)).evalInt());
	    }
	}
    }
    public ScmObj procFib;
    public Env(){
	procFib = new ProcFib();

    }
}

public class Fib {
    
    public static void main(String [] args){
	Env env = new Env();
	ScmObj [] arg1 = new ScmObj[1];
	arg1[0] = new ScmInt(4);
	ScmObj ans = ((ScmProc)(env.procFib)).app(arg1);
	System.out.println("-->" + ((ScmInt)ans).evalInt()); 
    }
}
    

(fix ((f (x) (+ x x)))
    (let ((b  2))
      (fix ((g (x) 
	       (fix ((f (x) (* x x)))(f x))))
         (begin (set! b 3)
                (g 4)))))
    

import scheme.*;

class Env {
    class F extends ScmObj implements ScmProc 
    {
	public ScmObj app(ScmObj [] args)
	{
	    ScmObj x = args[0];
	    return new ScmInt(((ScmInt)x).evalInt() + ((ScmInt)x).evalInt());
	}
    }
    ScmObj f;
    ScmObj b;
    class G extends ScmObj implements ScmProc
    {
	class F extends ScmObj implements ScmProc
	{
	    public ScmObj app(ScmObj [] args){
		ScmObj x = args[0];
		return new ScmInt(((ScmInt)x).evalInt() * ((ScmInt)x).evalInt());
	    }
	}
	ScmObj f;
	public ScmObj app(ScmObj [] args)
	{
	    f = new F();
	    ScmObj x = args[0];
	    ScmObj [] appargs = new ScmObj[1];
	    appargs[0] = x;
	    ScmObj [] appargs2 = new ScmObj[1];
	    return ((ScmProc)f).app(appargs);
	}
    }
    ScmObj g;
    public ScmObj eval(){
	f = new F();
	b = new ScmInt(2);
	g = new G();
	b = new ScmInt(3);
	ScmObj [] appargs = new ScmObj[1];
	appargs[0] = b;
	return ((ScmProc)g).app(appargs);
    }
}
public class Fix {
    public static void main(String [] args){
	Env env = new Env();
	System.out.println("-->"+((ScmInt)env.eval()).evalInt());
    }
    
}