fnfactrec.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 9 行

def fn fact (n)
	if n = 1 then fact= 1 else fact= n * fn fact (n - 1)
fn end

for i= 1 to 10
	print i, fn fact (i)
next

end