mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-15 23:46:06 +09:00
basic: CURRY, TYPEOF, LEN
This commit is contained in:
6
assets/currytest.bas
Normal file
6
assets/currytest.bas
Normal file
@@ -0,0 +1,6 @@
|
||||
10 DEFUN F(K,T)=ABS(T)==K
|
||||
11 CF=CURRY(F,32)
|
||||
20 PRINT TYPEOF(F):REM must be usrdefun
|
||||
21 PRINT TYPEOF(CF):REM also must be usrdefun
|
||||
30 PRINT CF(24):PRINT CF(-32)
|
||||
31 REM Expected printout: false true
|
||||
Reference in New Issue
Block a user