June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
|
|
@ -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)
|
||||
[
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue