13 lines
578 B
Text
13 lines
578 B
Text
#include <order/interpreter.h>
|
|
|
|
#define ORDER_PP_DEF_8fib \
|
|
ORDER_PP_FN(8fn(8N, \
|
|
8fib_iter(8N, 0, 1)))
|
|
|
|
#define ORDER_PP_DEF_8fib_iter \
|
|
ORDER_PP_FN(8fn(8N, 8I, 8J, \
|
|
8if(8is_0(8N), \
|
|
8I, \
|
|
8fib_iter(8dec(8N), 8J, 8add(8I, 8J)))))
|
|
|
|
ORDER_PP(8to_lit(8fib(8nat(5,0,0))))
|