（编程大擂台）Mathematica 面向对象编程

guocong89

按：假期看了一本书，叫做《计算机程序的构造与解释》，虽然是讲lisp的，但和mathematica一脉相承。参考书中的精髓，尝试写了一个mathematica 面向对象包，现把相关技术整理一下。

object oriented programming，即面向对象编程，是一种比面向过程编程更具封装性的语法特性。mathematica本身并不适合去开发大型项目，在面向对象编程方面并不没有非常强烈的需求；但是作为一种语法特性，如果能够亲手实现一下，对我们训练使用mathematica也是很有意思的。

思来想去，决定先把自己的实现放一放，为了活跃咱版的气氛，现在举办一个擂台赛。

规则如下：

我给出一段我的程序实现的功能，你们自己按照自己的思路去实现。
根据给出结果的情况给予1~3分的技术加分，如果结果与前面的回帖雷同了，要给出自己的原创性解释。

抓进来抢分吧！我会在一周后给出我的解决方案。

我的代码运行效果：

1. tom = New[man];
   
2. tom["year"] = 1989;
   
3. tom["name"] = "tom";
   
4. tom["say"][]
   
5. tom["age"][]
   

复制代码

运行结果

1. My name is tom
   
2. I'm 23 year's old
   

复制代码

这是第一季，后面还有继承的应用。

FlyingDuckman

1. New[man][temp_] := Module[{},
   
2.    say[] := Print["My name is ", New[man]["name"]];
   
3.    age[] := Print["I'm ", 2012 - New[man]["year"], " years old"];
   
4.    If[temp == "say", New[man][] /. New[man] -> say];
   
5.    If[temp == "age", New[man][] /. New[man] -> age]];

复制代码

楼主啊，这个2012就要来了，虽然有点出入，但是看在第一个响应你的份上多少给一点分吧:lol 。其实我也特别想知道mathematic面向对象怎么写的，求教LZ了

guocong89

算是把程序写出来了，可是有一个很严重的问题。如果我有两个man对象，结果是不对的。如果解决了，加1分。

20号公布答案。

waynebuaa

玩玩倒是可以的

guocong89

很抱歉，前几天在MSRA参加一个夏令营活动，没有来得及公布答案。请见新主题帖关于这个问题的解决。