(
defun fc (
x y z
)
(
if
(
= x 0
)
n
(
fc
(
- 1 x
)
z
(
+ y z
)
)
)
)
(
defun f(
n
)
(
if
(= n 0
)
0
(
fc n 0 1
)
)
)
(
f 0)
(
f 1)
(
f 2)
(
time (
f 40
)
)
CQkJCQkoCglkZWZ1biBmYwkJCQkJCQkJCQkJKAoJeCB5IHoKCQkJCQkJCQkpCiAgICAJKAoJCWlmCgkJKAoJCT0geCAwCikgCiAgICAJCW4KICAgIAkJKAoJCQlmYwoJCQkJCSgKCQkJLSAxIHgKKQoJCQl6CgkJCQkJCQkoCgkJCSsgeSB6CgkJCSkKCSkKCQkJKQopCgkJCQkJCSgKCWRlZnVuIGYoCgluCgkJCQkJKQoJCQkoCgkJaWYgCgkJKD0gbiAwCgkJCQkJKQogICAgCQkwCiAgICAoCgkJCWZjIG4gMCAxCgkJCQkJCQkpCgkJCQkJKQoJCQkJKQogICAgIAogICAgIAogICAgIAogICAgKAoJZiAwKQoJCQkJKAoJZiAxKQogICAgKAoJZiAyKQoJCSgKCXRpbWUgKAoJZiA0MAoJKQop