mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
5 lines
87 B
QBasic
5 lines
87 B
QBasic
10 DEFUN FAC(N)=IF N==0 THEN 1 ELSE N*FAC(N-1)
|
|
20 FOR K=1 TO 6
|
|
30 PRINT FAC(K)
|
|
40 NEXT
|