普通青年 文艺青年 2B青年
本文纯属搞笑，如有雷同，纯属巧合。

-- 2bYouth.hsmodule Main wheredata Natural = Zero | Succ Natural deriving Showone = Succ Zerotwo = Succ onethree = Succ twofour = Succ threefive = Succ foursix = Succ fivea +++ Zero = aa +++ Succ x = Succ a +++ xa *** Zero = Zeroa *** Succ x = a +++ (a *** x)factorial Zero = onefactorial n@(Succ x) = n *** factorial xtoi Zero = 0toi (Succ x) = 1 + toi x



    1 楼    yangkuan    2011-10-26              ZB青年，哈哈    2 楼    沙舟狼客    2011-10-27              貌似2b青年的代码很有技术含量    3 楼    cloverprince    2011-10-27              沙舟狼客 写道貌似2b青年的代码很有技术含量
嗯，简单问题复杂化。