RosettaCodeData/Task/Fibonacci-sequence/Order/fibonacci-sequence-1.order

11 lines
367 B
Plaintext

#include <order/interpreter.h>
#define ORDER_PP_DEF_8fib_rec \
ORDER_PP_FN(8fn(8N, \
8if(8less(8N, 2), \
8N, \
8add(8fib_rec(8sub(8N, 1)), \
8fib_rec(8sub(8N, 2))))))
ORDER_PP(8fib_rec(10))