[ Objekt ] rekurzivno

var r := Objekt nový.
r on: ['∞'] postup: { :x
Stdout píšu: x, zastávka.
(x < 3) true: { self rekurzivno ∞ (x + 1). }.
}.
r ∞ 1. 1
2
3

Go to homepage

2024-9-22 0:16