[ Objecte ] recursiu

var r := Objecte nou.
r en: ['∞'] fer: { :x
Stdout escriu: x, atura.
(x < 3) cert: { self recursiu ∞ (x + 1). }.
}.
r ∞ 1. 1
2
3

Go to homepage

2024-9-22 0:16