Sign in
chromium
/
external
/
llvm.org
/
test-suite
/
refs/heads/svn-tags/RELEASE_601
/
.
/
final
/
MultiSource
/
Benchmarks
/
Ptrdist
/
bc
/
fact.b
blob: 8d1474702bdc04a97b1ab778bf708af54d32359c [
file
] [
log
] [
blame
]
define f
(
x
)
{
if
(
x
<=
1
)
return
(
1
)
return
(
f
(
x
-
1
)*
x
)
}
"Here we go"
for
(
a
=
1
;
a
<
100
;
a
++)
b
+=
f
(
a
)/
a
"
"
"b="
;
b
quit
