RosettaCodeData/Task/Fibonacci-sequence/Nial/fibonacci-sequence-7.nial

6 lines
205 B
Plaintext

$ 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](~$)));