basic: 'barely working' map function

This commit is contained in:
minjaesong
2020-12-09 17:18:11 +09:00
parent 1177690ee3
commit ac9087f7bf
2 changed files with 44 additions and 12 deletions

3
assets/facmap.bas Normal file
View File

@@ -0,0 +1,3 @@
10 DEFUN FAC(N)=IF N==0 THEN 1 ELSE N*FAC(N-1)
20 K=MAP FAC, 1 TO 10
30 PRINT K