June 2018 Update

This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions

View file

@ -7,17 +7,16 @@ extension mathOp
if (self < 0)
[ InvalidArgumentException new:"Must be non negative"; raise ].
^ control do:self with
(:n)
^ target evalSelf(:n)
[
if (n > 1)
[ ^ $closure eval(n - 2) + $closure eval(n - 1) ];
[ ^ @self(n - 2) + @self(n - 1) ];
[ ^ n ]
].
]
}
program =
public program =
[
-1 to:10 do(:i)
[