loops - Smalltalk - 每 2 秒打印一些内容

Question

我正在使用 Pharo 在 Smalltalk 中进行编码。我的代码:

|i delay|
i := 0.
[i < 5] whileTrue: [
    [
        delay := Delay forSeconds: 2.
        delay wait.
        Transcript show: '2 seconds are up'.
        Transcript cr.
    ] fork.
    i := i + 1.
]

它一次打印所有“2 秒已到”，而不是每 2 秒打印一次:

2 seconds are up
2 seconds are up
2 seconds are up
2 seconds are up
2 seconds are up

请问谁能告诉我如何在 Smalltalk 中每 2 秒打印一些内容？

Answer 1

您一次 fork 了所有 5 个进程，以便所有 5 个延迟同时结束。要从后台每 2 秒打印一次，请在单独的进程中 fork 整个循环:

|i delay|
[   
    i := 0.
    [i < 5] whileTrue: [
        delay := Delay forSeconds: 2.
        delay wait.
        Transcript show: '2 seconds are up'.
        Transcript cr.
        i := i + 1]
] fork