Zapomenuté heslo nebo jméno
7. 12. 2005 17:44
^[:fun | [:f | fun value: [:arg | (f value: f) value: arg]] value: [:f | fun value: [:arg | (f value: f) value: arg]]] value: [:rec | [:n | n < 1 ifTrue: [1] ifFalse: [n * (rec value: n - 1)]]]