mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-08 12:11:51 +09:00
5 lines
85 B
QBasic
5 lines
85 B
QBasic
1 XS=4!1!2!3!5!NIL
|
|
10 DEFUN K(P,X)=X<P
|
|
20 NXS=FILTER(CURRY(K,XS(0)),XS)
|
|
30 PRINT NXS
|