mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-08 12:11:51 +09:00
5 lines
138 B
QBasic
5 lines
138 B
QBasic
10 DEFUN SINC(X)=IF X==0 THEN 1 ELSE SIN(X)/X
|
|
20 DEFUN THREEDIGITS(X)=ROUND(X*1000)/1000
|
|
100 K=MAP(THREEDIGITS<~SINC,1 TO 10)
|
|
110 PRINT K
|