[go: up one dir, main page]

Menu

[r4]: / xfact.mpl  Maximize  Restore  History

Download this file

8 lines (5 with data), 90 Bytes

1
2
3
4
5
6
7
+libhdr
f(i) i?i*f(i-1),1
.(i) [
i=0;++i<=10 @ writef("f(%i2)=%i6*n",i,f(i))
]