fnfact.bas

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

def fn fact (n)
	local i
	fact= 1
	for i= 1 to n
		fact= fact * i
	next
fn end

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

end