2 lines
68 B
Text
2 lines
68 B
Text
|
fibm3 is op n {a:=2 2$1 1 1 0; _(0 1 pick ((n- 1) fold (a ip) a))};
|