如何解决如何在班级工作者中修复我的方法 toString?
我在打印类型方面遇到了一些问题。
例如定义
type experience = Beginner | Experienced;;
class worker e =
object(self)
val exp : experience = e
method toString = let type_printer = function
| Beginner -> "Beginner"
| Experienced -> "Experienced" in
print_string ("Worker with experience " ^ (type_printer exp))
end;;
所以我想打印我定义的类型等等。当我调用我的方法时,什么也没发生。我认为问题出在辅助函数中。如何解决?
解决方法
我修正了您代码中的一个错字(print_sting => print_string)。
此更改后,您的代码对我有用。
# (* Enter the above code *)
class worker : experience ->
object val exp : experience method toString : unit end
# let w0 = new worker Beginner;;
val w0 : worker = <obj>
# w0#toString;;
Worker with experience Beginner- : unit = ()
如果您展示与您所看到的方式失败的代码的完整交互,这可能会有所帮助。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。