Sign in
nest-open-source
/
nest-learning-thermostat
/
5.1.3
/
boost
/
refs/heads/master
/
.
/
boost_1_45_0
/
libs
/
spirit
/
example
/
scheme
/
example
/
scheme
/
call_factorial.scm
blob: 62191384481f1a25a6de201af6a36ae946b6cf0c [
file
] [
log
] [
blame
]
; The hello-world for interpreters ;-)
(
define
(
factorial n
)
(
if
(
<=
n
0
)
1
(
*
n
(
factorial
(
-
n
1
)))))
(
define
(
main
)
(
display
(
factorial
10
)))