5 lines
205 B
Text
5 lines
205 B
Text
$ is reshape;
|
|
~ is tr f op a b {b f a}; % Goes before verb, rather than after like in J;
|
|
_ is floor; % Not really J, but J-ish? (Cannot redefine "<.".);
|
|
|
|
fibm2 is _(0 1 pick reduce ip([2 2$1 1 1 0](~$)));
|