今天在推上看到介绍这个,意味着可以用 Lisp 来开发 Erlang,可以集合双方的优势,多了一个选项,真是不错。感受下这个代码,可读性似乎是不错的,纯正的 Lisp。
四个括号还可以接受,呵呵。
(defun make-process (id pid)
(spawn 'ring 'roundtrip (list id pid)))
(defun roundtrip (id pid)
(receive
(1
(io:fwrite '"Result: ~b~n" (list id))
(erlang:halt))
(data
(! pid (- data 1))
(roundtrip id pid))))