10 lines
193 B
WDTE
10 lines
193 B
WDTE
let s => import 'stream';
|
|
let a => import 'arrays';
|
|
|
|
let fib n => (
|
|
let reducer p n => [a.at p 1; + (a.at p 0) (a.at p 1)];
|
|
s.range 1 n
|
|
-> s.reduce [0; 1] reducer
|
|
-> a.at 1
|
|
;
|
|
);
|