Sign in
apache
/
tcl-site
/
f0bed74727bd35dbeff9bc9a16c54b81929b0a3c
/
.
/
presentations
/
tcl
/
tcl
/
fac.tcl
blob: 1f79adfb11ef989e6319ddd2322120c5d6eaa8dc [
file
] [
log
] [
blame
]
proc
fac
{
x
}
{
if
{
$
x
<=
1
}
{
return
1
}
expr
{
$
x
*
[
fac
[
expr
$
x
-
1
]]
}
}