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