Process 当消息从erlang中的另一个进程获得权限时，如何在进程内打印消息？

我是erlang的新手，我有一个任务：

• 编写一个函数“setalarm（T，Message）”，在什么情况下启动两个进程 同时。T毫秒后，第一个进程发送一条消息 到第二个进程，该消息将是消息arg

---

禁止使用函数库，只能使用原语（发送、接收、生成）

作为新手，我可以编写更多代码，因此我建议这样一个选项：

setalarm(T,Message)->
  S = spawn(sotest,second,[]),
  Pid = spawn(sotest,first,[S,T,Message]).

first(Pid,T,Message) ->
  receive
  after T -> Pid ! Message
  end.

second() ->
  receive
   Message -> io:format("The message is ~p~n",[Message])
  end.

---

你能发布一些你尝试过的代码并指出它失败的地方吗？正如我所写的，我对这种语言都是新手，我一直在寻找解决方案，但我找不到，所以我决定把整个任务放在这里。我已经收到了下面的解决方案，现在我也开始了解它是如何工作的，所以我非常感谢！谢谢你，它实际上工作得很好，就像它应该的那样！