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