小编epi*_*ose的帖子

我必须转换这个C++代码

class A {

public: 
   int x_A;

    void setX_A (int newx) {
        x_A = newx;
    }

    void printX_A() {
       printf("x_A is %d", x_A);
    }
};

class B : public A {
public:
    int x_B;

    void setX_B (int newx) {
       x_B = newx;
    }

    void printX_B() {
       printf("x_B is %d", x_B);
    }

};

main() {
    A objA;
    B objB;
    objA.setX_A(2);
    objA.printX_A();
    objB.printX_A();
    objB.setX_B(5);
    objB.printX_B();
}

进入Haskell代码,并main()使用State(或StateT)Monad进行模拟.

到目前为止我所做的是:

import Control.Monad.State
import Control.Monad.Identity

-- Fields For A
data FieldsA = FieldsA …