mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
7 lines
252 B
QBasic
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)
|