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

@ -0,0 +1,26 @@
import extensions.
fibu = (:i)
[
var ac := Array new(2); populate(:i)(i).
if (i < 2)
[ ^ ac[i] ];
[
2 to:i do(:i)
[
var t := ac[1].
ac[1] := ac[0] + ac[1].
ac[0] := t.
].
^ ac[1]
]
].
program =
[
0 to:10 do(:i)
[
console printLine(fibu(i)).
]
].