[ Objet ] récursif

var r := Objet nouveau.
r quand: ['∞'] faire: { :x
Stdout écrire: x, stop.
(x < 3) oui: { self récursif ∞ (x + 1). }.
}.
r ∞ 1. 1
2
3

Go to homepage

2024-9-22 0:16