Files
tsvm/assets/disk0/home/basic/autocurrytest.bas

7 lines
252 B
QBasic

10 DEFUN SINC(P)=SIN(P)/P
20 DEFUN OTHERFUN(A,B)=A+"|"+B
30 DEFUN PLOTLINE(F,X)=MAP(OTHERFUN~<F(X),1 TO 5):REM needs auto-currying
31 DEFUN PLOTLINE2(F,X)=MAP(OTHERFUN~<F~<X,1 TO 5):REM WORKS!
100 PRINT PLOTLINE(SINC,333)
101 PRINT PLOTLINE2(SINC,333)