10 lines
367 B
Text
10 lines
367 B
Text
#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))
|