[ Objekt ] rekurzivno

var r := Objekt novo.
r on: ['∞'] do: { :x
Stdout pisati: x, stani.
(x < 3) istinito: { self rekurzivno ∞ (x + 1). }.
}.
r ∞ 1. 1
2
3

Go to homepage

2024-9-22 0:16